LISTING OF PROGRAM
TRY
1 PROGRAM
2 GRAPHICS(WIN32)
3 A=35.1
4 P=0.59
5 R=VARIABLE(0.6,35)
6 DR=R(2)-R(1)
7 PROB=R*DR/SQRT((A-R)*(R-P))
8 NORM=SUM(PROB)
9 OUT=PROB
10
CONSTRAIN(OUT:R.LE.30)
11 OUTER=SUM(OUT)
12 LONG=OUTER/NORM
13 PRINT LONG
14
OUTSIDE=75.3*LONG
15 PRINT OUTSIDE
16 GRAPH(PROB,R)
17 END
:_TRY
EXECUTION STARTED
LONG = .53132 of orbit out
OUTSIDE = 40.009 years
_