; ***********************
; Surveying Library SY-06
; ***********************
; Closure
; Traverse Program

#EMULATOR c:\ti-59\sy\06\SY-06.t59
#LISTING c:\ti-59\sy\06\SY-06.lst
#AZEMULATOR c:\ti-59\sy\06\SY-06.TI

lbl a
exc 2 exc 1 rcl 2 prt rtn

lbl b
pgm 7 b rtn

lbl c
adv ( rcl 3 - rcl 1 ) sto 18 sto 5
( rcl 4 - rcl 2 ) sto 19 sto 6 ( x2
+ rcl 18 x2 ) sqr sto 7 prt rtn

lbl d
cp ( rcl 18 eq 74 1/x * rcl 19 ) inv tan
x2 sqr gto 76 9 0 sto 16 fix 6 inv dms
prt rtn

lbl e
cp rcl 18 ge 101 rcl 19 ge 110 3 gto 115
rcl 19 ge 114 4 gto 115

2 gto 115 

1 sto 13 prt rtn

lbl a'
cp rcl 10 eq 151 ( ( ( rcl 2 * rcl 3 -
rcl 4 * rcl 1 + rcl 10 ) / 2 ) x2 sqr
+ rcl 17 ) sto 10 prt rtn

lbl b' 
( rcl 7 / rcl 9 ) PRT ADV RTN

LBL C'
sto 9 prt rtn

lbl d'
sto 10 prt rtn

 

#end
