; ********************************************* 
; Surveying Library              SY-22
; *********************************************
; Earthwork Volume (by average end area)
; Earthwork Program
 


#EMULATOR c:\ti-59\sy\22\SY-22.t59

#LISTING c:\ti-59\sy\22\SY-22.LST

#AZEMULATOR c:\ti-59\sy\22\SY-22.TI

lbl e'
cms inv fix 1 sto 10 adv gto rst

sbr 16 prt rtn

( rcl 3 * rcl 6 - rcl 5 * rcl 4 ) sum 8 rcl 5 sto 3 rcl 6
sto 4 rtn

lbl b
iff 2 52 sto 2 sto 4 stf 2 sto 6 iff 3 11 stf 3 prt rtn

lbl a
iff 1 74 sto 1 sto 3 stf 1 sto 5 prt rtn

lbl c
cp sto 9 ( rcl 10 - 1 ) eq 106 rcl 9 eq 103 inv ge 103
prt rtn

0 1/x rtn

sto 9 prt rtn

lbl d
rcl 1 sto 5 rcl 2 sto 6 sbr 16 ( ( ( rcl 8 x2 sqr / 2 )
sto 8 + rcl 7 ) * rcl 9 / 2 ) sto 11 sum 12 rcl 8 sto 7
sbr rst 0 sto 8 ( rcl 10 + 1 ) sto 10 prt rtn

lbl a'
rcl 7 prt rtn

lbl b'
rcl 11 prt adv rtn

lbl c'
rcl 12 prt adv rtn

lbl d'
rcl 10 prt adv rtn

lbl rst
inv stf 1 inv stf 2 inv stf 3 rtn



#end