home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / basic / math.ark / PARABOLA.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-12-21  |  896 b   |  43 lines
  1. 1 REM P IS PARABOLIC PARAMETER AND FI IS ANGLE OF INCIDENCE
  2. 10 INPUT "P:";P
  3. 20 INPUT "FI:";FI
  4. 30 FI = FI*.0174532
  5. 40 REM FI IS NOW IN RADIANS
  6. 50 FOR Z = -10 TO 10
  7. 60 N = Z
  8. 70 GOSUB 260
  9. 80 MZ = MA
  10. 90 BZ = BA
  11. 100 FOR R = (Z+1) TO 10
  12. 110 N = R 
  13. 120 GOSUB 260
  14. 130 MR = MA
  15. 140 BR = BA
  16. 150 AB = (BZ-BR)/(MR-MZ)
  17. 160 REM AB IS ABSISSA OF INTERSECTING RAYS
  18. 170 OD = MR*AB + BR
  19. 180 PRINT "Z:";Z, "R:";R
  20. 190 PRINT "MZ;"; MZ, "BZ:";BZ
  21. 200 PRINT "MR:";MR,"BR:";BR
  22. 210 PRINT "ABSISSA=";AB, "ORDINATE=";OD
  23. 220 PRINT
  24. 230 NEXT R
  25. 240 NEXT Z
  26. 250 STOP
  27. 260 REM THE FOLLOWING COMPUTES MA AND BA GIVEN  'N'
  28. 270 X = (N^2)/(4*P)
  29. 280 MO = (-N)/(2*P)
  30. 290 TH = ATN(MO)
  31. 300 IF N > 0 THEN 360
  32. 310 IF TH < = FI THEN 340
  33. 320 KA = TH + ABS(TH - FI)
  34. 330 GOTO 370
  35. 340 KA = TH - ABS(TH - FI)
  36. 350 GOTO 370
  37. 360 KA = 2*TH - FI
  38. 370 MA = TAN (KA)
  39. 380 BA = N - MA*X
  40. 390 RETURN
  41. 
  42. 330 GOTO 370
  43. 340 K