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 / AFMNU22.BQS / AFMNU22.BAS
BASIC Source File  |  2000-06-30  |  13KB  |  291 lines
  1. 1    REM Prgram to compute plotting coordinates for selected airfoils with
  2. 2    REM user provided chord dimension. Sub-routines for computing coordinates
  3. 3    REM based on a program developed by Dick Phillips.
  4. 4    REM Menu driven program by Curtis Givens. Note to users the current revision contains ordinate data for 7 airfoils.
  5. 5    REM Data was taken from the book  Handbook of Airfoil Sections for Light Aircraft by M.S. Rice.
  6. 6    REM Should anyone choose to add additional airfoils please include remarks as to source
  7. 7    REM  of data and continue revision numbering as started by the author. Rev 2.2 Dated 4 Mar 86.
  8. 8       PRINT CHR$(26)
  9. 9       PRINT " SELECT AN AIRFOIL FROM THE LIST BELOW":PRINT:PRINT
  10. 10    PRINT " LIST OF AIRFOILS":PRINT:PRINT
  11. 20    PRINT " 1.  CLARK-Y"
  12. 30    PRINT " 2.  NACA 24012"
  13. 40    PRINT " 3.  NACA 25012"
  14. 50      PRINT " 4.  CLARK YM-15"  
  15. 60      PRINT " 5.  NACA 0012"
  16. 70      PRINT " 6.  EIFEL 430"
  17. 80      PRINT " 7.  GOETTINGEN 298 FOKKER DR.1"
  18. 200    PRINT:PRINT "SELECT AIRFOIL BY NUMBER, 0 TO QUIT."
  19. 210    INPUT A
  20. 220    IF A=0 THEN 9999
  21. 230    IF A=1 THEN 500 ELSE 240
  22. 240    IF A=2 THEN 900 ELSE 250
  23. 250    IF A=3 THEN 1400 ELSE 260
  24. 260     IF A=4 THEN 1800 ELSE 270
  25. 270     IF A=5 THEN 2000 ELSE 280
  26. 280     IF A=6 THEN 2200 ELSE 290
  27. 290     IF A=7 THEN 2400 ELSE 400
  28. 400    IF A>7 THEN 200
  29. 500     REM SUBROUTINE FOR CLARK Y
  30. 510     PRINT CHR$(26)
  31. 520    PRINT "        CLARK Y AIRFOIL"
  32. 530     PRINT
  33. 540     PRINT "WING RIB DIMENSION PLOTTER"
  34. 550     PRINT
  35. 560     PRINT "INDEX CHORD OF WING RIB DESIRED"
  36. 570     PRINT: DASH$=STRING$(80,45)
  37. 580     INPUT "CHORD DESIRED IN INCHES (DECIMAL FRACTIONS ONLY)";C
  38. 590     LPRINT DASH$
  39. 600     LPRINT CHR$(29)CHR$(31)"DIMENSIONS FOR CLARK 'Y' @";C; "INCH CHORD"
  40. 610     LPRINT CHR$(30)
  41. 620     LPRINT DASH$
  42. 630     LPRINT "STATION",, "OFFSET","UPPER","LOWER"
  43. 640     LPRINT DASH$
  44. 650     LPRINT "STATION 0",, C*0, C*.035, C*.035
  45. 660     LPRINT "STATION 1.25",, C*.0125, C*.0545, C*.0193
  46. 670     LPRINT "STATION 2.5",, C*.025, C*.065, C*.0147
  47. 680     LPRINT "STATION 5.0",, C*.05, C*.079, C*.0093
  48. 690     LPRINT "STATION 7.5",, C*.075,C*.0885,C*.0063
  49. 700     LPRINT "STATION 10",,C*.1  ,C*.096, C*.0042
  50. 710     LPRINT "STATION 15",, C*.15, C*.1068, C*.0015
  51. 720     LPRINT "STATION 20",, C*.2, C*.1136, C*.0003
  52. 730     LPRINT "STATION 30",, C*.3, C*.117
  53. 740     LPRINT "STATION 40",, C*.4, C*.114
  54. 750     LPRINT "STATION 50",, C*.5  ,C*.1052
  55. 760     LPRINT "STATION 60",, C*.6, C*.0915
  56. 770     LPRINT "STATION 70",,C*.7  ,C*.0735
  57. 780     LPRINT "STATION 80",, C*.8, C*.0522
  58. 790     LPRINT "STATION 90",, C*.9, C*.028
  59. 800     LPRINT "STATION 95",, C*.95, C*.0149
  60. 810     LPRINT "STATION 100",, C*1, C*.0012
  61. 815     LPRINT "L.E. RADIUS   = ", C*.0150
  62. 820     LPRINT CHR$(12)
  63. 830     PRINT "DO YOU WANT TO DO ANOTHER LISTING? (YES=1,NO=0)"
  64. 840     INPUT B
  65. 850     IF B=1 THEN 10 ELSE 9999
  66. 900     REM SUBROUTINE FOR NACA 24012
  67. 910     PRINT CHR$(26)
  68. 920     PRINT "NACA 24012 AIRFOIL"
  69. 930     PRINT
  70. 940     PRINT "PLOTTING DIMENSION PROGRAM"
  71. 950     PRINT
  72. 960     PRINT "ENTER FRACTIONS AS DECIMAL"
  73. 970     PRINT
  74. 980     INPUT "ENTER CHORD DESIRED FOR NACA 24012";C
  75. 990     PRINT:DASH$=STRING$(80,45)
  76. 1000    LPRINT DASH$
  77. 1010    LPRINT CHR$(29)CHR$(31) "DIMENSIONS FOR NACA 24012 @";C;"INCHES"
  78. 1020    LPRINT CHR$(30)
  79. 1030    LPRINT DASH$
  80. 1040    LPRINT "STATION",,"OFFSET","UPPER","LOWER"
  81. 1050    LPRINT DASH$
  82. 1060    PRINT
  83. 1070    LPRINT "STATION 0",, C*0, C*0, C*0
  84. 1080    LPRINT "STATION 1.25",, C*.0125, C*.0258, C*-.0134
  85. 1090    LPRINT "STATION 2.5",, C*.025, C*.035, C*-.0185
  86. 1100    LPRINT "STATION 5.0",, C*.05, C*.048, C*-.0237
  87. 1110    LPRINT "STATION 7.5",, C*.075, C*.0574, C*-.027
  88. 1120    LPRINT "STATION 10",, C*.1, C*.0644, C*-.0295
  89. 1130    LPRINT "STATION 15",, C*.15, C*.0737, C*-.0334
  90. 1140    LPRINT "STATION 20",, C*.2, C*.0782, C*-.0366
  91. 1150    LPRINT "STATION 25",, C*.25, C*.0796, C*-.0392
  92. 1160    LPRINT "STATION 30",, C*.3, C*.0789, C*-.0411
  93. 1170    LPRINT "STATION 40",, C*.4, C*.0744, C*-.0417
  94. 1180    LPRINT "STATION 50",, C*.5, C*.0666, C*-.0393
  95. 1190    LPRINT "STATION 60",, C*.6, C*.0567, C*-.0347
  96. 1200    LPRINT "STATION 70",, C*.7, C*.0448, C*-.0284
  97. 1210    LPRINT "STATION 80",, C*.8, C*.0318, C*-.0207
  98. 1220    LPRINT "STATION 90",, C*.9, C*.0173, C*-.0118
  99. 1230    LPRINT "STATION 95",, C*.95, C*.0094, C*-.0067
  100. 1240    LPRINT "STATION 100",, C*1, C*.0013, C*-.0013
  101. 1245    LPRINT "L.E. RADIUS = ", C*.0158
  102. 1260    LPRINT CHR$(12)
  103. 1280    PRINT "DO YOU WANT TO DO ANOTHER LISTING? (YES=1,NO=0)"
  104. 1290    INPUT C
  105. 1300    IF C=1 THEN 10 ELSE 9999
  106. 1400    REM SUBROUTINE FOR NACA 25012
  107. 1410    PRINT CHR$(26)
  108. 1420   PRINT "NACA AIRFOIL 25012"
  109. 1430   PRINT 
  110. 1440   PRINT "WING RIB PLOTTING PROGRAM"
  111. 1450   PRINT
  112. 1460   PRINT "DECIMAL FRACTIONS ONLY"
  113. 1470   PRINT:DASH$=STRING$ (80,45)
  114. 1480   INPUT "ENTERED CHORD DESIRED FOR NACA 25012";C
  115. 1490   LPRINT DASH$
  116. 1500   LPRINT CHR$(29)CHR$(31) "DIMENSIONS FOR NACA 25012 @";C;"INCH CHORD"
  117. 1510   LPRINT CHR$(30)
  118. 1520   LPRINT DASH$
  119. 1530   LPRINT "STATION",,"OFFSET","UPPER","LOWER"
  120. 1540   LPRINT DASH$
  121. 1550   LPRINT "STATION 0",, C*0, C*0, C*0
  122. 1560   LPRINT "STATION 1.25",, C*.0125, C*.0248, C*-.0138
  123. 1570  LPRINT "STATION 2.5",, C*.025, C*.0337, C*-.0194
  124. 1580  LPRINT "STATION 5.0",, C*.05, C*.047, C*-.0249
  125. 1590  LPRINT "STATION 7.5",, C*.075, C*.0562, C*-.0282
  126. 1600  LPRINT "STATION 10",, C*.1, C*.0636, C*-.0304
  127. 1610  LPRINT "STATION 15",, C*.15, C*.0739, C*-.033
  128. 1620  LPRINT "STATION 20",, C*.2, C*.0797, C*-.0354
  129. 1630  LPRINT "STATION 25",, C*.25, C*.082, C*-.0368
  130. 1640  LPRINT "STATION 30",, C*.3, C*.0821, C*-.0379
  131. 1650  LPRINT "STATION 40",, C*.4, C*.0775, C*-.0387
  132. 1660  LPRINT "STATION 50",, C*.5, C*.0692, C*-.0367
  133. 1670  LPRINT "STATION 60",, C*.6, C*.0587, C*-.0327
  134. 1680  LPRINT "STATION 70",, C*.7, C*.0464, C*-.027
  135. 1690  LPRINT "STATION 80",, C*.8, C*.0327, C*-.0197
  136. 1700  LPRINT "STATION 90",, C*.9, C*.0178, C*-.0113
  137. 1710  LPRINT "STATION 95",, C*.95, C*.0098, C*-.0064
  138. 1720  LPRINT "STATION 100",, C*1, C*.0013, C*-.0013
  139. 1725  LPRINT "L.E. RADIUS = ", C*.0158
  140. 1740  LPRINT CHR$(12)
  141. 1760  PRINT "DO YOU WANT TO DO ANOTHER LISTING? (YES=1,NO=0)"
  142. 1770  INPUT D
  143. 1780  IF D=1 THEN 10 ELSE 9999
  144. 1800     REM SUBROUTINE FOR CLARK YM-15
  145. 1805     PRINT CHR$(26)
  146. 1810     PRINT "        CLARK YM-15 AIRFOIL"
  147. 1815     PRINT
  148. 1820     PRINT "WING RIB DIMENSION PLOTTER"
  149. 1825     PRINT
  150. 1830     PRINT "INDEX CHORD OF WING RIB DESIRED"
  151. 1835     PRINT: DASH$=STRING$(80,45)
  152. 1840     INPUT "CHORD DESIRED IN INCHES (DECIMAL FRACTIONS ONLY)";C
  153. 1845     LPRINT DASH$
  154. 1850     LPRINT CHR$(29)CHR$(31)"DIMENSIONS FOR CLARK 'YM-15' @";C; "INCH CHORD"
  155. 1855     LPRINT CHR$(30)
  156. 1860     LPRINT DASH$
  157. 1865     LPRINT "STATION",, "OFFSET","UPPER","LOWER"
  158. 1870     LPRINT DASH$
  159. 1875     LPRINT "STATION 0",, C*0, C*.035, C*.035
  160. 1880     LPRINT "STATION 1.25",, C*.0125, C*.0595, C*.0143
  161. 1885     LPRINT "STATION 2.5",, C*.025, C*.0721, C*.076
  162. 1890     LPRINT "STATION 5.0",, C*.05, C*.0888, C*-.0005
  163. 1895     LPRINT "STATION 7.5",, C*.075,C*.1001, C*-.0053
  164. 1900     LPRINT "STATION 10",,C*.1  ,C*.1089, C*-.0087
  165. 1905     LPRINT "STATION 15",, C*.15, C*.1217, C*-.0134
  166. 1910     LPRINT "STATION 20",, C*.2, C*.1296, C*-.0156
  167. 1915     LPRINT "STATION 30",, C*.3, C*.1335, C*-.0165
  168. 1920     LPRINT "STATION 40",, C*.4, C*.1301, C*-.0161
  169. 1925     LPRINT "STATION 50",, C*.5  ,C*.12, C*-.0148
  170. 1930     LPRINT "STATION 60",, C*.6, C*.1044, C*-.0129
  171. 1935     LPRINT "STATION 70",,C*.7  ,C*.0839, C*-.0104
  172. 1940     LPRINT "STATION 80",, C*.8, C*.0595, C*-.0074
  173. 1945     LPRINT "STATION 90",, C*.9, C*.032, C*-.004
  174. 1950     LPRINT "STATION 95",, C*.95, C*.017, C*-.0021
  175. 1955     LPRINT "STATION 100",, C*1, C*.0014, C*-.0002
  176. 1960     LPRINT CHR$(12)
  177. 1965     PRINT "DO YOU WANT TO DO ANOTHER LISTING? (YES=1,NO=0)"
  178. 1970     INPUT E
  179. 1975     IF E=1 THEN 10 ELSE 9999
  180. 2000     REM SUBROUTINE FOR NACA 0012
  181. 2005     PRINT CHR$(26)
  182. 2010     PRINT "        NACA 0012 AIRFOIL"
  183. 2015     PRINT
  184. 2020     PRINT "WING RIB DIMENSION PLOTTER"
  185. 2025     PRINT
  186. 2030     PRINT "INDEX CHORD OF WING RIB DESIRED"
  187. 2035     PRINT: DASH$=STRING$(80,45)
  188. 2040     INPUT "CHORD DESIRED IN INCHES (DECIMAL FRACTIONS ONLY)";C
  189. 2045     LPRINT DASH$
  190. 2050     LPRINT CHR$(29)CHR$(31)"DIMENSIONS FOR A NACA 0012 @";C; "INCH CHORD"
  191. 2055     LPRINT CHR$(30)
  192. 2060     LPRINT DASH$
  193. 2065     LPRINT "STATION",, "OFFSET","UPPER","LOWER"
  194. 2070     LPRINT DASH$
  195. 2075     LPRINT "STATION 0",, C*0, C*0, C*0
  196. 2080     LPRINT "STATION 1.25",, C*.0125, C*.0189, C*-.0189
  197. 2085     LPRINT "STATION 2.5",, C*.025, C*.0262, C*-.0262
  198. 2090     LPRINT "STATION 5.0",, C*.05, C*.0356, C*-.0356
  199. 2095     LPRINT "STATION 7.5",, C*.075,C*.042,C*-.042
  200. 2100     LPRINT "STATION 10",,C*.1  ,C*.0468, C*-.0468
  201. 2105     LPRINT "STATION 15",, C*.15, C*.0534, C*-.0534
  202. 2110     LPRINT "STATION 20",, C*.2, C*.0574, C*-.0574
  203. 2115     LPRINT "STATION 30",, C*.3, C*.0594, C*-.0594
  204. 2120     LPRINT "STATION 40",, C*.4, C*.06, C*-.06
  205. 2125     LPRINT "STATION 50",, C*.5  ,C*.058, C*-.058
  206. 2130     LPRINT "STATION 60",, C*.6, C*.0529, C*-.0529
  207. 2135     LPRINT "STATION 70",,C*.7  ,C*.0456, C*-.0456
  208. 2140     LPRINT "STATION 80",, C*.8, C*.0366, C*-.0366
  209. 2145     LPRINT "STATION 90",, C*.9, C*.0145, C*-.0145
  210. 2150     LPRINT "STATION 95",, C*.95, C*.0081, C*-.0081
  211. 2155     LPRINT "STATION 100",, C*1, C*.0013, C*-.0013
  212. 2160     LPRINT "ALT STA 100",, C*1, C*0, C*0
  213. 2165     LPRINT "L.E. RADIUS   = ", C*.0158
  214. 2170     LPRINT CHR$(12)
  215. 2175     PRINT "DO YOU WANT TO DO ANOTHER LISTING? (YES=1,NO=0)"
  216. 2180     INPUT F
  217. 2185     IF F=1 THEN 10 ELSE 9999
  218. 2200     REM SUBROUTINE FOR EIFFEL 430
  219. 2205     PRINT CHR$(26)
  220. 2210     PRINT "        EIFFEL 430 AIRFOIL"
  221. 2215     PRINT
  222. 2220     PRINT "WING RIB DIMENSION PLOTTER"
  223. 2225     PRINT
  224. 2230     PRINT "INDEX CHORD OF WING RIB DESIRED"
  225. 2235     PRINT: DASH$=STRING$(80,45)
  226. 2240     INPUT "CHORD DESIRED IN INCHES (DECIMAL FRACTIONS ONLY)";C
  227. 2245     LPRINT DASH$
  228. 2250     LPRINT CHR$(29)CHR$(31)"DIMENSIONS FOR EIFFEL 430 @";C; "INCH CHORD"
  229. 2255     LPRINT CHR$(30)
  230. 2260     LPRINT DASH$
  231. 2265     LPRINT "STATION",, "OFFSET","UPPER","LOWER"
  232. 2270     LPRINT DASH$
  233. 2275     LPRINT "STATION 0",, C*0, C*.027, C*.027
  234. 2280     LPRINT "STATION 1.25",, C*.0125, C*.0509, C*.009
  235. 2285     LPRINT "STATION 2.5",, C*.025, C*.0621, C*.0042
  236. 2290     LPRINT "STATION 5.0",, C*.05, C*.0757, C*.0014
  237. 2295     LPRINT "STATION 7.5",, C*.075,C*.0848,C*0
  238. 2300     LPRINT "STATION 10",,C*.1  ,C*.091, C*.001
  239. 2305     LPRINT "STATION 15",, C*.15, C*.1017, C*.0048
  240. 2310     LPRINT "STATION 20",, C*.2, C*.106, C*.012
  241. 2315     LPRINT "STATION 30",, C*.3, C*.112, C*.016
  242. 2320     LPRINT "STATION 40",, C*.4, C*.11, C*.016
  243. 2325     LPRINT "STATION 50",, C*.5  ,C*.102, C*.014
  244. 2330     LPRINT "STATION 60",, C*.6, C*.086, C*.011
  245. 2335     LPRINT "STATION 70",,C*.7  ,C*.07, C*.006
  246. 2340     LPRINT "STATION 80",, C*.8, C*.051, C*.003
  247. 2345     LPRINT "STATION 90",, C*.9, C*.028, C*0
  248. 2350     LPRINT "STATION 95",, C*.95, C*.0169, C*.0014
  249. 2355     LPRINT "STATION 100",, C*1, C*.005, C*.005
  250. 2360     LPRINT CHR$(12)
  251. 2365     PRINT "DO YOU WANT TO DO ANOTHER LISTING? (YES=1,NO=0)"
  252. 2370     INPUT G
  253. 2375     IF G=1 THEN 10 ELSE 9999
  254. 2400     REM SUBROUTINE FOR GOETTINGEN 298 (FOKKER DR.1)
  255. 2405     PRINT CHR$(26)
  256. 2410     PRINT "        GOETTINGEN 298 AIRFOIL"
  257. 2415     PRINT
  258. 2420     PRINT "WING RIB DIMENSION PLOTTER"
  259. 2425     PRINT
  260. 2430     PRINT "INDEX CHORD OF WING RIB DESIRED"
  261. 2435     PRINT: DASH$=STRING$(80,45)
  262. 2440     INPUT "CHORD DESIRED IN INCHES (DECIMAL FRACTIONS ONLY)";C
  263. 2445     LPRINT DASH$
  264. 2450     LPRINT CHR$(29)CHR$(31)"DIMENSIONS FOR GOETTINGEN 298 @";C; "INCH CHORD"
  265. 2455     LPRINT CHR$(30)
  266. 2460     LPRINT DASH$
  267. 2465     LPRINT "STATION",, "OFFSET","UPPER","LOWER"
  268. 2470     LPRINT DASH$
  269. 2475     LPRINT "STATION 0",, C*0, C*.0444, C*.0444
  270. 2480     LPRINT "STATION 1.25",, C*.0125, C*.0722, C*.0178
  271. 2485     LPRINT "STATION 2.5",, C*.025, C*.0834, C*.0095
  272. 2490     LPRINT "STATION 5.0",, C*.05, C*.1006, C*.002
  273. 2495     LPRINT "STATION 7.5",, C*.075,C*.1118,C*0
  274. 2500     LPRINT "STATION 10",,C*.1  ,C*.1183, C*.0012
  275. 2505     LPRINT "STATION 15",, C*.15, C*.1296, C*.0041
  276. 2510     LPRINT "STATION 20",, C*.2, C*.1343, C*.0071
  277. 2515     LPRINT "STATION 30",, C*.3, C*.1361, C*.0118
  278. 2520     LPRINT "STATION 40",, C*.4, C*.132, C*.0148
  279. 2525     LPRINT "STATION 50",, C*.5  ,C*.1183, C*.0138
  280. 2530     LPRINT "STATION 60",, C*.6, C*.1006, C*.0125
  281. 2535     LPRINT "STATION 70",,C*.7  ,C*.0799, C*.0095
  282. 2540     LPRINT "STATION 80",, C*.8, C*.0544, C*.0071
  283. 2545     LPRINT "STATION 90",, C*.9, C*.029, C*.0047
  284. 2550     LPRINT "STATION 95",, C*.95, C*.0172, C*.003
  285. 2555     LPRINT "STATION 100",, C*1, C*.0059, C*0
  286. 2560     LPRINT CHR$(12)
  287. 2565     PRINT "DO YOU WANT TO DO ANOTHER LISTING? (YES=1,NO=0)"
  288. 2570     INPUT H
  289. 2575     IF H=1 THEN 10 ELSE 9999
  290. 9999  SYSTEM
  291.