home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / basic / math.ark / BINSTAR.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-12-21  |  512 b   |  21 lines
  1. 10 DIM T(1002),S(1000),V(1000),A(1000)
  2. 20 INPUT "P = ";P
  3. 30 INPUT "ECCENTRICITY =";R
  4. 40 FOR N = 0 TO 1000
  5. 50 T(N) = N/10
  6. 60 NEXT N
  7. 70 FOR N = 1 TO 1000
  8. 80 S(N)=P/(1+R*((COS(T(N))-R)/(1-R*COS(T(N)))))
  9. 90 V(N) = (S(N)-S(N-1))/(T(N)-T(N-1))
  10. 100 A(N) = (V(N)-V(N-1))/(T(N)-T(N-1))
  11. 110 M = M + 1
  12. 120 NEXT N
  13. 130 FOR N = 1 TO M
  14. 140 PRINT "N =";N;TAB(20)"S =";S(N)
  15. 150 PRINT TAB(40);"V =";V(N)
  16. 160 PRINT TAB(60);"A =";A(N)
  17. 170 FOR PAUSE = 1 TO 100
  18. 180 NEXT PAUSE
  19. 190 NEXT N
  20. )"S =";S(N)
  21. 150 PRINT TAB