1 REM Prgram to compute plotting coordinates for selected airfoils with 2 REM user provided chord dimension. Sub-routines for computing coordinates 3 REM based on a program developed by Dick Phillips. 4 REM Menu driven program by Curtis Givens. Note to users the current revision contains ordinate data for 7 airfoils. 5 REM Data was taken from the book Handbook of Airfoil Sections for Light Aircraft by M.S. Rice. 6 REM Should anyone choose to add additional airfoils please include remarks as to source 7 REM of data and continue revision numbering as started by the author. Rev 2.2 Dated 4 Mar 86. 8 PRINT CHR$(26) 9 PRINT " SELECT AN AIRFOIL FROM THE LIST BELOW":PRINT:PRINT 10 PRINT " LIST OF AIRFOILS":PRINT:PRINT 20 PRINT " 1. CLARK-Y" 30 PRINT " 2. NACA 24012" 40 PRINT " 3. NACA 25012" 50 PRINT " 4. CLARK YM-15" 60 PRINT " 5. NACA 0012" 70 PRINT " 6. EIFEL 430" 80 PRINT " 7. GOETTINGEN 298 FOKKER DR.1" 200 PRINT:PRINT "SELECT AIRFOIL BY NUMBER, 0 TO QUIT." 210 INPUT A 220 IF A=0 THEN 9999 230 IF A=1 THEN 500 ELSE 240 240 IF A=2 THEN 900 ELSE 250 250 IF A=3 THEN 1400 ELSE 260 260 IF A=4 THEN 1800 ELSE 270 270 IF A=5 THEN 2000 ELSE 280 280 IF A=6 THEN 2200 ELSE 290 290 IF A=7 THEN 2400 ELSE 400 400 IF A>7 THEN 200 500 REM SUBROUTINE FOR CLARK Y 510 PRINT CHR$(26) 520 PRINT " CLARK Y AIRFOIL" 530 PRINT 540 PRINT "WING RIB DIMENSION PLOTTER" 550 PRINT 560 PRINT "INDEX CHORD OF WING RIB DESIRED" 570 PRINT: DASH$=STRING$(80,45) 580 INPUT "CHORD DESIRED IN INCHES (DECIMAL FRACTIONS ONLY)";C 590 LPRINT DASH$ 600 LPRINT CHR$(29)CHR$(31)"DIMENSIONS FOR CLARK 'Y' @";C; "INCH CHORD" 610 LPRINT CHR$(30) 620 LPRINT DASH$ 630 LPRINT "STATION",, "OFFSET","UPPER","LOWER" 640 LPRINT DASH$ 650 LPRINT "STATION 0",, C*0, C*.035, C*.035 660 LPRINT "STATION 1.25",, C*.0125, C*.0545, C*.0193 670 LPRINT "STATION 2.5",, C*.025, C*.065, C*.0147 680 LPRINT "STATION 5.0",, C*.05, C*.079, C*.0093 690 LPRINT "STATION 7.5",, C*.075,C*.0885,C*.0063 700 LPRINT "STATION 10",,C*.1 ,C*.096, C*.0042 710 LPRINT "STATION 15",, C*.15, C*.1068, C*.0015 720 LPRINT "STATION 20",, C*.2, C*.1136, C*.0003 730 LPRINT "STATION 30",, C*.3, C*.117 740 LPRINT "STATION 40",, C*.4, C*.114 750 LPRINT "STATION 50",, C*.5 ,C*.1052 760 LPRINT "STATION 60",, C*.6, C*.0915 770 LPRINT "STATION 70",,C*.7 ,C*.0735 780 LPRINT "STATION 80",, C*.8, C*.0522 790 LPRINT "STATION 90",, C*.9, C*.028 800 LPRINT "STATION 95",, C*.95, C*.0149 810 LPRINT "STATION 100",, C*1, C*.0012 815 LPRINT "L.E. RADIUS = ", C*.0150 820 LPRINT CHR$(12) 830 PRINT "DO YOU WANT TO DO ANOTHER LISTING? (YES=1,NO=0)" 840 INPUT B 850 IF B=1 THEN 10 ELSE 9999 900 REM SUBROUTINE FOR NACA 24012 910 PRINT CHR$(26) 920 PRINT "NACA 24012 AIRFOIL" 930 PRINT 940 PRINT "PLOTTING DIMENSION PROGRAM" 950 PRINT 960 PRINT "ENTER FRACTIONS AS DECIMAL" 970 PRINT 980 INPUT "ENTER CHORD DESIRED FOR NACA 24012";C 990 PRINT:DASH$=STRING$(80,45) 1000 LPRINT DASH$ 1010 LPRINT CHR$(29)CHR$(31) "DIMENSIONS FOR NACA 24012 @";C;"INCHES" 1020 LPRINT CHR$(30) 1030 LPRINT DASH$ 1040 LPRINT "STATION",,"OFFSET","UPPER","LOWER" 1050 LPRINT DASH$ 1060 PRINT 1070 LPRINT "STATION 0",, C*0, C*0, C*0 1080 LPRINT "STATION 1.25",, C*.0125, C*.0258, C*-.0134 1090 LPRINT "STATION 2.5",, C*.025, C*.035, C*-.0185 1100 LPRINT "STATION 5.0",, C*.05, C*.048, C*-.0237 1110 LPRINT "STATION 7.5",, C*.075, C*.0574, C*-.027 1120 LPRINT "STATION 10",, C*.1, C*.0644, C*-.0295 1130 LPRINT "STATION 15",, C*.15, C*.0737, C*-.0334 1140 LPRINT "STATION 20",, C*.2, C*.0782, C*-.0366 1150 LPRINT "STATION 25",, C*.25, C*.0796, C*-.0392 1160 LPRINT "STATION 30",, C*.3, C*.0789, C*-.0411 1170 LPRINT "STATION 40",, C*.4, C*.0744, C*-.0417 1180 LPRINT "STATION 50",, C*.5, C*.0666, C*-.0393 1190 LPRINT "STATION 60",, C*.6, C*.0567, C*-.0347 1200 LPRINT "STATION 70",, C*.7, C*.0448, C*-.0284 1210 LPRINT "STATION 80",, C*.8, C*.0318, C*-.0207 1220 LPRINT "STATION 90",, C*.9, C*.0173, C*-.0118 1230 LPRINT "STATION 95",, C*.95, C*.0094, C*-.0067 1240 LPRINT "STATION 100",, C*1, C*.0013, C*-.0013 1245 LPRINT "L.E. RADIUS = ", C*.0158 1260 LPRINT CHR$(12) 1280 PRINT "DO YOU WANT TO DO ANOTHER LISTING? (YES=1,NO=0)" 1290 INPUT C 1300 IF C=1 THEN 10 ELSE 9999 1400 REM SUBROUTINE FOR NACA 25012 1410 PRINT CHR$(26) 1420 PRINT "NACA AIRFOIL 25012" 1430 PRINT 1440 PRINT "WING RIB PLOTTING PROGRAM" 1450 PRINT 1460 PRINT "DECIMAL FRACTIONS ONLY" 1470 PRINT:DASH$=STRING$ (80,45) 1480 INPUT "ENTERED CHORD DESIRED FOR NACA 25012";C 1490 LPRINT DASH$ 1500 LPRINT CHR$(29)CHR$(31) "DIMENSIONS FOR NACA 25012 @";C;"INCH CHORD" 1510 LPRINT CHR$(30) 1520 LPRINT DASH$ 1530 LPRINT "STATION",,"OFFSET","UPPER","LOWER" 1540 LPRINT DASH$ 1550 LPRINT "STATION 0",, C*0, C*0, C*0 1560 LPRINT "STATION 1.25",, C*.0125, C*.0248, C*-.0138 1570 LPRINT "STATION 2.5",, C*.025, C*.0337, C*-.0194 1580 LPRINT "STATION 5.0",, C*.05, C*.047, C*-.0249 1590 LPRINT "STATION 7.5",, C*.075, C*.0562, C*-.0282 1600 LPRINT "STATION 10",, C*.1, C*.0636, C*-.0304 1610 LPRINT "STATION 15",, C*.15, C*.0739, C*-.033 1620 LPRINT "STATION 20",, C*.2, C*.0797, C*-.0354 1630 LPRINT "STATION 25",, C*.25, C*.082, C*-.0368 1640 LPRINT "STATION 30",, C*.3, C*.0821, C*-.0379 1650 LPRINT "STATION 40",, C*.4, C*.0775, C*-.0387 1660 LPRINT "STATION 50",, C*.5, C*.0692, C*-.0367 1670 LPRINT "STATION 60",, C*.6, C*.0587, C*-.0327 1680 LPRINT "STATION 70",, C*.7, C*.0464, C*-.027 1690 LPRINT "STATION 80",, C*.8, C*.0327, C*-.0197 1700 LPRINT "STATION 90",, C*.9, C*.0178, C*-.0113 1710 LPRINT "STATION 95",, C*.95, C*.0098, C*-.0064 1720 LPRINT "STATION 100",, C*1, C*.0013, C*-.0013 1725 LPRINT "L.E. RADIUS = ", C*.0158 1740 LPRINT CHR$(12) 1760 PRINT "DO YOU WANT TO DO ANOTHER LISTING? (YES=1,NO=0)" 1770 INPUT D 1780 IF D=1 THEN 10 ELSE 9999 1800 REM SUBROUTINE FOR CLARK YM-15 1805 PRINT CHR$(26) 1810 PRINT " CLARK YM-15 AIRFOIL" 1815 PRINT 1820 PRINT "WING RIB DIMENSION PLOTTER" 1825 PRINT 1830 PRINT "INDEX CHORD OF WING RIB DESIRED" 1835 PRINT: DASH$=STRING$(80,45) 1840 INPUT "CHORD DESIRED IN INCHES (DECIMAL FRACTIONS ONLY)";C 1845 LPRINT DASH$ 1850 LPRINT CHR$(29)CHR$(31)"DIMENSIONS FOR CLARK 'YM-15' @";C; "INCH CHORD" 1855 LPRINT CHR$(30) 1860 LPRINT DASH$ 1865 LPRINT "STATION",, "OFFSET","UPPER","LOWER" 1870 LPRINT DASH$ 1875 LPRINT "STATION 0",, C*0, C*.035, C*.035 1880 LPRINT "STATION 1.25",, C*.0125, C*.0595, C*.0143 1885 LPRINT "STATION 2.5",, C*.025, C*.0721, C*.076 1890 LPRINT "STATION 5.0",, C*.05, C*.0888, C*-.0005 1895 LPRINT "STATION 7.5",, C*.075,C*.1001, C*-.0053 1900 LPRINT "STATION 10",,C*.1 ,C*.1089, C*-.0087 1905 LPRINT "STATION 15",, C*.15, C*.1217, C*-.0134 1910 LPRINT "STATION 20",, C*.2, C*.1296, C*-.0156 1915 LPRINT "STATION 30",, C*.3, C*.1335, C*-.0165 1920 LPRINT "STATION 40",, C*.4, C*.1301, C*-.0161 1925 LPRINT "STATION 50",, C*.5 ,C*.12, C*-.0148 1930 LPRINT "STATION 60",, C*.6, C*.1044, C*-.0129 1935 LPRINT "STATION 70",,C*.7 ,C*.0839, C*-.0104 1940 LPRINT "STATION 80",, C*.8, C*.0595, C*-.0074 1945 LPRINT "STATION 90",, C*.9, C*.032, C*-.004 1950 LPRINT "STATION 95",, C*.95, C*.017, C*-.0021 1955 LPRINT "STATION 100",, C*1, C*.0014, C*-.0002 1960 LPRINT CHR$(12) 1965 PRINT "DO YOU WANT TO DO ANOTHER LISTING? (YES=1,NO=0)" 1970 INPUT E 1975 IF E=1 THEN 10 ELSE 9999 2000 REM SUBROUTINE FOR NACA 0012 2005 PRINT CHR$(26) 2010 PRINT " NACA 0012 AIRFOIL" 2015 PRINT 2020 PRINT "WING RIB DIMENSION PLOTTER" 2025 PRINT 2030 PRINT "INDEX CHORD OF WING RIB DESIRED" 2035 PRINT: DASH$=STRING$(80,45) 2040 INPUT "CHORD DESIRED IN INCHES (DECIMAL FRACTIONS ONLY)";C 2045 LPRINT DASH$ 2050 LPRINT CHR$(29)CHR$(31)"DIMENSIONS FOR A NACA 0012 @";C; "INCH CHORD" 2055 LPRINT CHR$(30) 2060 LPRINT DASH$ 2065 LPRINT "STATION",, "OFFSET","UPPER","LOWER" 2070 LPRINT DASH$ 2075 LPRINT "STATION 0",, C*0, C*0, C*0 2080 LPRINT "STATION 1.25",, C*.0125, C*.0189, C*-.0189 2085 LPRINT "STATION 2.5",, C*.025, C*.0262, C*-.0262 2090 LPRINT "STATION 5.0",, C*.05, C*.0356, C*-.0356 2095 LPRINT "STATION 7.5",, C*.075,C*.042,C*-.042 2100 LPRINT "STATION 10",,C*.1 ,C*.0468, C*-.0468 2105 LPRINT "STATION 15",, C*.15, C*.0534, C*-.0534 2110 LPRINT "STATION 20",, C*.2, C*.0574, C*-.0574 2115 LPRINT "STATION 30",, C*.3, C*.0594, C*-.0594 2120 LPRINT "STATION 40",, C*.4, C*.06, C*-.06 2125 LPRINT "STATION 50",, C*.5 ,C*.058, C*-.058 2130 LPRINT "STATION 60",, C*.6, C*.0529, C*-.0529 2135 LPRINT "STATION 70",,C*.7 ,C*.0456, C*-.0456 2140 LPRINT "STATION 80",, C*.8, C*.0366, C*-.0366 2145 LPRINT "STATION 90",, C*.9, C*.0145, C*-.0145 2150 LPRINT "STATION 95",, C*.95, C*.0081, C*-.0081 2155 LPRINT "STATION 100",, C*1, C*.0013, C*-.0013 2160 LPRINT "ALT STA 100",, C*1, C*0, C*0 2165 LPRINT "L.E. RADIUS = ", C*.0158 2170 LPRINT CHR$(12) 2175 PRINT "DO YOU WANT TO DO ANOTHER LISTING? (YES=1,NO=0)" 2180 INPUT F 2185 IF F=1 THEN 10 ELSE 9999 2200 REM SUBROUTINE FOR EIFFEL 430 2205 PRINT CHR$(26) 2210 PRINT " EIFFEL 430 AIRFOIL" 2215 PRINT 2220 PRINT "WING RIB DIMENSION PLOTTER" 2225 PRINT 2230 PRINT "INDEX CHORD OF WING RIB DESIRED" 2235 PRINT: DASH$=STRING$(80,45) 2240 INPUT "CHORD DESIRED IN INCHES (DECIMAL FRACTIONS ONLY)";C 2245 LPRINT DASH$ 2250 LPRINT CHR$(29)CHR$(31)"DIMENSIONS FOR EIFFEL 430 @";C; "INCH CHORD" 2255 LPRINT CHR$(30) 2260 LPRINT DASH$ 2265 LPRINT "STATION",, "OFFSET","UPPER","LOWER" 2270 LPRINT DASH$ 2275 LPRINT "STATION 0",, C*0, C*.027, C*.027 2280 LPRINT "STATION 1.25",, C*.0125, C*.0509, C*.009 2285 LPRINT "STATION 2.5",, C*.025, C*.0621, C*.0042 2290 LPRINT "STATION 5.0",, C*.05, C*.0757, C*.0014 2295 LPRINT "STATION 7.5",, C*.075,C*.0848,C*0 2300 LPRINT "STATION 10",,C*.1 ,C*.091, C*.001 2305 LPRINT "STATION 15",, C*.15, C*.1017, C*.0048 2310 LPRINT "STATION 20",, C*.2, C*.106, C*.012 2315 LPRINT "STATION 30",, C*.3, C*.112, C*.016 2320 LPRINT "STATION 40",, C*.4, C*.11, C*.016 2325 LPRINT "STATION 50",, C*.5 ,C*.102, C*.014 2330 LPRINT "STATION 60",, C*.6, C*.086, C*.011 2335 LPRINT "STATION 70",,C*.7 ,C*.07, C*.006 2340 LPRINT "STATION 80",, C*.8, C*.051, C*.003 2345 LPRINT "STATION 90",, C*.9, C*.028, C*0 2350 LPRINT "STATION 95",, C*.95, C*.0169, C*.0014 2355 LPRINT "STATION 100",, C*1, C*.005, C*.005 2360 LPRINT CHR$(12) 2365 PRINT "DO YOU WANT TO DO ANOTHER LISTING? (YES=1,NO=0)" 2370 INPUT G 2375 IF G=1 THEN 10 ELSE 9999 2400 REM SUBROUTINE FOR GOETTINGEN 298 (FOKKER DR.1) 2405 PRINT CHR$(26) 2410 PRINT " GOETTINGEN 298 AIRFOIL" 2415 PRINT 2420 PRINT "WING RIB DIMENSION PLOTTER" 2425 PRINT 2430 PRINT "INDEX CHORD OF WING RIB DESIRED" 2435 PRINT: DASH$=STRING$(80,45) 2440 INPUT "CHORD DESIRED IN INCHES (DECIMAL FRACTIONS ONLY)";C 2445 LPRINT DASH$ 2450 LPRINT CHR$(29)CHR$(31)"DIMENSIONS FOR GOETTINGEN 298 @";C; "INCH CHORD" 2455 LPRINT CHR$(30) 2460 LPRINT DASH$ 2465 LPRINT "STATION",, "OFFSET","UPPER","LOWER" 2470 LPRINT DASH$ 2475 LPRINT "STATION 0",, C*0, C*.0444, C*.0444 2480 LPRINT "STATION 1.25",, C*.0125, C*.0722, C*.0178 2485 LPRINT "STATION 2.5",, C*.025, C*.0834, C*.0095 2490 LPRINT "STATION 5.0",, C*.05, C*.1006, C*.002 2495 LPRINT "STATION 7.5",, C*.075,C*.1118,C*0 2500 LPRINT "STATION 10",,C*.1 ,C*.1183, C*.0012 2505 LPRINT "STATION 15",, C*.15, C*.1296, C*.0041 2510 LPRINT "STATION 20",, C*.2, C*.1343, C*.0071 2515 LPRINT "STATION 30",, C*.3, C*.1361, C*.0118 2520 LPRINT "STATION 40",, C*.4, C*.132, C*.0148 2525 LPRINT "STATION 50",, C*.5 ,C*.1183, C*.0138 2530 LPRINT "STATION 60",, C*.6, C*.1006, C*.0125 2535 LPRINT "STATION 70",,C*.7 ,C*.0799, C*.0095 2540 LPRINT "STATION 80",, C*.8, C*.0544, C*.0071 2545 LPRINT "STATION 90",, C*.9, C*.029, C*.0047 2550 LPRINT "STATION 95",, C*.95, C*.0172, C*.003 2555 LPRINT "STATION 100",, C*1, C*.0059, C*0 2560 LPRINT CHR$(12) 2565 PRINT "DO YOU WANT TO DO ANOTHER LISTING? (YES=1,NO=0)" 2570 INPUT H 2575 IF H=1 THEN 10 ELSE 9999 9999 SYSTEM