home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / EDUCATIN / MDLPLNE2.LBR / CLARK-Y.BQS / CLARK-Y.BAS
BASIC Source File  |  2000-06-30  |  1KB  |  39 lines
  1. 5  REM PROGRAM DEVELOPED BY DICK PHILLIPS
  2. 10 PRINT CHR$(26)
  3. 20 PRINT "        CLARK Y AIRFOIL"
  4. 30 PRINT
  5. 40 PRINT "WING RIB DIMENSION PLOTTER"
  6. 50 PRINT
  7. 60 PRINT "INDEX CHORD OF WING RIB DESIRED"
  8. 62 PRINT: DASH$=STRING$(80,45)
  9. 70 INPUT "CHORD DESIRED IN INCHES (DECIMAL FRACTIONS ONLY)";C
  10. 72 LPRINT DASH$
  11. 75 LPRINT CHR$(29)CHR$(31)"DIMENSIONS FOR CLARK 'Y' @";C; "INCH CHORD"
  12. 80 LPRINT CHR$(30)
  13. 85 LPRINT DASH$
  14. 90 LPRINT "STATION",, "OFFSET","UPPER","LOWER"
  15. 95 LPRINT DASH$
  16. 100 LPRINT "STATION 0 (LE) = ", C*0, C*.035, C*.035
  17. 110 LPRINT "STATION 1.25  = ", C*.0125, C*.0545, C*.0193
  18. 120 LPRINT "STATION 2.5   = ", C*.025, C*.065, C*.0147
  19. 130 LPRINT "STATION 5.0   = ", C*.05, C*.079, C*.0093
  20. 140 LPRINT "STATION 7.5   = ", C*.075,C*.0885,C*.0063
  21. 150 LPRINT "STATION 10    = ",C*.1  ,C*.096, C*.0042
  22. 160 LPRINT "STATION 15    = ", C*.15, C*.1068, C*.0015
  23. 170 LPRINT "STATION 20    = ", C*.2, C*.1136, C*.0003
  24. 180 LPRINT "STATION 30    = ", C*.3, C*.117
  25. 190 LPRINT "STATION 40    = ", C*.4, C*.114
  26. 200 LPRINT "STATION 50    = ", C*.5  ,C*.1052
  27. 210 LPRINT "STATION 60    = ", C*.6, C*.0915
  28. 220 LPRINT "STATION 70    = ",C*.7  ,C*.0735
  29. 230 LPRINT "STATION 80    = ", C*.8, C*.0522
  30. 240 LPRINT "STATION 90    = ", C*.9, C*.028
  31. 250 LPRINT "STATION 95    = ", C*.95, C*.0149
  32. 260 LPRINT "STATION 100   = ", C*1, C*.0012
  33. 270 LPRINT CHR$(12)
  34. 280 END
  35.  
  36.  
  37.  
  38.  
  39.