100 REM "CPRESS" BARROWMAN CENTER OF PRESSURE PROGRAM 102 REM AUTHOR: MARTIN CATT 104 REM TRANSCRIBED FROM OCTOBER 1987 AMSPAM BY LARRY CURCIO 106 REM TRANSCRIBER ASSUMES NO RESPONSIBILITY FOR ACCURACY 108 REM ** DIGGIT! ** 110 FLAG$ = "*********************" 120 LET TOTFORCE = 0 130 LET TOTALMOM = 0 140 PRINT 150 PRINT "BARROWMAN CALCULATION" 160 PRINT FLAG$ 170 PRINT "ENTER UNIT OF MEASURE" 180 PRINT "FOR ALL DIMENSIONS" 190 PRINT "(INCHES, CM, ETC)" 200 INPUT UNIT$ 210 PRINT 220 PRINT FLAG$ 230 PRINT "*BARROWMAN CALCULATION*" 240 PRINT FLAG$ 250 IF TOTFORCE = 0 THEN 300 260 LET FINALCP = TOTALMOM / TOTFORCE 270 PRINT "CURRENT CP="; FINALCP 280 PRINT UNIT$; " FROM NOSE TIP" 290 PRINT FLAG$ 300 PRINT "0. QUIT" 310 PRINT "1. NOSE CONE" 320 PRINT "2. TRANSITION" 330 PRINT "3. FINS" 340 PRINT 350 PRINT 360 PRINT "SELECT OPTION (0-3)" 370 INPUT MENOPT 380 IF MENOPT > 3 THEN 210 390 IF MENOPT <= 0 THEN 1590 400 IF MENOPT = 1 THEN 530 410 IF MENOPT = 2 THEN 750 420 IF MENOPT = 3 THEN 930 430 REM ADD VALUES TO MOMENT/FORCE VARIABLES 440 LET TOTFORCE = TOTFORCE + COEFF 450 LET TOTALMOM = TOTALMOM + CPLOC * COEFF 460 PRINT 470 PRINT FLAG$ 480 PRINT "ITEM FORCE="; COEFF 490 PRINT "ITEM LOCATION ="; CPLOC 500 PRINT UNIT$; " FROM NOSE TIP" 510 PRINT FLAG$ 520 GOTO 210 530 REM NOSE CONE 540 PRINT 550 PRINT "NOSE CONES" 560 PRINT FLAG$ 570 PRINT "1. OGIVE" 580 PRINT "2. PARABOLIC" 590 PRINT "3. CONE" 600 PRINT 610 PRINT "ENTER NOSE CONE TYPE (1-3)" 620 INPUT MENOPT 630 IF MENOPT > 3 THEN 530 640 IF MENOPT < 1 THEN 530 650 LET COEFF = 2 660 PRINT "NOSE CONE LENGTH IN "; UNIT$ 670 INPUT NLEN 680 REM OGIVE 690 IF MENOPT = 1 THEN LET CPLOC = .466 * NLEN 700 REM PARABOLOID 710 IF MENOPT = 2 THEN LET CPLOC = NLEN / 2 720 REM CONE 730 IF MENOPT = 3 THEN LET CPLOC = .666 * NLEN 740 GOTO 430 750 REM CONICAL TRANSITION 760 PRINT 770 PRINT "CONICAL TRANSITION" 780 PRINT FLAG$ 790 PRINT "ENTER FOLLOWING ITEMS:" 800 PRINT "TRANS DIAMETER, NOSE END" 810 INPUT DF 820 PRINT "TRANS DIAMETER, REAR END" 830 INPUT DR 840 PRINT "LENGTH OF TRANSITION" 850 INPUT LT 860 PRINT "LENGTH, NOSE TIP TO TRANS FRONT" 870 INPUT XP 880 PRINT "DIAMETER NOSE CONE BASE" 890 INPUT D 900 LET COEFF = 2 * (((DR / D) ^ 2) - ((DF / D) ^ 2)) 910 LET CPLOC = XP + ((LT / 3) * (1 + ((1 - (DF / DR)) / (1 - (DF / DR) ^ 2)))) 920 GOTO 430 930 REM FINS 940 PRINT 950 PRINT "FINS" 960 PRINT FLAG$ 970 PRINT 980 PRINT "1. ELLIPTICAL" 990 PRINT "2. TRAPEZOIDAL" 1000 PRINT 1010 PRINT "ENTER FIN TYPE (1-2)" 1020 INPUT MENOPT 1030 IF MENOPT = 1 THEN 1360 1040 IF MENOPT = 2 THEN 1060 1050 GOTO 930 1060 REM TRAPEZOIDAL FIN 1070 PRINT 1080 PRINT "TRAPEZOIDAL FINS" 1090 PRINT FLAG$ 1100 PRINT "ENTER NUMBER OF FINS" 1110 INPUT NF 1120 PRINT "ENTER ITEMS IN "; UNIT$ 1130 PRINT "FIN ROOT CHORD" 1140 INPUT CR 1150 PRINT "FIN TIP CHORD" 1160 INPUT CT 1170 PRINT "SPAN RIGHT ANGLE": REM EVIDENTLY, WIDTH OF 1 FIN 1180 INPUT S 1190 PRINT "FIN SWEEPBACK": REM (ROOT TIP) - (TIP TIP) 1200 INPUT XR 1210 PRINT "DIA, TUBE AT FIN MOUNT" 1220 INPUT DFM 1230 PRINT "LENGTH, NOSE TIP TO ROOT TIP" 1240 INPUT XB 1250 PRINT "DIAMETER, NOSE CONE BASE" 1260 INPUT D 1270 LET R = DFM / 2 1280 LET LF = SQR(S ^ 2 + (XR + (CT / 2) - (CR / 2)) ^ 2) 1290 LET FT1 = 1 + (R / (S + R)) 1300 LET FT2 = 1 + SQR(1 + ((2 * LF) / (CR + CT)) ^ 2) 1310 LET COEFF = FT1 * (((NF * 4) * (S / D) ^ 2) / FT2) 1320 LET FT3 = CR + CT 1330 LET FT4 = (FT3 - ((CR * CT) / FT3)) / 6 1340 LET CPLOC = XB + ((XR / 3) * ((FT3 + CT) / FT3)) + FT4 1350 GOTO 430 1360 REM ELLIPTICAL FINS 1370 PRINT 1380 PRINT "ELLIPTICAL FINE" 1390 PRINT FLAG$ 1400 PRINT "ENTER NUMBER OF FINS" 1410 INPUT NF 1420 PRINT 1430 PRINT "ENTER ITEMS IN "; UNIT$ 1440 PRINT "FIN ROOT CHORD" 1450 INPUT CR 1460 PRINT "SPAN RIGHT ANGLE" 1470 INPUT S 1480 PRINT "DIA, TUBE AT FIN MOUNT" 1490 INPUT DFM 1500 PRINT "LENGTH, NOSE TIP TO ROOT TIP" 1510 INPUT XB 1520 PRINT "DIAMETER, NOSE CONE BASE" 1530 INPUT D 1540 LET R = DFM / 2 1550 LET FT5 = (4 * NF * (S / D) ^ 2) / (1 + SQR(1 + (1.623 * (S / CR) ^ 2))) 1560 LET COEFF = FT5 * (1 + R / (S + R)) 1570 LET CPLOC = XB + .288 * CR 1580 GOTO 430 1590 END