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 / AIRPRNT.BQS / AIRPRNT.BAS
BASIC Source File  |  2000-06-30  |  5KB  |  156 lines
  1. 10   DIM A$(8),B$(9),C$(30)
  2. 20   PRINT "THIS PROGRAM WILL COMPUTE THE LOCATION OF"
  3. 30   PRINT "THE CENTER OF GRAVITY OF MOST CONVENTIONAL AND CANNARD DESIGN MODEL"
  4. 40   PRINT "AIRCRAFT. IN ADDITION, IT WILL FIND THE AERODYNAMIC CENTERS OF SURFACES"
  5. 50   PRINT "& INDICATE IF THE VERTICAL STABILIZER AREA OF CANNARD DESIGNS"
  6. 60   PRINT "IS OF ADEQUATE SIZE. OTHER FEATURES PROVIDE WING LOADING,"
  7. 70   PRINT "ENGINE POWER LOADING, AND AREAS OF SURFACES."
  8. 80   PRINT "WRITTEN BY BERNIE RAAD AND DICK SARPOLUS"
  9. 100  INPUT "MODEL DESIGNATION";C$
  10. 110  PRINT
  11. 140  PRINT TAB20,C$
  12. 160  PRINT
  13. 180  INPUT "TOTAL WINGSPAN";B4
  14. 200  INPUT "WING ROOT CHORD";R1
  15. 220  INPUT "WING TIP CHORD";T1
  16. 240  INPUT "LEAD EDGE SWEEP (FWD =-;BKWD =+)";D1
  17. 260  INPUT "HORIZ.STAB. TOTAL SPAN";B5
  18. 280  INPUT "STAB. ROOT CHORD";R2
  19. 300  INPUT "STAB.TIP CHORD";T2
  20. 320  INPUT "LEAD EDGE SWEEP (FWD =-;BKWD =+)";D2
  21. 340  INPUT "NUMBER OF VERTICAL FINS";V2
  22. 350  IF V2=0 THEN 460
  23. 360  INPUT "VERT. FIN HEIGHT";B3
  24. 390  INPUT "V.FIN ROOT CHORD";R3
  25. 410  INPUT "V.FIN TIP CHORD";T3
  26. 430  INPUT "LEAD EDGE SWEEP (FWD =-;BKWD =+)";D3
  27. 450  INPUT "FIN OFFSET FROM WING LEADING EDGE";L3
  28. 470  INPUT "ENTER 2 FOR CANNARD, 1 FOR OTHER";C
  29. 490  INPUT "DIST. BETWEEN H. STAB AND WING ROOTS";L1
  30. 510  INPUT "TOTAL WEIGHT IN ONCES";W1
  31. 530  INPUT "ENGINE SIZE IN CUBIC INCHES";E9
  32. 540  B1=B4/2
  33. 550  B2=B5/2
  34. 560  E1=R1^2+R1*T1+T1^2
  35. 570  E2=R2^2+R2*T2+T2^2
  36. 580  G1=R1+T1
  37. 590  G2=R2+T2
  38. 600  H1=R1+2*T1
  39. 610  H2=R2+2*T2
  40. 620  X1=E1/G1/6+D1/3*H1/G1
  41. 630  X2=E2/G2/6+D2/3*H2/G2
  42. 640  IF V2=0 THEN 690
  43. 650  E3=R3^2+R3*T3+T3^2
  44. 660  G3=R3+T3
  45. 670  H3=R3+2*T3
  46. 680  X3=E3/G3/6+D3/3*H3/G3
  47. 690  S1=B1/2*G1
  48. 700  S2=B2/2*G2
  49. 710  IF V2=0 THEN 730
  50. 720  S3=B3/2*G3
  51. 730  L=X1-X2+L1+R2
  52. 740  L7=W1/E9
  53. 750  IF C=1 THEN 810
  54. 760  P=L*S2/S1-E1/15/G1
  55. 770  L8=W1*72/(S1+S2)
  56. 780  L6=W1*72/S1
  57. 790  IF V2=0 THEN 860
  58. 800  GOTO 840
  59. 810  P=L*S2/S1/3-E1/15/G1
  60. 820  L8=W1*72/S1
  61. 830  IF C=1 THEN 860
  62. 840  F=P+L3+X3-X1
  63. 850  V=3*B1*S1/(100*F*S3)
  64. 860  LPRINT
  65. 870  LPRINT TAB20,"INPUT DATA"
  66. 880  LPRINT TAB20,"===== ===="
  67. 890  LPRINT
  68. 900  LPRINT "MAIN WING DIMENSIONS (INCH)"
  69. 910  LPRINT "---- ---- ---------- ------"
  70. 920  LPRINT "TOTAL SPAN =";B4
  71. 930  LPRINT "WING ROOT CHORD =";R1
  72. 940  LPRINT "WING TIP CHORD =";T1
  73. 950  LPRINT "LEAD EDGE TIP/ROOT OFFSET =";D1
  74. 960  LPRINT
  75. 970  LPRINT "HORIZONTAL STABILIZER DIMENSIONS (INCH)"
  76. 980  LPRINT "---------- ---------- ---------- ------"
  77. 990  LPRINT "TOTAL SPAN =";B5
  78. 1000 LPRINT "ROOT CHORD =";R2
  79. 1010 LPRINT "TIP CHORD =";T2
  80. 1020 LPRINT "LEAD EDGE TIP/ROOT OFFSET =";D2
  81. 1030 LPRINT "LENGTH OF FUSELAGE BETWEEN WING AND STAB =";L1
  82. 1040 LPRINT
  83. 1045 IF V2=0 THEN 1200
  84. 1050 LPRINT "VERTICAL FIN DIMENSIONS (INCH)"
  85. 1060 LPRINT "-------- --- ---------- ------"
  86. 1070 IF V2=1 THEN 1110
  87. 1090 LPRINT "THERE ARE";V2;"VERTICAL FINS"
  88. 1100 GOTO 1120
  89. 1110 LPRINT "THERE IS ONLY ONE VERTICAL FIN"
  90. 1120 LPRINT "FIN HEIGHT =";B3
  91. 1130 LPRINT "FIN ROOT CHORD =";R3
  92. 1140 LPRINT "FIN TIP CHORD =";T3
  93. 1150 LPRINT "LEAD EDGE TIP/ROOT OFFSET =";D3
  94. 1160 LPRINT "TOTAL WEIGHT OF THE AIRPLANE =";W1;"OUNCES"
  95. 1170 LPRINT "ENGINE SIZE =";E9;"CUBIC INCHES"
  96. 1180 LPRINT "FIN LEAD EDGE OFFSET RELATIVE TO WING LEAD EDGE AT ROOT =";L3
  97. 1190 GOTO 1230
  98. 1200 LPRINT
  99. 1210 LPRINT "TOTAL WEIGHT OF THE AIRPLANE =";W1;"OUNCES"
  100. 1220 LPRINT "ENGINE SIZE =";E9;"CUBIC INCHES"
  101. 1230 LPRINT
  102. 1240 LPRINT TAB20,"OUTPUT DATA"
  103. 1250 LPRINT TAB20,"====== ===="
  104. 1260 LPRINT 
  105. 1270 LPRINT "SURFACE AREAS IN SQUARE INCHES"
  106. 1280 LPRINT "TOTAL WING AREA =";2*S1
  107. 1290 LPRINT "TOTAL HORIZONTAL STAB AREA =";2*S2
  108. 1300 IF V2=0 THEN 1320
  109. 1310 LPRINT "TOTAL VERTICAL FIN AREA =";V2*S3
  110. 1320 LPRINT
  111. 1340 LPRINT "AERODYNAMIC CENTERS OF SURFACES (INCHES FROM L.E. AT FUSE.)"
  112. 1350 LPRINT "WING A.C. =";X1
  113. 1360 LPRINT "STAB A.C. =";X2
  114. 1370 IF V2=0 THEN 1390
  115. 1380 LPRINT "V. FIN A.C. =";X3
  116. 1390 LPRINT
  117. 1400 LPRINT
  118. 1410 IF C=1 THEN 1480
  119. 1420 F1=P-X1
  120. 1430 F2=F1*1.2
  121. 1440 LPRINT "CANNARD DESIGN C.G. IS ";F1;"TO";F2;"INCHES AHEAD OF L.E. AT FUSE"
  122. 1450 LPRINT "WING LOADING INCL STAB IS";L8;"OZ/SQ.FT."
  123. 1460 LPRINT "WING LOADING EXCL STAB IS";L6;"OZ/SQ.FT."
  124. 1470 GOTO 1520
  125. 1480 F3=P+X1
  126. 1490 F4=F3*.8
  127. 1500 LPRINT "CONVENTIONAL DESIGN C.G. IS";F3;"TO";F4;"INCHES BEHIND L.E. AT FUSE"
  128. 1510 LPRINT "WING LOADING EXCL STAB IS";L8;"OZ/SQ.FT."
  129. 1520 LPRINT "ENGINE LOADING IS";L7;"OZ/CUBIC INCH OF ENG.DISP."
  130. 1530 LPRINT 
  131. 1540 IF C=1 OR V2=0 THEN 1750
  132. 1550 LPRINT "THE V EQUATION YIEDS";V
  133. 1560 LPRINT
  134. 1570 IF V2=1 THEN 1610
  135. 1580 S6=3*B1*S1/(100*F)
  136. 1590 F6=3*B1*S1/(100*S3)
  137. 1600 GOTO 1630
  138. 1610 S6=3*B1*S1/(50*F)
  139. 1620 F6=3*B1*S1/(50*S3)
  140. 1630 P9=S3/S6*100
  141. 1640 IF P9>=100 THEN 1670
  142. 1650 A$="SMALLER"
  143. 1660 GOTO 1680
  144. 1670 A$="LARGER"
  145. 1680 L9=F6-P+X1-X3
  146. 1690 IF L9>=0 THEN 1720
  147. 1700 B$="AHEAD OF"
  148. 1710 GOTO 1730
  149. 1720 B$="BEHIND"
  150. 1730 LPRINT "VERTICAL FIN AREA IS ";A$;" THAN NEEDED. SUFFICIENT AREA WOULD BE"
  151. 1740 LPRINT (100*S6/S3)"% OF PRESENT DESIGN OR";(V2*S6);"SQ.IN. TOTAL"
  152. 1750 LPRINT
  153. 1770 END
  154. DED. SUFFICIENT AREA WOULD BE"
  155. 1740 LPRINT (100*S6/S3)"% OF PRESENT DESIGN OR";(V2*S6);"SQ.IN. TOTAL"
  156. 1750 LPRINT