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

_

 

[HALLEY]