HP 42S/DM42/Free 42: Auto Solvers
Introduction
This blog entry has four solvers for use the on the HP 42S (or Free42, DM42) in the subject of automobiles:
1. Displacement, Bore, Strokes
2. Gear Ratio, MPH, RPM
3. Quarter Mile Estimation: Elapsed Time, Car's Weight, Horsepower
4. Tire Sizes
If you are entering these programs by hand, I suggest that you create the needed variables ahead of time by storing an arbitrary value (it doesn't matter) into the variable. Therefore when you recall the variables, they will be available in the soft menu. Activate the solvers by pressing the orange shift key ([SHIFT]) [ 7 ] (SOLVER).
Link to the programs can be downloaded here: https://drive.google.com/file/d/1N4wpO9Q-Mhyp51kdubAh5guf2xZhp8Tc/view?usp=sharing
1. Displacement, Bore, Strokes (File: displacement.raw)
00 { 79-Byte Prgm }
01▸LBL "DISPMNT"
02 MVAR "DISPMNT"
03 MVAR "BORE"
04 MVAR "STROKE"
05 MVAR "#CYLIN"
06 PI
07 4
08 ÷
09 RCL "BORE"
10 X↑2
11 ×
12 RCL× "STROKE"
13 RCL× "#CYLIN"
14 RCL- "DISPMNT"
15 .END.
Variables:
(DISPM): displacement of the a cylinder (cubic inches)
(BORE): diameter of the cylinder (inches)
(STRO): distance traveled by the piston (inches)
(#CYLI): number of cylinders
Equation:
π/4 * bore^2 * stroke * #cylinders - displacement = 0
Example:
Bore = 4 in
Stroke = 3.5 in
4-cylinder engine
Result: Displacement = 175.9292 in^3
2. Gear Ratio, MPH, RPM (File: gearratio.raw)
00 { 74-Byte Prgm }
01▸LBL "GEARRTO"
02 MVAR "RPM"
03 MVAR "MPH"
04 MVAR "TIREDIA"
05 MVAR "GEARRAT"
06 PI
07 RCL× "RPM"
08 RCL× "TIREDIA"
09 RCL÷ "MPH"
10 1056
11 ÷
12 RCL- "GEARRAT"
13 .END.
Variables:
(RPM): the tire's revolution per minute
(MPH): speed of the vehicle (miles/hour)
(TIREDI): diameter of the tire (inches)
(GEAR): gear ratio = transmission ratio * final drive ratio
Equation:
(RPM * π * tire_diameter) / (MPH * 1056) - gear_ratio = 0
Example:
RPM = 3,400 rpm
Tire Diameter = 28 in
Gear Ratio = 3.85
Result: MPH = 73.5635 mph
3. Quarter Mile Estimation: Elapsed Time, Car's Weight, Horsepower
(File: quartermile.raw)
00 { 52-Byte Prgm }
01 ▸ LBL "QRTMI"
02 MVAR "ET"
03 MVAR "WEIGHT"
04 MVAR "HP"
05 5.825
06 RCL "WEIGHT"
07 RCL÷ "HP"
08 3
09 1/X
10 Y↑X
11 ×
12 RCL- "ET"
13 .END.
Variables:
(ET): elapsed time for the car to travel 1/4 mile (seconds)
(WEIG): weight of the car including passengers, drivers, fuel, and other items carried (pounds)
(HP): horsepower
Equation:
(weight/horsepower)^(1/3) * 5.825 - elapsed_time = 0
Note: MPH = (horsepower/weight)^(1/3) * 234 = 1363.05/elapsed_time
Example:
Weight: 3,540 lb
HP: 215 hp
Result:
ET: 14.8190
(MPH = 91.9802 mph, [SHIFT] (TOP.FCN) ( 1/X ) 1363.05 [ * ])
4. Tire Sizes (file name: tiresize.raw)
00 { 87-Byte Prgm }
01 ▸ LBL "TIRESZE"
02 MVAR "SECWDTH"
03 MVAR "RIMDIA"
04 MVAR "ASPECT"
05 MVAR "TIREDIA"
06 2
07 RCL× "SECWDTH"
08 RCL× "ASPECT"
09 2540
10 ÷
11 RCL+ "RIMDIA"
12 RCL- "TIREDIA"
13 .END.
Variable:
(SECW): section width (millimeter)
(RIMDI): rim diameter (inches)
(ASEPC): aspect ratio
(TIREDI): tire diameter (inches)
On a side of a tire, we can get three of the four values by from a code that looks like this:
P235 / 75R17
P: passenger car (L for light trucks)
235: section width
75: aspect ratio
R: radial tire
17: rim diameter
Equation:
(2 * section_width * aspect_ratio) / 2540 + rim_diameter - tire_diameter = 0
Example: Use the stats of the tire above to calculate tire diameter.
Result: 30.8780 in
Source:
John Lawlor. "Auto Math Handbook: Mathematical Calculations, Theory, and Formulas for Automotive Enthusiasts" HPBooks: New York 1992 ISBN 1-55788-020-4
Eddie
All original content copyright, © 2011-2019. Edward Shore. Unauthorized use and/or unauthorized distribution for commercial purposes without express and written permission from the author is strictly prohibited. This blog entry may be distributed for noncommercial purposes, provided that full credit is given to the author.
Introduction
This blog entry has four solvers for use the on the HP 42S (or Free42, DM42) in the subject of automobiles:
1. Displacement, Bore, Strokes
2. Gear Ratio, MPH, RPM
3. Quarter Mile Estimation: Elapsed Time, Car's Weight, Horsepower
4. Tire Sizes
If you are entering these programs by hand, I suggest that you create the needed variables ahead of time by storing an arbitrary value (it doesn't matter) into the variable. Therefore when you recall the variables, they will be available in the soft menu. Activate the solvers by pressing the orange shift key ([SHIFT]) [ 7 ] (SOLVER).
Link to the programs can be downloaded here: https://drive.google.com/file/d/1N4wpO9Q-Mhyp51kdubAh5guf2xZhp8Tc/view?usp=sharing
1. Displacement, Bore, Strokes (File: displacement.raw)
00 { 79-Byte Prgm }
01▸LBL "DISPMNT"
02 MVAR "DISPMNT"
03 MVAR "BORE"
04 MVAR "STROKE"
05 MVAR "#CYLIN"
06 PI
07 4
08 ÷
09 RCL "BORE"
10 X↑2
11 ×
12 RCL× "STROKE"
13 RCL× "#CYLIN"
14 RCL- "DISPMNT"
15 .END.
Variables:
(DISPM): displacement of the a cylinder (cubic inches)
(BORE): diameter of the cylinder (inches)
(STRO): distance traveled by the piston (inches)
(#CYLI): number of cylinders
Equation:
π/4 * bore^2 * stroke * #cylinders - displacement = 0
Example:
Bore = 4 in
Stroke = 3.5 in
4-cylinder engine
Result: Displacement = 175.9292 in^3
2. Gear Ratio, MPH, RPM (File: gearratio.raw)
00 { 74-Byte Prgm }
01▸LBL "GEARRTO"
02 MVAR "RPM"
03 MVAR "MPH"
04 MVAR "TIREDIA"
05 MVAR "GEARRAT"
06 PI
07 RCL× "RPM"
08 RCL× "TIREDIA"
09 RCL÷ "MPH"
10 1056
11 ÷
12 RCL- "GEARRAT"
13 .END.
Variables:
(RPM): the tire's revolution per minute
(MPH): speed of the vehicle (miles/hour)
(TIREDI): diameter of the tire (inches)
(GEAR): gear ratio = transmission ratio * final drive ratio
Equation:
(RPM * π * tire_diameter) / (MPH * 1056) - gear_ratio = 0
Example:
RPM = 3,400 rpm
Tire Diameter = 28 in
Gear Ratio = 3.85
Result: MPH = 73.5635 mph
3. Quarter Mile Estimation: Elapsed Time, Car's Weight, Horsepower
(File: quartermile.raw)
00 { 52-Byte Prgm }
01 ▸ LBL "QRTMI"
02 MVAR "ET"
03 MVAR "WEIGHT"
04 MVAR "HP"
05 5.825
06 RCL "WEIGHT"
07 RCL÷ "HP"
08 3
09 1/X
10 Y↑X
11 ×
12 RCL- "ET"
13 .END.
Variables:
(ET): elapsed time for the car to travel 1/4 mile (seconds)
(WEIG): weight of the car including passengers, drivers, fuel, and other items carried (pounds)
(HP): horsepower
Equation:
(weight/horsepower)^(1/3) * 5.825 - elapsed_time = 0
Note: MPH = (horsepower/weight)^(1/3) * 234 = 1363.05/elapsed_time
Example:
Weight: 3,540 lb
HP: 215 hp
Result:
ET: 14.8190
(MPH = 91.9802 mph, [SHIFT] (TOP.FCN) ( 1/X ) 1363.05 [ * ])
4. Tire Sizes (file name: tiresize.raw)
00 { 87-Byte Prgm }
01 ▸ LBL "TIRESZE"
02 MVAR "SECWDTH"
03 MVAR "RIMDIA"
04 MVAR "ASPECT"
05 MVAR "TIREDIA"
06 2
07 RCL× "SECWDTH"
08 RCL× "ASPECT"
09 2540
10 ÷
11 RCL+ "RIMDIA"
12 RCL- "TIREDIA"
13 .END.
Variable:
(SECW): section width (millimeter)
(RIMDI): rim diameter (inches)
(ASEPC): aspect ratio
(TIREDI): tire diameter (inches)
On a side of a tire, we can get three of the four values by from a code that looks like this:
P235 / 75R17
P: passenger car (L for light trucks)
235: section width
75: aspect ratio
R: radial tire
17: rim diameter
Equation:
(2 * section_width * aspect_ratio) / 2540 + rim_diameter - tire_diameter = 0
Example: Use the stats of the tire above to calculate tire diameter.
Result: 30.8780 in
Source:
John Lawlor. "Auto Math Handbook: Mathematical Calculations, Theory, and Formulas for Automotive Enthusiasts" HPBooks: New York 1992 ISBN 1-55788-020-4
Eddie
All original content copyright, © 2011-2019. Edward Shore. Unauthorized use and/or unauthorized distribution for commercial purposes without express and written permission from the author is strictly prohibited. This blog entry may be distributed for noncommercial purposes, provided that full credit is given to the author.