Fallschirm berechnen - Listing

Dokumentation ansehen
IMG-Datei laden

1	REM
2	CD=1.0:ROE=0.0765:G=32.174
5	CLS:PAUSE "Parachute calculations"
10	PAUSE "W=1/2*Cd*Ap*roe*V^2"
20	P$="":PAUSE "Solve for":INPUT "Wgt, Area or Vel ->";P$
25	IF P$<>"W" AND P$<>"A" AND P$<>"V" AND P$<>"X" THEN CLS: GOTO 20
30	IF P$="W" THEN 200
32	IF P$="A" THEN 300
34	IF P$="V" THEN 400
36	IF P$="X" THEN 900
100	INPUT "Enter-wt in lbms=";W:RETURN
110	S$="":INPUT "Enter Area or Radius->";S$
115	IF S$<>"A" THEN IF S$<>"R" THEN 110
120	IF S$="A" THEN INPUT "Enter Area(ft^2)=";A:RETURN
130	IF S$="R" THEN INPUT "Enter Radius(ft)=";R:A=PI*R^2:RETURN
140	INPUT "Enter Vel(ft/sec)=";V:RETURN
200	REM Calculate Wgt
210	GOSUB 110: GOSUB 140
220	W=.5*CD*A*ROE*V*V/G:CLS:PRINT "Weight=";W;"lbm":CLS:GOTO 10
300	REM Calculate Area
310	GOSUB 100: GOSUB 140
320	A=2*W*G/CD/ROE/V/V:CLS:PRINT "Area=";A;"ft^2"
330	R= SQR (A/PI):PRINT "Eq radius=";R;"ft":CLS: GOTO 10
400	REM Velocity Calc
410	GOSUB 100: GOSUB 110
420	V=SQR (2*W*G/CD/ROE/A)
430	CLS: PRINT "Vel=";V;"ft/s":CLS:GOTO 10
900	CLS: END

Dokumentation ansehen
IMG-Datei laden