home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / educatin / mdlplne2.lbr / WINGLOAD.BQS / WINGLOAD.BAS
BASIC Source File  |  1986-08-09  |  3KB  |  99 lines
  1. 1  REM PROGRAM DEVELOPED BY DICK PHILLIPS
  2. 5  PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  3. 6  PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  4. 10 PRINT "WING AREA/LOADING CALCULATION - USE DECIMAL FRACTIONS ONLY"
  5. 20 PRINT
  6. 40 PRINT
  7. 50 PRINT "ENTER WING TYPE:"
  8. 55 PRINT
  9. 56 PRINT
  10. 60 PRINT "TAPER WING MONOPLANE = 1"
  11. 65 PRINT
  12. 70 PRINT "TAPER WING BI-PLANE = 2"
  13. 75 PRINT
  14. 80 PRINT "CONSTANT CHORD MONOPLANE = 3"
  15. 85 PRINT
  16. 90 PRINT "CONSTANT CHORD BI-PLANE = 4"
  17. 95 PRINT
  18. 100 INPUT A:PRINT
  19. 110 IF A=1 THEN 170
  20. 120 IF A=2 THEN 260
  21. 130 IF A=3 THEN 560
  22. 140 IF A=4 THEN 650
  23. 150 IF A <=0 THEN 770
  24. 160 IF A >4 THEN 770
  25. 170 PRINT "ENTER WING SPAN IN INCHES":PRINT
  26. 180 INPUT S:PRINT
  27. 190 PRINT  "ENTER ROOT CHORD,TIP CHORD IN INCHES (XX,XX):PRINT
  28. 200 INPUT R,T:PRINT
  29. 210 PRINT "ENTER WEIGHT IN POUNDS":PRINT
  30. 220 INPUT W:PRINT
  31. 230 PRINT "WING AREA IS "(((R+T/2)*S)/144) "SQUARE FEET"
  32. 235 PRINT
  33. 240 PRINT "WING LOADING IS" (W*16)/((((R+T)/2)*S)/144) "OUNCES PER SQ.FOOT"
  34. 245 PRINT:PRINT:PRINT
  35. 250 IF (S+R+T+W)>0 THEN 780
  36. 260 PRINT "IS TAPER THE SAME IN BOTH WINGS? (0=YES, ANY NUMBER = NO)":PRINT
  37. 270 INPUT B:PRINT
  38. 280 IF B <> 0 THEN 430
  39. 320 PRINT "ENTER UPPER WINGSPAN IN INCHES":PRINT
  40. 330 INPUT S1:PRINT
  41. 340 PRINT "ENTER LOWER WINGSPAN IN INCHES":PRINT
  42. 350 INPUT S2:PRINT
  43. 360 PRINT "ENTER ROOT CHORD, TIP CHORD IN INCHES (XX, XX)":PRINT
  44. 370 INPUT C1,C2:PRINT
  45. 380 PRINT "ENTER WEIGHT IN POUNDS":PRINT
  46. 390 INPUT W1:PRINT
  47. 400 PRINT "WING AREA IS" (((C1+C2)/2)*(S1+S2))/144 "SQUARE FEET"
  48. 405 PRINT
  49. 410 PRINT "WING LOADING IS" (W1*16)/((((C1+C2)/2)*(S1+S2))/144) "OOUNCES/SQ.FOOT"
  50. 415 PRINT:PRINT:PRINT
  51. 420 IF (W1+C1+C2+S1+S2)>0 THEN 780
  52. 430 PRINT "ENTER UPPER WINGSPAN IN INCHES":PRINT
  53. 440 INPUT S3:PRINT
  54. 450 PRINT "ENTER UPPER WING ROOT CHORD, TIP CHORD IN INCHES (XX,XX)":PRINT
  55. 460 INPUT C3,C4:PRINT
  56. 470 PRINT "ENTER LOWER WINGSPAN IN INCHES":PRINT
  57. 480 INPUT S4:PRINT
  58. 490 PRINT "ENTER LOWER WING ROOT CHORD, TIP CHORD IN INCHES (XX,XX)":PRINT
  59. 500 INPUT C5,C6:PRINT
  60. 510 PRINT "ENTER WEIGHT IN POUNDS":PRINT
  61. 520 INPUT W2:PRINT
  62. 530 PRINT "WING AREA IS" ((((C3+C4)/2)*S3)+(((C5+C6)/2)*S4))/144 "SQUARE FEET"
  63. 535 PRINT
  64. 540 PRINT "WING LOADING IS" (W2*16)/(((((C3+C4)/2)*S3)+(((C5+C6)/2)*S4))144)
  65. 545 PRINT "OUNCES PER SQUARE FOOT"
  66. 546 PRINT:PRINT:PRINT
  67. 550 IF (W2+C5+C6+S4+C3+C4+S3)>0 THEN 780
  68. 560 PRINT "ENTER WINGSPANE IN INCHES":PRINT
  69. 570 INPUT S5:PRINT
  70. 580 PRINT "ENTER CHORD IN INCHES":PRINT
  71. 590 INPUT D:PRINT
  72. 600 PRINT "ENTER WEIGHT IN POUNDS":PRINT
  73. 610 INPUT W3:PRINT
  74. 620 PRINT "WING AREA IS" (D*S5)/144 "SQUARE FEET"
  75. 625 PRINT
  76. 630 PRINT "WING LOADING IS" (W3*16)/((D*S5)/144) "OUNCES PER SQUARE FOOT"
  77. 635 PRINT:PRINT:PRINT
  78. 640 IF (W3+D+S5)>0 THEN 780
  79. 650 PRINT "ENTER UPPER WINGSPAN IN INCHES":PRINT
  80. 660 INPUT S6:PRINT
  81. 670 PRINT "ENTER UPPER WING CHORD IN INCHES":PRINT
  82. 680 INPUT C7:PRINT
  83. 690 PRINT "ENTER LOWER WINGSPAN IN INCHES":PRINT
  84. 700 INPUT S7:PRINT
  85. 710 PRINT "ENTER LOWER WING CHORD IN INCHES":PRINT
  86. 720 INPUT C8:PRINT
  87. 730 PRINT "ENTER WEIGHT IN POUNDS":PRINT
  88. 740 INPUT W4:PRINT
  89. 750 PRINT "WING AREA IS" ((S6*C7)+(S7*C8))/144 "SQUARE FEET"
  90. 755 PRINT
  91. 760 PRINT "WING LOADING IS" (W4*16)/(((S6*C7)+(S7*C8))/144) "OUNCES PER SQUARE FOOT"
  92. 765 PRINT:PRINT:PRINT
  93. 766 IF (W4+C8+S7+C7+S6)>0 THEN 780
  94. 770 PRINT "NO, NO, DUMMY, 1-2-3 OR 4, NOT " A ", STUPID!"
  95. 771 PRINT "_____________________________________________"
  96. 772 GOTO 50
  97. 780 END
  98. , NO, DUMMY, 1-2-3 OR 4, NOT " A ", STUPID!"
  99. 771 PRINT