(11C) Tree Heights

[Gamo]

This program was adapted from the Hand-Held-Calculator Programs
for the Field Forester.

More detail information attached here.

Procedure:

1. Enter slope distance to base of tree [A] -->Display known distance

2. Enter Slope percent to tip, [R/S] --> Display 0 (Slope to tip Stored)

3. Enter Slope percent to Base.

I. If Positive [B] --> display 0 // slope base entered
II. If Negative [C] --> display 0 // slope base entered

4. [D] ---> Tree Heights

-----------------------------------------------

Example: FIX 1

Slope Percent to tip = 40
Negative slope percent to base = 20
Distance to tree = 56
What is the Tree Heights?

56 [A] display 56
40 [R/S] display 0
20 [C] display 0
[D] 32.9

Tree Heights is 32.9

-------------------------------------------------

Slope Percent to tip = 40
Positive slope percent to base = 20
Distance to tree = 56
What is the Tree Heights?

56 [A] display 56
40 [R/S] display 0
20 [B] display 0
[D] 10.9

Tree Heights is 10.9

Program:

Code:


LBL A   // Enter Distance and Slope Tip
STO 3
R/S
GSB 1
STO 1
CLx
RTN
--------------------------------------------
LBL B  // Enter Positive Slope Base
GSB 1
RCL 1
-
CHS
STO 2
CLx
RTN
------------------------------------------
LBL C  // ENTER Negative Slope Base
GSB 1
RCL 1
+
STO 2
CLx
RTN
-----------------------------------------
LBL D  // Compute Tree Height
RCL 2
SIN
RCL 3
x
90
ENTER
RCL 1
-
SIN
÷
RTN
---------------------------------------
LBL 1
EEX
2
 ÷
TAN -1
RTN

Gamo