=+4000:*NAME LIBRARY/Z193  A(2,400) @%=&0100030A =(D1$="":"type in INPUT.FILE.NAME or if Z193 ",D1$ 2 D1$="" D1$="Z193" J<D2$="": "datafile D interactive ",D2$: D2$="" D2$="I"DTA PCH1=(":RAM.1/DATA/"+D1$) 7Z#CH1,"LIBRARY/Z193..V01..CAR PERFORMANCE ESTIMATE" d#CH1,"INPUT DATA" g"Vehicle Title ",E$ %j#CH1,"Vehicle Title"+4,(9))+E$ Px"aerodynamic constant Ca if .02177 ",A$: A$<>""A2=(A$) A2=.02177 9#CH1,"aerodynamic constant"+3,(9))+"Ca"+(9)+(A2) K"transmission constant Ct if .45 ",A$: A$<>""A4=(A$) A4=.45 :#CH1,"transmission constant"+3,(9))+"Ct"+(9)+(A4) "frontal area A (ft^2) ",A1 7#CH1,"frontal area (ft^2)"+3,(9))+"A"+(9)+(A1) "drag coefficient Cd",A3 5#CH1,"drag coefficient"+3,(9))+"Cd"+(9)+(A3) "mass M (tonnes) ",A5 1#CH1,"mass (tonnes)"+3,(9))+"M"+(9)+(A5) "power P (bhp din) ",A6 3#CH1,"power (bhp din)"+3,(9))+"P"+(9)+(A6) "FWD F, RWD R, 4WD 4",C$ 6#CH1,"FWD RWD or 4WD"+3,(9))+"F R or 4"+(9)+C$ M"coefficient of friction mu if 0.9 ",A$: A$<>""B4=(A$) B4=.9 F#CH1,"road/tyre coefficient of friction"+3,(9))+"mu"+(9)+(B4) :"front wheels static load fraction Pz1/M static ",B6 P#CH1,"front wheels static load fraction"+3,(9))+"Pz1/M static"+(9)+(B6) e""(vertical centre of gravity)/(wheel base) Zcg/WB if .25 ",A$: A$<>""B5=(A$) B5=.25 F,#CH1,"VertCentreOfGravity/WheelBase"+3,(9))+"Zcg/WB"+(9)+(B5) ^1"front wheels aero. load fraction Pz1/M aero if 0.5 ",A$: A$<>""C1=(A$)C1=.5 M2#CH1,"front wheels aero. load fraction"+3,(9))+"Pz1/M aero"+(9)+(C1) D6"lift coefficient Cl if 0.0 ",A$: A$<>""C2=(A$)C2=0 5@#CH1,"lift coefficient"+3,(9))+"Cl"+(9)+(C2) J#CH1,"end":#CH1 TCH2=(":RAM.1/DATA/"+D1$) ^#CH2,A$,A$ cdZB:E$=D$ hdZB:A2=(D$) rdZB:A4=(D$) dZB:A1=(D$) dZB:A3=(D$) dZB:A5=(D$) dZB:A6=(D$) dZB:C$=D$ dZB:B4=(D$) dZB:B6=(D$) dZB:B5=(D$) dZB:C1=(D$) dZB:C2=(D$)  calculation A7=(A6/(A3*A1))^(1/3)/A2 A8=((A7/10))*10 "A9=2:B1=0:B8=5280/(32.15*3600) 8B9=A1*.5*1.2256*.0929*(1000/(.621*3600))^2/(9807*A5)  A=A9 A8 A9 %&B2=A4*A5*A*A9/(A6-A3*A1*(A2*A)^3) 10 C$="4" B7=A9*B8/(B4*(1-B9*A^2*(C2+A3/B4))) ?: C$="F" B7=(1+B4*B5)*A9*B8/(B4*(B6-B9*A^2*(C1*C2+A3/B4))) ED C$="R" B7=(1-B4*B5)*A9*B8/(B4*(1-B6-B9*A^2*((1-C1)*C2+A3/B4))) N B2, STOP ",A$:"LIBRARY/Z193B"