Trailing-Edge
-
PDP-10 Archives
-
decus_20tap1_198111
-
decus/20-0020/accelr.dem
There are 2 other files named accelr.dem in the archive. Click here to see a list.
100' NAME--ACCELER
110'
120' DESCRIPTION--CALCULATES AUTOMOBILE'S ACCELERATION FROM
130' ZERO TO SIXTY MILES PER HOUR.
140'
150' SOURCE--UNKNOWN
160'
170' INSTRUCTIONS--TYPE "RUN" AND FOLLOW INSTRUCTIONS.
180'
190'
200' * * * * * MAIN PROGRAM * * * * * * * * * * *
210'
220 PRINT " TO OBTAIN AN AUTO'S ACCELERATION TIME FROM ZERO TO"
230 PRINT " SIXTY M.P.H. TYPE CURB WEIGHT";
240 INPUT C
250 PRINT
260 PRINT " BRAKE HORSEPOWER AT MAXIMUM TORQUE";
270 INPUT E
280 PRINT
290 PRINT " REAR AXLE RATIO";
300 INPUT G
310 PRINT
320 PRINT
330 LET Q=(240*C^(1.428)/(E^2+C^(1.428)*G^2*.1))^(1.269)*5.061/284.361
340 PRINT " 60 M.P.H. IN "Q"SECONDS."
350 PRINT
360 PRINT "<<<<<<<<<TO END PROGRAM, TYPE 'STOP'>>>>>>>>>>"
370 PRINT
380 PRINT " NEXT CAR: CURB WEIGHT";
390 GO TO 240
400 END