%""10000n" THIS PROGRAM CALCULATES THE MINIMUM CROSS SECTIONAL AREA REQUIRED FOR A"("GIVEN PEAK POWER AT A TARGET RPM. THE C.A. CAN BE ANY LIMITING FACTOR IN"2"THE CYLINDER HEAD PORT. THIS IS LOOSELY BASED ON 690FPS AS BEING THE "_<"MAXIMUM VELOCITY WHICH LIMITS THE PORTS ABILITY TO FLOW, ABOUT 0.55 TO "F"0.60 TIMES THE SPEED OF SOUND."d"TARGET RPM";RPn" STROKE (INCHES)";SRx"BORE (INCHES)";BO CA(0.00353RPSR(BO2))690: 0.55-0.60*1200FPSQ"MINIMUM CROSS SECTIONAL AREA OF PORT REQUIRED =";CA"SQ.-INCHES"rDI((CA)0.5)2:DMDI25.4"MINIMUM DIAMETER OF ROUND PORT =";DI"INCHES";DM"MILLIMETERS","":" THIS PROGRAM DETERMINES THE MAX. RPM FOR A GIVEN C.A.",6"CROSS SECTIONAL AREA (SQ.-INCHES)";CAM@" STROKE (INCHES)";SRfJ"BORE (INCHES)";BOTMP(CA184136)(SRBO2)Y"MAX. POWER RPM ="MP^ "":"THIS PROGRAM WILL DETERMINE THE LIMITING PORT VELOCITY FO A GIVEN BORE, RPM, AND STROKE."4 "PORT MIN. CROSS SECTIONAL AREA";CAU " STROKE (INCHES)";SRn "BORE (INCHES)";BO "DESIRED PEAK POWER RPM";RP LP(.00353RPSR(BO2))CA "LIMITING PORT VELOCITY ="LP  %:6,1:5,9 "" !"COMPRESSION RATIO";CR=!" VOLUMETRIC EFFECIENCY (%)";VE[!"NUMBER OF CYLINDERS";NCp!" RPM'S";RP!"BORE";B:" STROKE";S!"ALTITUDE IN FEET";J:U(J1000).5 "" TEMPERATURE IN FARENHEIT";TF:TC(TF32)59:TX((15273)(TC273))14.7"KTXU."D(4)((B2)S)NCB"MEPKCRVE.01Y"IHMEPDRP792000""PRESSURE AT"TF"DEGREES AND"J"FEET="K"PSI"""MEAN EFFECTIVE PRESSURE ="MEP""INDICATED HORSEPOWER ="IH"TQ(MEPD)150.8 #"INDICATED TORQUE ="TQ#:1#"TIRE SIZE (METRIC)";TSV# " TIRE ASPECT RATIO (%)";ARx# "WHEEL DIAMETER (INCHES)";WD# TRD2((TS25.4)(.01AR))WD# " TIRE DIA. ="TRD"INCHES"# "FIRST GEAR RATIO (GIVES OFF-LINE TORQUE/G'S";FG$" FINAL DRIVE RATIO";FD>$"DRIVELINE EFFECIENCY (%)";DLM$DLLDL.01z$"VEHICLE WEIGHT+DRIVER/RIDER (LBS.)";VW$$TRR(TRD2)12$DWTTQFGFDDLL$"DRIVE WHEEL TORQUE"DWT"FT-LBS."$WTDWTTRR%"DRIVE WHEEL THRUST"WT"LBS.",%GFWTVW:PUGFVW:PR(PUVW)100e%"G-FORCE APPLIED"GF"G'S"PU"LBS."PR"PERCENT"%ET((VWIH)(13))5.825%SP((IHVW)(13))234%"ET="ET"SECONDS AT"SP"MPH"%%'%'&'"SELECT A NUMBER":"1=CROSS SECTIONAL AREA FOR A GIVEN RPM."H&'"2=RPM FOR A GIVEN CROSS SECTIONAL AREA."&'"3=LIMITING PORT VELOCITY FOR A GIVEN RPM, BORE, STROKE, AND C.A."&'"4=HORSEPOWER, TORQUE, ET (1/4 MILE), AND INDICATED PRESSURE."&t'A$:A$""10100&u'A$"1"30 'v'A$"2"300'w'A$"3"400*'x'A$"4"500