A.4. Block Diagrams for the Important
Routines
177
^
I=LL,
ISUPG0(T0T)=MAX0
(ISUPGO(TOT),ISUPER)
AA«1/((1+R)**(T-1))
AB«1/((1+R)**TMAX)
AC=AA-AB
AD»ISUPGO(TOT)*AC
AF-(7350000.0)*AC
BIG0«AD/R
BIG0S=AF/R