home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / educatin / mdlplne2.lbr / NAC24012.BQS / NAC24012.BAS
BASIC Source File  |  1986-08-09  |  2KB  |  40 lines
  1. 1   REM PROGRAM DEVELOPED BY DICK PHILLIPS
  2. 5   PRINT CHR$(26)
  3. 10  PRINT "NACA 24012 AIRFOIL"
  4. 20  PRINT
  5. 30  PRINT "PLOTTING DIMENSION PROGRAM"
  6. 40  PRINT
  7. 50  PRINT "ENTER FRACTIONS AS DECIMAL"
  8. 60  PRINT
  9. 70  INPUT "ENTER CHORD DESIRED FOR NACA 24012";C
  10. 72  PRINT:DASH$=STRING$(80,45)
  11. 74  LPRINT DASH$
  12. 75  LPRINT CHR$(29)CHR$(31) "DIMENSIONS FOR NACA 24012 @";C;"INCHES"
  13. 76  LPRINT CHR$(30)
  14. 77  LPRINT DASH$
  15. 90  LPRINT "STATION",,"OFFSET","UPPER","LOWER"
  16. 91  LPRINT DASH$
  17. 100 PRINT
  18. 110 LPRINT "STATION 0",,"LE","0","0"
  19. 120 LPRINT "STATION 1.25",, C*.0125, C*.0258, C*-.0134
  20. 130 LPRINT "STATION 2.5",, C*.025, C*.0350, C*-.0185
  21. 140 LPRINT "STATION 5.0",, C*.05, C*.048, C*-.0237
  22. 150 LPRINT "STATION 7.5",, C*.075, C*.0574, C*-.027
  23. 160 LPRINT "STATION 10",, C*.1, C*.0644, C*-.0295
  24. 170 LPRINT "STATION 15",, C*.15, C*.0737, C*-.0334
  25. 180 LPRINT "STATION 20",, C*.2, C*.0782, C*-.0366
  26. 190 LPRINT "STATION 25",, C*.25, C*.0796, C*-.0392
  27. 200 LPRINT "STATION 30",, C*.3, C*.0789, C*-.0411
  28. 210 LPRINT "STATION 40",, C*.4, C*.0744, C*-.0417
  29. 220 LPRINT "STATION 50",, C*.5, C*.0666, C*-.0393
  30. 230 LPRINT "STATION 60",, C*.6, C*.0567, C*-.0347
  31. 240 LPRINT "STATION 70",, C*.7, C*.0448, C*-.0284
  32. 250 LPRINT "STATION 80",, C*.8, C*.0318, C*-.0207
  33. 260 LPRINT "STATION 90",, C*.9, C*.0173, C*-.0118
  34. 270 LPRINT "STATION 95",, C*.95, C*.0094, C*-.0067
  35. 280 LPRINT "STATION 100",, C*1, C*.0013, C*-.0013
  36. 290 FOR X=1 TO 6
  37. 295 LPRINT
  38. 297 NEXT X
  39. 300 END
  40.