Date: Tue, 9 Mar 93 20:47:20 GMT From: salanne@convex.csc.FI (Simo Salanne) Message-ID: <1993Mar9.204720.19201@nic.funet.fi> Organization: Finnish Academic and Research Network Project - FUNET Subject: Stunt Kite dimensioning software Dave Lord is a retired aerospace engineer, who has actively built kites for many years. I got the following "Design Aid" program from Dave with a suggestion; "feel free to give anyone a copy". The program will help in dimensioning some well known kite types and calculate some spar charasteristic figures. 1. DELTA STUNT KITE SIMILAR TO A SPIN OFF 2. DELTA STUNT KITE WITH BATTENS SIMILAR TO A TEAM KITE 3. DELTA STUNT KITE SIMILAR TO A FIRE DART 4. THREE SPAR KITE SIMILAR TO A BOOMER OR SPEED WING 5. DOUBLE SPINED KITE SIMILAR TO A EVOLUTION 6. QUAD LINE SIMILAR TO A REVOLUTION 7. QUAD LINE SYMETRICAL DOUBLE DIAMOND 8. CALCULATE SPAR RELATIVE STIFFNESS 9. CALCULATE SCALE FACTOR FOR A SPECIFIC SPAR SIZE The program has a short on line help text. It's written in BASIC and should run on most BASIC-interpreters. I gave it a try with GWBASIC on PC. I have not built any kites dimensioned with this program. (I got it from Dave today). I hope this program will help to find answers to some dimesioning related FAQ's. I would like to see opinions if the program is worth to be included in FAQ? Smooth Winds Simo Salanne =========================== CUT HERE ====================================== 10 CLS 20 REM ORIGINAL VERSION 1.0 6/15/90 30 PRINT" STUNT KITE DESIGN AID VERSION 1.02 11/1/90" 40 PRINT 50 PRINT" THIS PROGRAM WAS WRITTEN AS AN AID TO DESIGNING STUNT KITES. 60 PRINT" IT ALLOWS THE DESIGNER TO TRY MANY OPTIONS OF NOSE ANGLE AND SIZE 70 PRINT" BEFORE DECIDING ON A PARTICULAR COMBINATION. 80 PRINT" THE DESIGNER MAY ALSO GET AN APPROXIMATION OF WEIGHT,WING LOADING 90 PRINT" AND SPAR SUITABILITY TO HELP MAKE A JUDGEMENT OF MATERIELS TO USE. 100 PRINT: PRINT 110 PRINT" PROGRAM AUTHOR DAVID O. LORD 120 PRINT" ADRESS 15426 73RD ST. CT. EAST 130 PRINT" SUMNER, WASHINGTON 98390 140 PRINT" PHONE (206) 863 8435 150 PRINT:PRINT 160 PRINT" PRESS SPACE BAR TO CONTINUE ON TO KITE DESIGN PROGRAM 170 L$=INPUT$(1) 180 IF ASC(L$)=32 THEN 190 190 CLS 200 PRINT" SELECT SCREEN DISPLAY OPTION 210 PRINT 220 PRINT" 1. MONOCHROME MONITOR 230 PRINT" 2. COLOR MONITOR - WHITE TEXT ON BLUE BACKGROUND 240 PRINT" 3. COLOR MONITOR - BLUE TEXT ON WHITE BACKGROUND 250 PRINT" 4. COLOR MONITOR - GREEN TEXT ON BLACK BACKGROUND 260 PRINT" 5. COLOR MONITOR - WHITET EXT ON RED BACKGROUND 270 PRINT 280 INPUT" SELECT ONE OF THE ABOVE OPTIONS..................",J 290 IF J=1 THEN GOTO 340 300 IF J=2 THEN GOTO 350 310 IF J=3 THEN GOTO 360 320 IF J=4 THEN GOTO 370 330 IF J=5 THEN GOTO 380 ELSE 280 340 COLOR 7,0,0:GOTO 390 350 COLOR 15,1,1:GOTO 390 360 COLOR 1,7,7:GOTO 390 370 COLOR 2,0,0:GOTO 390 380 COLOR 15,4,4 390 CLS 400 PRINT" SELECT CANDIDATE DESIGN" 410 PRINT" 1. DELTA STUNT KITE SIMILAR TO A SPIN OFF" 420 PRINT" 2. DELTA STUNT KITE WITH BATTENS SIMILAR TO A TEAM KITE" 430 PRINT" 3. DELTA STUNT KITE SIMILAR TO A FIRE DART" 440 PRINT" 4. THREE SPAR KITE SIMILAR TO A BOOMER OR SPEED WING" 450 PRINT" 5. DOUBLE SPINED KITE SIMILAR TO A EVOLUTION" 460 PRINT" 6. QUAD LINE SIMILAR TO A REVOLUTION" 470 PRINT" 7. QUAD LINE SYMETRICAL DOUBLE DIAMOND" 480 PRINT" 8. CALCULATE SPAR RELATIVE STIFFNESS" 490 PRINT" 9. CALCULATE SCALE FACTOR FOR A SPECIFIC SPAR SIZE" 500 PRINT"10. VIEW NOTES ON PROGRAM USAGE" 510 PRINT"11. EXIT PROGRAM AND RETURN TO DOS" 520 PRINT: PRINT: 530 INPUT"SELECT ONE OF THE ABOVE OPTIONS......",O 540 IF O=1 THEN GOTO 650 550 IF O=2 THEN GOTO 1240 560 IF O=3 THEN GOTO 2010 570 IF O=4 THEN 6200 580 IF O=5 THEN 7250 590 IF O=6 THEN GOTO 2650 600 IF O=7 THEN GOTO 3420 610 IF O=8 THEN GOTO 4820 620 IF O=9 THEN GOTO 8940 630 IF O=10 THEN GOTO 5870 640 IF O=11 THEN GOTO 5860 650 CLS 660 CLEAR 670 PRINT" THIS MODULE CALCULATES SPAR,SAIL,AND BRIDLE DIMENSIONS FOR THE SELECTED OPTION" 680 PRINT 690 PRINT" USER MUST SPECIFY LEADING EDGE SPAR LENGTH AND NOSE 1/2 ANGLE" 700 PRINT 710 PRINT" NOTE-A STANDARD SPIN OFF HAS 65 INCHES LEADING EDGE AND 48 DEGREES 1/2 ANGLE 720 PRINT 730 INPUT" ENTER LEADING EDGE SPAR LENGTH,ONE SIDE(INCHES)................=",C 740 PRINT 750 INPUT" ENTER NOSE 1/2 ANGLE,SAIL CENTER LINE TO LEADING EDGE(DEGREES).=",A 760 PRINT 770 GOSUB 4000 780 RD=1.745329E-02 790 CX=C*.712 800 CU=C*.241 810 CC=CX-2.5 820 CP=CU-2.5 830 B=180-86-A 840 BD=(SIN(B*RD)*CX)-.8 850 BX=BD+1.5 860 AL=(CX*SIN(A*RD))-1.9 870 AU=2*CU*SIN(A*RD)-1.5 880 AS=A+AB 890 CS=C 900 BS=BX-3.5 910 DX=BX*BX+CU*CU-2*BX*CU*COS(A*RD) 920 BR=SQR(DX) 930 BU=BR*1.63457 940 MZ=.60119 950 BL=MZ*BU 960 GOSUB 4070 970 CLS 980 PRINT" DIMENSIONS FOR CANDIDATE KITE":PRINT 990 PRINT" LEADING EDGE SPAR LENGTH (EACH SIDE).........................=";C 1000 PRINT" SPINE LENGTH.................................................=";BD 1010 PRINT" LOWER SPREADER LENGTH (EACH SIDE)............................=";AL 1020 PRINT" UPPER SPREADER LENGTH........................................=";AU 1030 PRINT" SAIL NOSE 1/2 ANGLE (CENTER LINE TO LEADING EDGE)............=";AS 1040 PRINT" SAIL LEADING EDGE LENGTH (EACH SIDE).........................=";CS 1050 PRINT" SAIL CENTER LINE LENGTH......................................=";BS 1060 PRINT" NOSE TO UPPER SPREADER ATTACH POINT ON LEADING EDGE..........=";CP 1070 PRINT" NOSE TO LOWER SPREADER ATTACH POINT ON LEADING EDGE..........=";CC 1080 PRINT" BRIDLE LENGTH (UPPER ATTACH POINT TO SPINE T JOINT...........=";BU 1090 PRINT" BRIDLE LENGTH (LOWER ATTACH POINT TO SWIVEL).................=";BL 1100 PRINT" APPROXIMATE SAIL AREA(IN SQUARE FEET)........................=";AA 1110 PRINT" APPROXIMATE WEIGHT OF KITE (IN OZ.)..........................=";WL 1120 PRINT" APPROXIMATE WING LOADING (OZ PER SQUARE FOOT)................=";WO 1130 PRINT" AFTER SAIL IS LAYED OUT TRUNCATE NOSE BY MEASUREING 2.5 INCHES ALONG THE LEADING EDGE THEN TRIM PERPENDICULAR TO THE SAIL CENTER LINE. 1140 PRINT 1150 PRINT" TYPE R TO RECALCULATE USING NEW LENGTH OR ANGLE,TYPE M FOR MENU" 1160 PRINT" TYPE W TO PROCEED TO WEIGHT ESTIMATION MODULE 1170 R$=INPUT$(1) 1180 IF R$="R" THEN 650 1190 IF R$="r" THEN 650 1200 IF R$="m" THEN 390 1210 IF R$="M" THEN 390 1220 IF R$="W" THEN 4360 1230 IF R$="w" THEN 4360 ELSE 1150 1240 CLS 1250 CLEAR 1260 PRINT" THIS MODULE CALCULATES SPAR,SAIL,AND BRIDLE DIMENSIONS FOR THE SELECTED OPTION" 1270 PRINT 1280 PRINT" USER MUST SPECIFY LEADING EDGE SPAR LENGTH AND NOSE 1/2 ANGLE" 1290 PRINT 1300 PRINT" NOTE-A STANDARD TEAM KITE HAS 65 INCHES LEADING EDGE AND 48 DEGREES 1/2 ANGLE" 1310 PRINT 1320 INPUT" ENTER LEADING EDGE SPAR LENGTH,ONE SIDE(INCHES)..............=",C 1330 PRINT 1340 INPUT" ENTER NOSE 1/2 ANGLE,SAIL CENTER LINE TO LEADING EDGE(DEGREES).=",A 1350 PRINT 1360 GOSUB 4000 1370 RD=1.745329E-02 1380 CX=C*.712 1390 CU=C*.241 1400 CO=CX-2.5 1410 CN=CU-2.3 1420 B=180-86-A 1430 BD=(SIN(B*RD)*CX)-.8 1440 BX=BD+1.5 1450 AL=CX*SIN(A*RD)-(1.9) 1460 AU=2*CU*SIN(A*RD)-(1.5) 1470 AS=A+AB 1480 CS=C 1490 BS=BD-2! 1500 DX=BX*BX+CU*CU-2*BX*CU*COS(A*RD) 1510 BR=SQR(DX) 1520 BU=BR*1.7805138# 1530 MZ=.4153 1540 BL=MZ*BU 1550 BA=.6226415*AS 1560 BB=AS-BA 1570 BJ=C*SIN(AS*RD) 1580 CB=SQR((C*C)-(BJ*BJ)) 1590 CR=180-90-AS 1600 BC=180-90-BA 1610 CC=180-BC 1620 CJ=CR+(.056603*AS) 1630 PB=CS*SIN(CR*RD)/SIN(CC*RD) 1640 DD=CB*SIN(BA*RD)/SIN(BC*RD) 1650 DN=BJ-DD 1660 DV=(.056603*AS) 1670 DJ=180-DV-BC 1680 DP=DN*SIN(DV*RD)/SIN(DJ*RD) 1690 PZ=PB+DP 1700 LB=PZ+2 1710 GOSUB 4170 1720 CLS 1730 PRINT" DIMENSIONS FOR CANDIDATE KITE":PRINT 1740 PRINT" LEADING EDGE SPAR LENGTH (EACH SIDE).........................=";C 1750 PRINT" SPINE LENGTH (FROM SPINE TIP TO CENTER T)....................=";BD 1760 PRINT" LOWER SPREADER LENGTH (EACH SIDE)............................=";AL 1770 PRINT" UPPER SPREADER LENGTH........................................=";AU 1780 PRINT" BATTEN LENGTH (EACH SIDE)....................................=";LB 1790 PRINT" SAIL NOSE 1/2 ANGLE (CENTER LINE TO LEADING EDGE)............=";AS 1800 PRINT" BATTEN POCKET ANGLE TO SAIL CENTER LINE......................=";BA 1810 PRINT" BATTEN POCKET LENGTH.........................................=";PZ 1820 PRINT" SAIL LEADING EDGE LENGTH (EACH SIDE).........................=";CS 1830 PRINT" SAIL CENTER LINE LENGTH......................................=";BS 1840 PRINT" NOSE TO UPPER SPREADER ATTACH POINT ON LEADING EDGE..........=";CN 1850 PRINT" NOSE TO LOWER SPREADER ATTACH POINT ON LEADING EDGE..........=";CO 1860 PRINT" BRIDLE LENGTH (UPPER ATTACH POINT TO SPINE T JOINT...........=";BU 1870 PRINT" BRIDLE LENGTH (LOWER ATTACH POINT TO SWIVEL).................=";BL 1880 PRINT" APPROXIMATE SAIL AREA(IN SQUARE FEET)........................=";AI 1890 PRINT" APPROXIMATE WEIGHT OF KITE (IN OZ.)..........................=";WL 1900 PRINT" APPROXIMATE WING LOADING (OZ PER SQUARE FOOT)................=";XB 1910 PRINT" AFTER SAIL IS LAYED OUT TRUNCATE NOSE BY MEASUREING 2.5 INCHES ALONG THE LEADING EDGE THEN TRIM PERPENDICULAR TO THE SAIL CENTER LINE. 1920 PRINT" TYPE R TO RECALCULATE USING NEW LENGTH OR ANGLE,TYPE M FOR MENU" 1930 PRINT" TYPE W TO PROCEED TO WEIGHT ESTIMATION MODULE 1940 R$=INPUT$(1) 1950 IF R$="R" THEN 1240 1960 IF R$="r" THEN 1240 1970 IF R$="m" THEN 390 1980 IF R$="M" THEN 390 1990 IF R$="W" THEN 4360 2000 IF R$="w" THEN 4360 ELSE 1920 2010 CLS 2020 CLEAR 2030 PRINT" THIS MODULE CALCULATES SPAR,SAIL,AND BRIDLE DIMENSIONS FOR THE SELECTED OPTION" 2040 PRINT 2050 PRINT" USER MUST SPECIFY LEADING EDGE SPAR LENGTH AND NOSE 1/2 ANGLE" 2060 PRINT 2070 PRINT" NOTE-A FIRE DART HAS 64 INCHES LEADING EDGE AND 54 DEGREES 1/2 ANGLE" 2080 PRINT 2090 INPUT" ENTER LEADING EDGE SPAR LENGTH,ONE SIDE(INCHES)..............=",C 2100 PRINT 2110 INPUT" ENTER NOSE 1/2 ANGLE,SAIL CENTER LINE TO LEADING EDGE(DEGREE)=",A 2120 PRINT 2130 GOSUB 4000 2140 RD=1.745329E-02 2150 CX=C*.682 2160 CU=C*.225 2170 B=180-90-A 2180 BX=SIN(B*RD)*CX 2190 BD=SIN(B*RD)*C 2200 AL=CX*SIN(A*RD)-.5 2210 AU=2*CU*SIN(A*RD)-.5 2220 AS=A+AB 2230 CS=C 2240 BS=BD+1 2250 DX=BX*BX+CU*CU-2*BX*CU*COS(A*RD) 2260 BR=SQR(DX) 2270 BU=BR*1.58 2280 MZ=.71 2290 BL=MZ*BU 2300 DA=.64814*A 2310 DE=90-DA 2320 DF=BS-BX 2330 DG=DF/SIN(DE*RD) 2340 GOSUB 4280 2350 CLS 2360 PRINT" DIMENSIONS FOR CANDIDATE KITE":PRINT 2370 PRINT" LEADING EDGE SPAR LENGTH (EACH SIDE).........................=";C 2380 PRINT" SPINE LENGTH.................................................=";BD 2390 PRINT" LOWER SPREADER LENGTH (EACH SIDE)............................=";AL 2400 PRINT" UPPER SPREADER LENGTH........................................=";AU 2410 PRINT" SAIL NOSE 1/2 ANGLE (CENTER LINE TO LEADING EDGE)............=";AS 2420 PRINT" SAIL LEADING EDGE LENGTH (EACH SIDE).........................=";CS 2430 PRINT" SAIL CENTER LINE LENGTH......................................=";BS 2440 PRINT" ANGLE FROM SAIL CENTER LINE TO TRAILING EDGE NOTCH (DEGREES).=";DA 2450 PRINT" LENGTH FROM SAIL BOTTOM CENTER TO TRAILING EDGE NOTCH........=";DG 2460 PRINT" COMPLETE TRAILING EDGE BY CONNECTING SAIL TIP TO NOTCH 2470 PRINT" NOSE TO UPPER SPREADER ATTACH POINT ON LEADING EDGE..........=";CU 2480 PRINT" NOSE TO LOWER SPREADER ATTACH POINT ON LEADING EDGE..........=";CX 2490 PRINT" NOSE TO LOWER SPREADER T JOINT ON SPINE......................=";BX 2500 PRINT" BRIDLE LENGTH (UPPER ATTACH POINT TO SPINE T JOINT...........=";BU 2510 PRINT" BRIDLE LENGTH (LOWER ATTACH POINT TO SWIVEL).................=";BL 2520 PRINT" APPROXIMATE SAIL AREA(IN SQUARE FEET)........................=";AF 2530 PRINT" APPROXIMATE WEIGHT OF KITE (IN OZ.)..........................=";WL 2540 PRINT" APPROXIMATE WING LOADING (OZ PER SQUARE FOOT)................=";XC 2550 PRINT" AFTER SAIL IS LAYED OUT TRUNCATE NOSE BY MEASURING 2 INCHES ALONG LEADING EDGE AND CUT PERPENDICULAR TO SAIL CENTER LINE. 2560 PRINT" TYPE R TO RECALCULATE USING NEW LENGTH OR ANGLE,TYPE M FOR MENU" 2570 PRINT" TYPE W TO PROCEED TO WEIGHT ESTIMATION MODULE 2580 R$=INPUT$(1) 2590 IF R$="R" THEN 2010 2600 IF R$="r" THEN 2010 2610 IF R$="m"THEN 390 2620 IF R$="M" THEN 390 2630 IF R$="W" THEN 4360 2640 IF R$="w" THEN 4360 ELSE 2560 2650 CLS 2660 CLEAR 2670 PRINT" THIS MODULE CALCULATES SPAR,SAIL AND BRIDLE DIMENSIONS FOR THE SELECTED OPTION" 2680 PRINT 2690 PRINT" USER MUST SPECIFY MAIN SPAR AND SAIL SPAR LENGTHS (TWO SAIL SPARS REQUIRED) 2700 PRINT 2710 PRINT" USER MUST ALSO SPECIFY SAIL OUTSIDE EDGE ANGLE TO MAIN SPAR" 2720 PRINT 2730 PRINT" NOTE-A STANDARD REVOLUTION HAS A 108 INCH MAIN SPAR, 36 INCH SAIL SPARS AND AN ANGLE OF 65 DEGREES FOR THE OUTSIDE EDGE" 2740 PRINT 2750 INPUT" ENTER MAIN SPAR LENGTH .......................................=",EL 2760 PRINT 2770 INPUT" ENTER SAIL SPAR LENGTH .......................................=",ES 2780 PRINT 2790 INPUT" ENTER SAIL OUTSIDE EDGE ANGLE TO MAIN SPAR ...................=",EA 2800 RD=.0175329 2810 EH=.0625*EL 2820 JE=(65-EA)*.0428 2830 LA=31+JE 2840 LB=(EL/2)-LA-2 2850 EB=(LB/ES)*SIN(EA*RD) 2860 EC=ATN(EB/SQR(1+EB*-EB)) 2870 ED=180-EA-(EC*57.3) 2880 DD=ES-2.75 2890 EM=(DD*SIN(ED*RD)/SIN(EA*RD))-.75 2900 EF=180-ED 2910 ET=(DD*DD+LA*LA)-(2*DD*LA*COS(EF*RD)) 2920 EP=SQR(ET) 2930 AE=(ES/EP)*SIN(EF*RD) 2940 AB=ATN(AE/SQR(1+AE*-AE)) 2950 AT=90-(AB*57.3) 2960 AG=(LA+LB)*(DD*SIN(EA*RD)) 2970 AH=EP*(EH*SIN(AT*RD)) 2980 AI=(AG+AH)/144 2990 EK=1.1388888#*EL 3000 EJ=.22685*EL 3010 ER=3 3020 EX=.28703*EL 3030 EE=3 3040 EW=4 3050 FA=.25*ES 3060 FB=3 3070 FC= .68055*ES 3080 FG=6 3090 FH=.29166*ES 3100 CLS 3110 PRINT" DIMENSIONS FOR CANDIDATE KITE":PRINT 3120 PRINT" MAIN SPAR LENGTH ............................................=";EL 3130 PRINT" SAIL SPARS LENGTH (2 REQUIRED)...............................=";ES 3140 PRINT" OUTSIDE SAIL EDGE ANGLE TO MAIN SPAR.........................=";EA 3150 PRINT" SAIL OUTSIDE EDGE LENGTH.....................................=";EM 3160 PRINT" SAIL SPAR ATTACH POINT TO MAIN SPAR(INCHES FROM SPAR CENTER).=";LA 3170 PRINT" WAIST DEPTH AT MAIN SPAR CENTER..............................=";EH 3180 PRINT" LONGITUDINAL BRIDLE LENGTH (END LOOP TO END LOOP)............=";EK 3190 PRINT" LONGITUDINAL BRIDLE LENGTH(SPAR END TO SWIVEL KNOT)..........=";EJ 3200 PRINT" LONGITUDINAL BRIDLE LENGTH (SWIVEL LOOP TOTAL LENGTH)........=";ER 3210 PRINT" LONGITUDINAL BRIDLE LENGTH (SWIVEL KNOT TO CENTER KNOT)......=";EX 3220 PRINT" LONGITUDINAL BRIDLE LENGTH (CENTER LOOP TOTAL LENGTH)........=";EE 3230 PRINT" LONGITUDINAL BRIDLE LENGTH (LOOP AROUND CENTER SPAR LENGTH)..=";EW 3240 PRINT" VERTICAL BRIDLE LENGTH (TOP OF SAIL SPAR TO SWIVEL KNOT).....=";FA 3250 PRINT" VERTICAL BRIDLE LENGTH (SWIVEL LOOP TOTAL LENGTH)............=";FB 3260 PRINT" VERTICAL BRIDLE LENGTH (SWIVEL KNOT TO LOWER KNOT)...........=";FC 3270 PRINT" VERTICAL BRIDLE LENGTH (LOWER LINE ATTACH LOOP TOTAL LENGTH).=";FG 3280 PRINT" VERTICAL BRIDLE LENGTH (LOWER KNOT TO BOTTOM OF SPAR)........=";FH 3290 PRINT" APPROXIMATE SAIL AREA(IN SQUARE FEET)........................=";AI 3300 PRINT" APPROXIMATE WEIGHT OF KITE (IN OZ.)..........................=";ZH 3310 PRINT" APPROXIMATE WING LOADING (OZ. PER SQUARE FOOT)...............=";ZI 3320 PRINT 3330 PRINT" TYPE R TO RECALCULATE USING NEW LENGTH OR ANGLE,TYPE M FOR MENU" 3340 PRINT" TYPE W TO PROCEED TO WEIGHT ESTIMATION MODULE 3350 R$=INPUT$(1) 3360 IF R$="R" THEN 2650 3370 IF R$="r" THEN 2650 3380 IF R$="m" THEN 390 3390 IF R$="M" THEN 390 3400 IF R$="W" THEN 4360 3410 IF R$="w" THEN 4360 ELSE 3330 3420 CLS 3430 CLEAR 3440 PRINT 3450 PRINT" THIS KITE WAS CONCIEVED BY DEAN BIGLER OF THE KGB BOISE IDAHO 3460 PRINT:PRINT 3470 PRINT" USER MUST SPECIFY THE VERTICAL AXIS AND THE HORIZONTAL AXIS LENGTHS FOR A SAIL HALF 3480 PRINT 3490 PRINT" A STANDARD KITE HAS 37 IN. VERTICAL AND HORIZONMTAL SPARS. 3500 PRINT 3510 INPUT" ENTER VERTICAL AXIS SPAR LENGTH..........................=",DA 3520 PRINT 3530 INPUT" ENTER HORIZONTAL AXIS SPAR LENGTH........................=",DB 3540 DV=DA+.5 3550 DH=DB+.5 3560 DC=1.27842*DB 3570 DD=.51686*DA 3580 DE=.3027*DA 3590 DF=((DA*DB)+(DE*DE))/144 3600 CLS 3610 PRINT" DIMENSIONS FOR SYMETRICAL DOUBLE DIAMOND QUAD LINE KITE" 3620 PRINT 3630 PRINT" VERTICAL SPAR LENGTH (2 REQUIRED)............................=";DA 3640 PRINT" HORIZONTAL SPAR LENGTH (2 REQUIRED, JOINED BY A FERRULE).....=";DB 3650 PRINT" SAIL VERTICAL AXIS...........................................=";DV 3660 PRINT" SAIL HORIZONTAL AXIS.........................................=";DH 3670 PRINT" HORIZONTAL BRIDLE LENGTH (4 REQUIRED)........................=";DC 3680 PRINT" VERTICAL BRIDLE LENGTH (4 REQUIRED)..........................=";DD 3690 PRINT" CENTER GUSSET DIMENSION......................................=";DE 3700 PRINT" APPROXIMATE SAIL AREA (IN SQUARE FEET).......................=";DF 3710 PRINT" APPROXIMATE WEIGHT OF KITE (IN OZ.)..........................=";DL 3720 PRINT" APPROXIMATE WING LOADING (OZ. PER SQUARE FOOT)...............=";DM 3730 PRINT:PRINT 3740 PRINT" TYPE R TO RECALCULATE USING NEW PARAMETERS OR TYPE M FOR MAIN MENU 3750 PRINT" TYPE W TO PROCEED TO WEIGHT ESTIMATION MODULE OR ANY OTHER KEY FOR CONSTRUCTION NOTES 3760 R$=INPUT$(1) 3770 IF R$="R" THEN 3420 3780 IF R$="r" THEN 3420 3790 IF R$="W" THEN 4360 3800 IF R$="w" THEN 4360 3810 IF R$="M" THEN 390 3820 IF R$="m" THEN 390 ELSE 3830 3830 CLS 3840 PRINT" CONSTRUCTION NOTES FOR SYMETRICAL DOUBLE DIAMOND KITE 3850 PRINT" 4. USE A SPLIT RING AT THE KITE CENTER TO ATTACH THE FOUR HORIZONTAL BRIDLE LINES. USE A LOOP TO ATTACH THE SPLIT RING TO THE HORIZONTAL SPAR. A LARKSHEAD KNOT WORKS WELL ON THE SPAR AND ON THE SPLIT RING. 3860 PRINT 3870 PRINT" 1. TO LAY OUT SAIL PATTERN, CONSTRUCT TWO LINES AT 90 DEGREES TO EACH OTHER. AT THEIR INTERSECTION MEASURE ONE HALF THE SAIL VERTICAL AXIS LENGTH IN THE + VERTICAL DIRECTION AND MARK THE POINT. 3880 PRINT" 2. REPEAT IN THE - VERTICAL DIRECTION AND MARK THE POINT. 3890 PRINT" 3. THE SAIL DIMENSIONS TAKE IN TO ACCOUNT A QUARTER INCH ALLOWANCE AROUND EACH SAIL HALF FOR HEMMING. 3900 PRINT" 4. AT THE CENTER OF THE KITE MEASURE ALONG THE UPPER VERTICAL EDGES THE DISTANCE GIVEN AS CENTER GUSSET DIMENSION. THEN CONNECT WITH A HORIZONTAL LINE FROM SAIL HALF TO SAIL HALF. REPEAT FOR THE LOWER VERTICAL EDGES. 3910 PRINT" 5. CONSTRUCT FROM 3 INCH WIDE DACRON A DIAMOND SHAPED REINFORCMENT TO PROTECT THE KITE CENTER FROM THE SPLIT RING LOOP WEAR. 3920 PRINT" 6. CONSTRUCT 12 EACH DACRON TRIANGLES. SIX ARE FOR TIP REINFORCING ON THE FRONT SIDE OF THE SAIL AND SIX ON THE SAIL BACK SIDE FORM SPAR POCKETS AS WELL AS REINFORCING. 3930 PRINT" 7. CONSTRUCT AND SEW IN AN X ARRANGEMENT TWO SETS OF DACRON STRAPS TO BE SEWN ON THE BACKSIDE CENTER OF EACH SAIL HALF WHERE THE SPARS CROSS. THESE STRAPS WILL STABILZE THE SPARS WITH RESPECT TO THE SAIL. 3940 PRINT" 8. USE A SPLIT RING AT THE KITE CENTER TO ATTACH THE FOUR HORIZONTAL BRIDLE LINES. USE A LOOP TO ATTACH THE SPLIT RING TO THE HORIZONTAL SPAR. A LARKSHEAD KNOT WORKS WELL ON THE SPAR AND ON THE SPLIT RING. 3950 PRINT" 9. USE A SPLIT RING AT EACH END OF THE KITE TO ATTACH THE TWO HORIZONTAL BRIDLE LINES. 3960 PRINT" TYPE M TO RETURN TO THE MAIN MENU 3970 M$=INPUT$(1) 3980 IF M$="M"THEN 390 3990 IF M$="m"THEN 390 ELSE 3960 4000 INPUT" ENTER SAIL BILLOW, 1 FOR TITE, 2 FOR MEDIUM OR 3 FOR LOOSE...=",SB 4010 IF SB=1 THEN AB=3 4020 IF SB=2 THEN AB=5 4030 IF SB=3 THEN AB=7 4040 IF SB>3 THEN 4000 4050 IF SB<1 THEN 4000 4060 RETURN 4070 QB=CS*SIN(A*RD) 4080 QR=CS*CS 4090 QS=QB*QB 4100 QC=SQR(QR-QS) 4110 QD=QB*QC 4120 QE=QC-BS 4130 QF=QB*QE 4140 AG=QD-QF-3 4150 AA=AG/144 4160 RETURN 4170 QB=CS*SIN(AS*RD) 4180 QR=CS*CS 4190 QS=QB*QB 4200 QC=SQR(QR-QS) 4210 QD=QB*QC 4220 QH=DD 4230 QE=QC-BS 4240 QP=QH*QE 4250 QQ=QD-QP 4260 AI=QQ/144 4270 RETURN 4280 AN=C*SIN(A*RD) 4290 DJ=90-DA 4300 DT=AN*BD 4310 DL=DG*SIN(DJ*RD) 4320 DM=AN*DL 4330 DZ=DT-DM 4340 AF=DZ/144 4350 RETURN 4360 PRINT" THIS MODULE ESTIMATES THE KITES WEIGHT 4370 PRINT" TYPE T TO REVIEW SPAR WEIGHT TABLE - SPAR OZ/FT DATA REQUIRED NEXT 4380 PRINT" TYPE R TO REVIEW SKYROD SPAR TABLE-SPAR DATA REQUIRED NEXT 4390 T$=INPUT$(1) 4400 IF T$="R" THEN 8100 4410 IF T$="r" THEN 8100 4420 IF T$="T"THEN 5380 4430 IF T$="t"THEN 5380 4440 IF T$="P"THEN 4460 4450 IF T$="p"THEN 4460 ELSE 4370 4460 PRINT" TYPE S TO CALCULATE WEIGHT FOR A SPIN OFF,TEAM OR FIRE DART TYPE KITE 4470 PRINT" TYPE R TO CALCULATE WEIGHT FOR A REVOLUTION OR DOUBLE DIAMOND KITE 4480 R$=INPUT$(1) 4490 IF R$="S" THEN 4530 4500 IF R$="s" THEN 4530 4510 IF R$="r" THEN 5630 4520 IF R$="R" THEN 5630 ELSE 4460 4530 INPUT" SPAR CHARACTERISTICS FROM TABLE (OZ. PER FOOT)................=",WB 4540 INPUT" BATTEN CHARACTERISTICS FROM TABLE (OZ PER FT.)................=",WN 4550 WA=(AA*.271) 4560 IF WA=0 THEN 4580 4570 WG=3.25 4580 XA=(AI*.271) 4590 IF XA=0 THEN 4610 4600 WG=4.355 4610 RA=(AF*.271) 4620 IF RA=0 THEN 4640 4630 WR=.353 4640 WM=(2*C)+6 4650 WD=.0079357*WM 4660 WC=.848 4670 WE=.176 4680 WF=.143 4690 WH=2*C 4700 WI=2*AL 4710 WZ=8 4720 WJ=WH+WI+AU+WZ+BD 4730 WK=WB*WJ/12 4740 WX=WN*(LB+4)/6 4750 WL=WA+XA+RA+WD+WC+WE+WF+WK+WX+WG+WR 4760 WO=WL/(AA+.001) 4770 XB=WL/(AI+.001) 4780 XC=WL/(AF+.001) 4790 IF WO<=50 THEN 970 4800 IF XB<=50 THEN 1720 4810 IF XC<=50 THEN 2350 4820 CLS 4830 PRINT" THIS MODULE WILL COMPARE LIKE SPARS (FIBERGLASS EPOXY TO FIBERGLASS EPOXY) 0R (GRAPHITE WOUND TO GRAPHITE WOUND) 0F DIFFERENT SIZES FOR RELATIVE STIFFNESS IN YOUR KITE DESIGN. 4840 PRINT" USER MUST DETERMINE THE SCALE FACTOR BETWEEN A CANDIDATE KITE AND A REFERENCE KITE. 4850 PRINT" THE REFERENCE KITE SHOULD BE A KITE OF SIMILAR DESIGN THAT THE USER IS SATISFIED WITH IN TERMS OF SPAR STIFFNESS. 4860 PRINT" SCALE FACTOR MUST BE DETERMINED BEFORE PROCEEDING TO STIFFNESS EVALUATION. 4870 PRINT" SCALE FACTOR=SQUARE ROOT (CANDIDATE KITE AREA/REFERENCE KITE AREA) 4880 PRINT" USER MUST SPECIFY OUTSIDE AND INSIDE DIAMETERS OF REFERENCE SPARS 4890 PRINT" USER MUST SPECIFY OUTSIDE AND INSIDE DIAMETERS OF CANDIDATE SPARS 4900 PRINT" THE MOMENT OF INERTIA (MOI) OF THE REFERENCE SPARS WILL BE CALCULATED AS WILL THE MOI OF THE CANDIDATE SPARS. IF THE CANDIDATE MOI IS LESS THAN THE REFERENCE MOI THEN A LARGER SPAR IS REQUIRED.":PRINT 4910 PRINT" IF THE CANDIDATE KITE AREA IS NOT KNOWN THEN RETURN TO THE MAIN MENU, SELECT THE PROPER MODULE FOR YOUR KITE AND INPUT THE NOSE 1/2 ANGLE, LEADING EDGE SPAR LENGTH AND SAIL BILLOW. 4920 PRINT" RECORD THE SAIL AREA THEN RETURN TO THE SPAR STIFFNESS MODULE. 4930 PRINT 4940 PRINT" TYPE M TO RETURN TO THE MAIN MENU OR P TO PROCEED. 4950 M$=INPUT$ (1) 4960 IF M$="M" THEN 390 4970 IF M$="m" THEN 390 4980 IF M$="P" THEN 5000 4990 IF M$="p" THEN 5000 ELSE 4940 5000 CLS 5010 PRINT" SELECT FROM THE STANDARD KITE SAIL AREAS LISTED BELOW OR ENTER YOUR OWN REF. AREA ON REQUEST.":PRINT 5020 PRINT" SPIN OFF TEAM KITE FIRE DART EVOLUTION THREE SPAR 5030 PRINT" 10.20731 12.57994 8.865261 8.939187 3.477261 5040 PRINT 5050 PRINT" REVOLUTION DOUBLE DIAMOND 5060 PRINT" 12.43942 10.37804 (37 IN HORIZ. AXIS AND FL414 HORIZ. SPAR) 5070 PRINT" (37 IN VERT. AXIS AND C30 VERT SPAR)":PRINT 5080 INPUT" ENTER CANDIDATE KITE AREA (SQUARE FEET)..................=",A2 5090 PRINT 5100 INPUT" ENTER REFERENCE KITE AREA (SQUARE FEET)..................=",A1 5110 UZ=SQR(A2/A1) 5120 CLS 5130 PRINT" TYPE T TO REVIEW SPAR SIZE TABLE - SPAR O.D. AND I.D.REQUIRED NEXT 5140 PRINT" TYPE R TO REVIEW SKYROD SPAR TABLE-SPAR DATA REQUIRED NEXT 5150 T$=INPUT$(1) 5160 IF T$="T"THEN 5380 5170 IF T$="t"THEN 5380 5180 IF T$="R" THEN 8100 5190 IF T$="r" THEN 8100 5200 IF T$="P"THEN 5220 5210 IF T$="p"THEN 5220 ELSE 5130 5220 PRINT" SCALE FACTOR FOR CANDIDATE KITE..............................=";UZ 5230 INPUT" ENTER OUTSIDE DIAMETER FOR REFERENCE SPAR....................=",UX 5240 INPUT" ENTER INSIDE DIAMETER FOR REFERENCE SPAR.....................=",UW 5250 UV=(3.141592/64)*(UX^4-UW^4) 5260 UU=UZ^4*UV 5270 PRINT" REQUIRED M.O.I. TO MAINTAIN SAME RELATIVE STIFFNESS.........=";UU 5280 INPUT" ENTER OUTSIDE DIAMETER OF CANDIDATE SPAR....................=",UT 5290 INPUT" ENTER INSIDE DIAMETER OF CANDIDATE SPAR.....................=",US 5300 UR=(3.141592/64)*(UT^4-US^4) 5310 PRINT" CANDIDATE SPAR M.O.I. IS ...................................=";UR 5320 PRINT" TYPE R TO RECALCULATE USING NEW SPAR SIZE, TYPE M FOR MAIN MENU 5330 R$=INPUT$(1) 5340 IF R$="R" THEN 5280 5350 IF R$="r" THEN 5280 5360 IF R$="m" THEN 390 5370 IF R$="M" THEN 390 ELSE 5320 5380 CLS 5390 PRINT" FIBERGLASS EPOXY TUBING GRAPHITE WOUND TUBING 5400 PRINT 5410 PRINT" CODE O.D. I.D. OZ./FT. CODE O.D. I.D. OZ./FT. 5420 PRINT"FL248 .248 .187 .3023 250/2 .287 .250 .176 5430 PRINT"FL260 .260 .187 .3178 250/3 .303 .250 .268 5440 PRINT"A-20 .261 .219 .2032 250/4 .320 .250 .336 5450 PRINT"C-30 .278 .234 .2434 GRAPHITE PULTRUDE 5460 PRINT"E-40 .298 .250 .2695 2540 .254 .157 .290 5470 PRINT"G-50M .317 .266 .3061 2400 .240 .150 .260 5480 PRINT"J-65 .337 .281 .3478 2300 .230 .144 .237 5490 PRINT"K-75 .350 .296 .3594 2200 .220 .138 .217 5500 PRINT"FL370 .370 .296 .5326 2100 .210 .132 .197 5510 PRINT"FL414 .414 .337 .6250 1960 .196 .120 .177 5520 PRINT"FL505 .505 .418 .8394 1880 .188 .116 .160 5530 PRINT"FL616 .610 .503 1.2750 1800 .180 .110 .145 5540 PRINT"FL1.113 1.113 1.000 1700 .170 .104 .132 5550 PRINT" 1580 .158 .098 .105 5560 PRINT 5570 PRINT" TYPE P TO PROCEED TO WEIGHT CALCULATION S FOR SPAR STIFFNESS CALCULATION 5580 P$=INPUT$(1) 5590 IF P$="P"THEN 4460 5600 IF P$="p"THEN 4460 5610 IF P$="S"THEN 5220 5620 IF P$="s"THEN 5220 ELSE 5570 5630 INPUT"HORIZONTAL SPAR CHARACTERISTICS FROM TABLE (OZ PER FOOT)......=",ZZ 5640 INPUT"VERTICAL SPAR CHARACTERISTICS FROM TABLE (OZ PER FOOT).........=",ZY 5650 ZA=AI*.271 5660 ZB=EL*.0079357 5670 ZC=ZZ*EL/12 5680 ZW=(ZY*2*ES)/12 5690 ZE=ZZ*.6666 5700 ZD=.41 5710 ZF= .71*EL/108 5720 ZG=1.975 5730 ZP=.0046296*EL 5740 ZH=ZA+ZB+ZC+ZE+ZD+ZF+ZG+ZP+ZW 5750 DG= DF*.271 5760 DT=39*.0079357 5770 DI=((DB+3)*2*ZZ)/12 5780 DW=(ZY*2*DA)/12 5790 DJ=.5 5800 DL=DG+DT+DI+DJ+DW 5810 ZI=ZH/(AI+.001) 5820 DM=DL/(DF+.001) 5830 IF ZI<=50 THEN 3100 5840 IF DM<=50 THEN 3600 ELSE 390 5850 END 5860 SYSTEM 5870 CLS 5880 PRINT" NOTES ON HOW TO USE THIS DESIGN AID 5890 PRINT 5900 PRINT" THE KITES DESCRIBED BY THIS PROGRAM ARE SYMMETRICAL ABOUT THE VERTICAL AXIS. THEREFORE THE REQUIRED INPUTS AND CALCULATED DIMENSIONS ARE FOR ONE HALF THE KITE. EXCEPTIONS ARE THE SPINE AND UPPER SPREADER. 5910 PRINT 5920 PRINT" TO USE THIS PROGRAM SELECT FROM THE MENU A KITE TYPE. YOU WILL THEN BE ASKED TO SELECT THE LEADING EDGE SPAR LENGTH (THIS DETERMINES THE KITES SIZE). 5930 PRINT" YOU WILL THEN BE ASKED TO INPUT THE NOSE HALF ANGLE (THIS DETERMINES THE ASPECT RATIO AND THE AREA FOR THE KITE). 5940 PRINT 5950 PRINT" KITE SIZE- SELECTING A SIZE DEPENDS ON MANY FACTORS. SOME OF THESE FACTORS ARE SPAR AVAILABILITY, WIND SPEED RANGE DESIRED, UNIQUENESS (SMALLER OR LARGER THAN IS COMMON), STRENGTH REQUIRED OF THE FLYER, ETC. 5960 PRINT 5970 PRINT" SPAR AVAILABILITY- A GOOD SELECTION OF FIBERGLASS/EPOXY TUBULAR SPARS EXIST AND GRAPHITE SPARS ARE BECOMING INCREASINGLY AVAILABILE (SEE TABLE CONTAINED IN PROGRAM). I FIND IT BEST TO SIZE THE LEADING EDGE A MULTIPLE OF 1.5, 2.0, OR 5980 PRINT" 3.0 TIMES A STANDARD SPAR LENGTH. MOST SPARS ARE 30 TO 33 INCHES. 5990 PRINT:PRINT" PRESS SPACE BAR FOR MORE NOTES 6000 L$=INPUT$(1) 6010 IF ASC(L$)=32 THEN 6020 6020 CLS 6030 PRINT 6040 PRINT" WIND SPEED- THE MINIMUM WIND SPEED FOR A KITE IS PRIMARILY DETERMINED BY WING LOADING. THIS PROGRAM CALCULATES WING LOADING IN OZ. PER SQUARE FOOT. FOR A REFERENCE POINT CONSIDER A STANDARD SPIN OFF. IT HAS A WING LOADING OF 6050 PRINT" 1.5 OZ. PER SQUARE FOOT AND WILL FLY IN WINDS FROM 6 MPH TO 30 MPH. A KITE WITH A WING LOADING OF 1.0 OR LESS WILL FLY IN WINDS OF 4 MPH OR LESS. 6060 PRINT 6070 PRINT" KITE PULL- FOR A GIVEN WIND SPEED KITE PULL WILL BE DIRECTLY PROPORTIONAL TO THE WING AREA. THIS PARAMETER IS CALCULATED BY THIS PROGRAM. A KITE WITH 20 SQUARE FEET AREA WILL PULL APPROXIMATELY TWICE AS HARD AS A KITE WITH 6080 PRINT" 10 SQUARE FEET AREA. 6090 PRINT 6100 PRINT" SAIL BILLOW- REFERS TO HOW TIGHTLY THE SAIL IS FITTED TO THE FRAME OF THE KITE. IT HAS BEEN MY LIMITED EXPERIENCE THAT A TIGHT SAIL RESULTS IN LESS DRAG AND IN LESS STABILITY. MOST KITES HAVE A MEDIUM BILLOW. I HAVE NOT YET BUILT 6110 PRINT" A KITE WITH A LARGE SAIL BILLOW BUT PLAN TO IN THE FUTURE. 6120 PRINT 6130 PRINT" SPAR STIFFNESS- THE SPAR STIFFNESS MODULE OF THIS PROGRAM ALLOWS YOU TO COMPARE THE STIFFNESS OF YOUR CANDIDATE SPAR WITH A SPAR PROVEN ADEQUATE IN A PREVIOUS KITE DESIGN. EXPLANITORY NOTES ARE INCLUDED AS PART OF THE 6140 PRINT" SPAR STIFFNESS MODULE. 6150 PRINT 6160 PRINT" PRESS THE SPACE BAR TO RETURN TO THE MAIN MENU 6170 L$=INPUT$(1) 6180 IF ASC(L$)=32 THEN 390 6190 END 6200 CLS 6210 CLEAR 6220 PRINT 6230 PRINT" THREE SPAR KITE OR BOOMER":PRINT 6240 PRINT" STANDARD VERSION OF THIS KITE HAS A NOSE 1/2 ANGLE OF 45 DEGREES. 6250 PRINT" AND A LEADING EDGE SPAR LENGTH OF 32.5 INCHES. 6260 PRINT 6270 INPUT" ENTER NOSE 1/2 ANGLE (DEGREES)................................=",A 6280 PRINT 6290 INPUT" ENTER LEADING EDGE SPAR LENGTH (INCHES).......................=",LE 6300 PRINT 6310 GOSUB 4000 6320 L=LE+.5 6330 SA=.716*LE 6340 RD=.0175329 6350 SH=SIN(A*RD)*SA 6360 AN=A+AB 6370 SP=(2*SH)-.5 6380 AR=L*1.94 6390 B=180-A-90 6400 S=L*SIN(B*RD) 6410 SL=LE 6420 BL=1.18*LE 6430 BS=.87*SP 6440 AA=SH*S 6450 BA=180-B-90 6460 BC=180-90-BA 6470 BH=SIN(BC*RD)*(L-SA) 6480 AH=BH*SH 6490 AS=(AH+AA)/144 6500 CLS 6510 CLS 6520 PRINT" DIMENSIONS FOR CANDIDATE KITE (3 SPAR)":PRINT 6530 PRINT 6540 PRINT" LEADING EDGE SPAR LENGTH (INCHES) (EACH SIDE)................=";LE 6550 PRINT" LOWER SPREADER LENGTH (INCHES)...............................=";SP 6560 PRINT" SAIL NOSE 1/2 ANGLE (CENTER LINE TO LEADING EDGE IN DEGREES).=";AN 6570 PRINT" RADIUS OF SAIL TRAILING EDGE ARC (INCHES)....................=";AR 6580 PRINT" SAIL LEADING EDGE LENGTH (INCHES)............................=";SL 6590 PRINT" NOSE TO LOWER SPREADER ATTACH POINT (INCHES).................=";SA 6600 PRINT" BRIDLE LENGTH (NOSE TO SPREADER ATTACH LEFT SIDE OF KITE)....=";BL 6610 PRINT" BRIDLE LENGTH (RIGHT SIDE SPREADER ATTACH TO LEFT SIDE SWIVEL=";BS 6620 PRINT" APPROXIMATE SAIL AREA (IN SQUARE FEET).......................=";AS 6630 PRINT" ESTIMATED WEIGHT OF KITE (IN OZ.)............................=";WT 6640 PRINT" WING LOADING (IN OZ./SQUARE FOOT)............................=";WL 6650 PRINT 6660 PRINT" NOTES-FOR THE RIGHT SIDE BRIDLE USE THE SAME DIMENSIONS AS THE LEFT SIDE EXCEPT REVERSE THE ATTACH POINTS AT THE LOWER SPREADER. 6670 PRINT 6680 PRINT" CONSTRUCT AN ARC OF A CIRCLE WITH A RADIUS AS GIVEN ABOVE AND MAKE IT PASS THROUGH THE SAIL TIPS TO FORM THE TRAILING EDGE CURVE. 6690 PRINT 6700 PRINT" TYPE R TO RECALCULATE USING NEW LENGTH OR ANGLE, TYPE M FOR MENU" 6710 PRINT" TYPE W TO PROCEED TO WEIGHT ESTIMATION MODULE" 6720 R$=INPUT$(1) 6730 IF R$="R" THEN 6200 6740 IF R$="r" THEN 6200 6750 IF R$="M" THEN 390 6760 IF R$="m" THEN 390 6770 IF R$="W" THEN 6790 6780 IF R$="w" THEN 6790 ELSE 6700 6790 CLS 6800 PRINT" THIS MODULE ESTIMATES THE WEIGHT OF YOUR CANDIDATE KITE" 6810 PRINT 6820 PRINT" TYPE T TO REVIEW SPAR TABLE-SPAR DATA REQUIRED NEXT." 6830 PRINT" TYPE R TO REVIEW SKYROD SPAR TABLE-SPAR DATA REQUIRED NEXT 6840 T$=INPUT$(1) 6850 IF T$="T" THEN 6990 6860 IF T$="t" THEN 6990 6870 IF T$="R" THEN 8250 6880 IF T$="r" THEN 8250 6890 IF T$="P" THEN 7180 6900 IF T$="p" THEN 7180 ELSE 6820 6910 PRINT 6920 INPUT"ENTER SPAR WEIGHT IN OZ./FT.................................=",SW 6930 WS=.271*AS 6940 DA=(2*LE)*8.000001E-03 6950 VA=6*.12 6960 WT=SW+WS+DA+VA 6970 WL=WT/AS 6980 GOTO 6500 6990 CLS 7000 PRINT" FIBERGLASS EPOXY TUBING GRAPHITE WOUND TUBING 7010 PRINT 7020 PRINT" CODE O.D. I.D. OZ./FT. CODE O.D. I.D. OZ./FT. 7030 PRINT"FL248 .248 .187 .3023 250/2 .287 .250 .176 7040 PRINT"FL260 .260 .187 .3178 250/3 .303 .250 .268 7050 PRINT"A-20 .261 .219 .2032 250/4 .320 .250 .336 7060 PRINT"C-30 .278 .234 .2434 GRAPHITE PULTRUDE 7070 PRINT"E-40 .298 .250 .2695 2540 .254 .157 .290 7080 PRINT"G-50M .317 .266 .3061 2400 .240 .150 .260 7090 PRINT"J-65 .337 .281 .3478 2300 .230 .144 .237 7100 PRINT"K-75 .350 .296 .3594 2200 .220 .138 .217 7110 PRINT"FL370 .370 .296 .5326 2100 .210 .132 .197 7120 PRINT"FL414 .414 .337 .6250 1960 .196 .120 .177 7130 PRINT"FL505 .505 .418 .8394 1880 .188 .116 .160 7140 PRINT"FL616 .610 .503 1.2750 1800 .180 .110 .145 7150 PRINT"FL1.113 1.113 1.000 1700 .170 .104 .132 7160 PRINT" 1580 .158 .098 .105 7170 PRINT 7180 PRINT" TYPE T FOR THREE SPAR WEIGHT OR E FOR TWO SPINE KITE WEIGHT CALCULATION 7190 T$=INPUT$(1) 7200 IF T$="T" THEN 6920 7210 IF T$="t" THEN 6920 7220 IF T$="E" THEN 7980 7230 IF T$="e" THEN 7980 ELSE 7240 7240 PRINT" TYPE T FOR THREE SPAR KITE WEIGHT OR E FOR TWO SPINE KITE WEIGHT CALCULATION 7250 CLS 7260 CLEAR 7270 PRINT" THIS MODULE CALCULATES SPAR, SAIL AND BRIDLE DIMENSIONS FOR THE SELECTED OPTION 7280 PRINT" USER MUST SPECIFY LEADING EDGE SPAR LENGTH AND NOSE 1/2 ANGLE 7290 PRINT 7300 PRINT" NOTE-A STANDARD EVOLUTION HAS 65 INCHES LEADING EDGE AND 52 DEGREES 1/2 ANGLE 7310 PRINT 7320 INPUT" ENTER LEADING EDGE SPAR LENGTH,ONE SIDE(INCHES)................=",L 7330 PRINT 7340 INPUT" ENTER NOSE 1/2 ANGLE,SAIL CENTER LINE TO LEADING EDGE(DEGREES).=",A 7350 PRINT 7360 GOSUB 4000 7370 AS=A+AB 7380 RD=1.745329E-02 7390 B=180-90-A 7400 LS=L-(L*.1538) 7410 S=LS*SIN(B*RD) 7420 LA=.6*L 7430 LL=LA-(L*.1538) 7440 TT=LL*SIN(A*RD) 7450 IL=(L*.1538)*SIN(A*RD) 7460 IS=2*IL 7470 VV=LL*SIN(B*RD) 7480 Q=(S-VV)*.93 7490 P=SQR((Q*Q)+(IL*IL)) 7500 PL=IL/P 7510 Z=(ATN(PL/SQR(-PL*PL+1)))*57.3 7520 BN=TT+IS 7530 BZ=BN*BN+LL*LL-2*BN*LL*COS(B*RD) 7540 BI=SQR(BZ) 7550 BU=BI*1.58 7560 MZ=.71 7570 BL=MZ*BU 7580 TE=L*SIN(A*RD) 7590 AN=(TE-IS)*Q 7600 AC=(IL*Q)*2 7610 LZ=L*.1538 7620 J= L*SIN(B*RD) 7630 CL=J-Q 7640 AK=J*TE 7650 AT=(AK-AN-AC)/144 7660 CLS 7670 PRINT" DIMENSIONS FOR CANDIDATE KITE IN INCHES AND DEGREES":PRINT 7680 PRINT" LEADING EDGE SPAR LENGTH (EACH SIDE).........................=";L 7690 PRINT" SPINE LENGTH (TWO SPINES)....................................=";S 7700 PRINT" SPINE ATTACH POINT ON LEADING EDGE (FROM NOSE)...............=";LZ 7710 PRINT" SPREADER LENGTH (SPINE TO LEADING EDGE EACH SIDE)............=";TT 7720 PRINT" SPREADER LENGTH (SPINE TO SPINE).............................=";IS 7730 PRINT" SPREADER ATTACH POINT ON LEADING EDGE (FROM NOSE)............=";LA 7740 PRINT" SPREADER ATTACH POINT ON SPINE (FROM TOP OF SPINE)...........=";VV 7750 PRINT" SAIL NOSE 1/2 ANGLE (CENTER LINE TO LEADING EDGE)............=";AS 7760 PRINT" SAIL LEADING EDGE LENGTH (EACH SIDE).........................=";L 7770 PRINT" SAIL CENTER LINE LENGTH......................................=";CL 7780 PRINT" SAIL TRAILING EDGE NOTCH ANGLE (SPINE TIP TO SAIL CENTER).....=";Z 7790 PRINT" SAIL TRAILING EDGE NOTCH LENGTH (SPINE TIP TO SAIL CENTER)....=";P 7800 PRINT" SAIL TRAILING EDGE NOTCH ANGLE (SPINE TIP TO LEADING EDGE)....=";Z 7810 PRINT" SAIL TRAILING EDGE NOTCH LENGTH (SPINE TIP TO LEADING EDGE)...=";P 7820 PRINT" BRIDLE LENGTH, UPPER END OF SPINE TO OPPOSITE SPINE T JOINT...=";BU 7830 PRINT" BRIDLE LENGTH, SPREADER ATTACH ON LEADING EDGE TO SWIVEL......=";BL 7840 PRINT" AREA OF KITE (IN SQUARE FEET).................................=";AT 7850 PRINT" WEIGHT OF KITE (IN OUNCES)....................................=";W 7860 PRINT" WING LOADING (IN OUNCES/SQUARE FEET)..........................="WL 7870 PRINT" AFTER SAIL IS LAYED OUT TRUNCATE NOSE BY MEASUREING 2.5 INCHES ALONG THE LEADING EDGE THEN TRIM PERPENDICULAR TO THE SAIL CENTER LINE. 7880 PRINT" TYPE R TO RECALCULATE USING NEW LENGTH OR ANGLE,TYPE M FOR MENU" 7890 PRINT" TYPE W TO PROCEED TO WEIGHT ESTIMATION MODULE 7900 R$=INPUT$(1) 7910 IF R$="R" THEN 7250 7920 IF R$="r" THEN 7250 7930 IF R$="m" THEN 390 7940 IF R$="M" THEN 390 7950 IF R$="W" THEN 6800 7960 IF R$="w" THEN 6800 ELSE 7880 7970 PRINT 7980 INPUT" ENTER SPINE SPAR WEIGHT IN OZ./FT............................=",SW 7990 WD=SW*2*S/12 8000 INPUT" ENTER LEADING EDGE SPAR WEIGHT IN OZ./FT.....................=",LW 8010 WE=LW*2*L/12 8020 INPUT" ENTER SPREADER SPAR WEIGHT IN OZ./FT.........................=",JW 8030 WF=JW*((2*TT)+(IS))/12 8040 WA=AT*.271 8050 WB=(2*L)*8.000001E-03 8060 WC=6*.12 8070 W=WA+WB+WC+WD+WE+WF 8080 WL=W/AT 8090 GOTO 7660 8100 CLS 8110 PRINT" SKYROD FIBERGLASS SPARS SKYROD COMPOGRAPH GRAPHITE 8120 PRINT" CODE O.D. I.D. OZ/FT CODE O.D. I.D. OZ/FT 8130 PRINT" 32HFG4 .280 .234 .1521 28CG2 .260 .240 .1663 8140 PRINT" 32HFG5 .290 .248 .2116 32CG3 .275 .235 .1918 8150 PRINT" 32HFG6 .300 .260 .1852 32CG4 .280 .236 .1918 8160 PRINT" 32HFG8 .325 .278 .2910 32CG6 .300 .260 .1852 8170 PRINT" 32BFG3 .260 .195 .2050 32CG8 .325 .240 .2381 8180 PRINT" 32BFG4 .280 .220 .2182 32CG10 .373 .295 .2381 8190 PRINT" 32BFG6 .300 8200 PRINT" 32HFG7 .320 .260 .3042 8210 PRINT" 32GFG3 .255 .210 .2116 8220 PRINT" 32GFG4 .280 .230 .2116 8230 PRINT" 32BFG10 .373 .295 .3174 8240 GOTO 5570 8250 CLS 8260 PRINT" SKYROD FIBERGLASS SPARS SKYROD COMPOGRAPH GRAPHITE 8270 PRINT" CODE O.D. I.D. OZ/FT CODE O.D. I.D. OZ/FT 8280 PRINT" 32HFG4 .280 .234 .1521 28CG2 .260 .240 .1663 8290 PRINT" 32HFG5 .290 .248 .2116 32CG3 .275 .235 .1918 8300 PRINT" 32HFG6 .300 .260 .1852 32CG4 .280 .236 .1918 8310 PRINT" 32HFG8 .325 .278 .2910 32CG6 .300 .260 .1852 8320 PRINT" 32BFG3 .260 .195 .2050 32CG8 .325 .240 .2381 8330 PRINT" 32BFG4 .280 .220 .2182 32CG10 .373 .295 .2381 8340 PRINT" 32BFG6 .300 8350 PRINT" 32HFG7 .320 .260 .3042 8360 PRINT" 32GFG3 .255 .210 .2116 8370 PRINT" 32GFG4 .280 .230 .2116 8380 PRINT" 32BFG10 .373 .295 .3174 8390 GOTO 7180 8400 INPUT"ENTER REFERENCE SPAR O.D....................................=",R1 8410 INPUT"ENTER REFERENCE SPAR I.D....................................=",R2 8420 INPUT"ENTER CANDIDATE SPAR O.D....................................=",C1 8430 INPUT"ENTER CANDIDATE SPAR I.D....................................=",C2 8440 M1=(3.141592/64)*(R1^4-R2^4) 8450 M2=(3.141592/64)*(C1^4-C2^4) 8460 S1=(M2/M1)^.25 8470 PRINT 8480 PRINT"SCALE FACTOR................................................=";S1 8490 PRINT"TO RECALCULATE CANDIDATE SPAR TYPE C OR FOR REFERENCE SPAR TYPE R 8500 PRINT"TO RETURN TO MAIN MENU TYPE M 8510 R$=INPUT$(1) 8520 IF R$="R" THEN 8400 8530 IF R$="r" THEN 8400 8540 IF R$="C" THEN 8420 8550 IF R$="c" THEN 8420 8560 IF R$="M" THEN 390 8570 IF R$="m" THEN 390 ELSE 8490 8580 CLS 8590 PRINT" SKYROD FIBERGLASS SPARS SKYROD COMPOGRAPH GRAPHITE 8600 PRINT" CODE O.D. I.D. OZ/FT CODE O.D. I.D. OZ/FT 8610 PRINT" 32HFG4 .280 .234 .1521 28CG2 .260 .240 .1663 8620 PRINT" 32HFG5 .290 .248 .2116 32CG3 .275 .235 .1918 8630 PRINT" 32HFG6 .300 .260 .1852 32CG4 .280 .236 .1918 8640 PRINT" 32HFG8 .325 .278 .2910 32CG6 .300 .260 .1852 8650 PRINT" 32BFG3 .260 .195 .2050 32CG8 .325 .240 .2381 8660 PRINT" 32BFG4 .280 .220 .2182 32CG10 .373 .295 .2381 8670 PRINT" 32BFG6 .300 8680 PRINT" 32HFG7 .320 .260 .3042 8690 PRINT" 32GFG3 .255 .210 .2116 8700 PRINT" 32GFG4 .280 .230 .2116 8710 PRINT" 32BFG10 .373 .295 .3174 8720 PRINT 8730 GOTO 8400 8740 CLS 8750 PRINT" FIBERGLASS EPOXY TUBING GRAPHITE WOUND TUBING 8760 PRINT 8770 PRINT" CODE O.D. I.D. OZ./FT. CODE O.D. I.D. OZ./FT. 8780 PRINT"FL248 .248 .187 .3023 250/2 .287 .250 .176 8790 PRINT"FL260 .260 .187 .3178 250/3 .303 .250 .268 8800 PRINT"A-20 .261 .219 .2032 250/4 .320 .250 .336 8810 PRINT"C-30 .278 .234 .2434 GRAPHITE PULTRUDE 8820 PRINT"E-40 .298 .250 .2695 2540 .254 .157 .290 8830 PRINT"G-50M .317 .266 .3061 2400 .240 .150 .260 8840 PRINT"J-65 .337 .281 .3478 2300 .230 .144 .237 8850 PRINT"K-75 .350 .296 .3594 2200 .220 .138 .217 8860 PRINT"FL370 .370 .296 .5326 2100 .210 .132 .197 8870 PRINT"FL414 .414 .337 .6250 1960 .196 .120 .177 8880 PRINT"FL505 .505 .418 .8394 1880 .188 .116 .160 8890 PRINT"FL616 .610 .503 1.2750 1800 .180 .110 .145 8900 PRINT"FL1.113 1.113 1.000 1700 .170 .104 .132 8910 PRINT" 1580 .158 .098 .105 8920 PRINT 8930 GOTO 8400 8940 CLS 8950 PRINT 8960 PRINT"PICK A REFERENCE KITE THAT HAS ADEQUATE SPAR STIFFNESS, THERE ARE MANY COMMERCIAL EXAMPLES OR PERHAPS ONE YOU HAVE BUILT. 8970 PRINT"THIS MODULE WILL CALCULATE THE SCALE FACTOR REQUIRED TO OBTAIN THE SAME SPAR LOADING USING A LARGER OR SMALLER SPAR OF THE SAME TYPE. 8980 PRINT"YOU MAY THEN MULTIPLY THE LEADING EDGE SPAR LENGTH BY THIS SCALE FACTOR TO SIZE YOUR NEW DESIGN. 8990 PRINT 9000 PRINT"TYPE T TO DISPLAY STANDARD SPAR TABLE OR R TO DISPLAY SKYROD TABLE 9010 T$=INPUT$(1) 9020 IF T$="T" THEN 8740 9030 IF T$="t" THEN 8740 9040 IF T$="R" THEN 8580 9050 IF T$="r" THEN 8580 ELSE 9000 = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =