Rollout and Pinion calculator program
#1
Rollout and Pinion calculator program
On the chance that someone might find this useful, I'm putting this up. If you've got a Texas Instruments graphing calculator, you might find this little program handy. It does two things... IN rollout mode you input your spur, pinion, tire size and final drive ratio and it will calculate your rollout. In Pinion mode, you input your desired rollout, spur gear, tire size and final drive ratio and it calculates what pinion to run to get that rollout.
I haven't programmed anything in maybe twenty years, and I did this in a hurry at the track tonight, so don't be offended at the ugly code...
Click the link below to download the program if you've got a Ti GraphLink cable, otherwise, here's the source code:
()
Prgm
ClrIO
Lbl rm
Disp "1-Rollout"
Disp "2-Pinion"
Disp "0-End"
Input m
If m=1 Then
Goto r1
ElseIf m=2 Then
Goto r2
EndIf
Goto r3
Lbl r1
ClrIO
Input "Spur",s
Input "Pinion",p
Input "Tire Size",d
Input "Final Drive",f
Disp d*¶/(s/p)/f
Goto rm
Lbl r2
ClrIO
Input "Rollout",r
Input "Tire Size",d
Input "Spur",s
Input "Final Drive",f
Disp s*r*f/(d*¶)
Goto rm
Lbl r3
ClrIO
EndPrgm
http://home.nyc.rr.com/trips/calc/ROLL.89P
Trips
I haven't programmed anything in maybe twenty years, and I did this in a hurry at the track tonight, so don't be offended at the ugly code...
Click the link below to download the program if you've got a Ti GraphLink cable, otherwise, here's the source code:
()
Prgm
ClrIO
Lbl rm
Disp "1-Rollout"
Disp "2-Pinion"
Disp "0-End"
Input m
If m=1 Then
Goto r1
ElseIf m=2 Then
Goto r2
EndIf
Goto r3
Lbl r1
ClrIO
Input "Spur",s
Input "Pinion",p
Input "Tire Size",d
Input "Final Drive",f
Disp d*¶/(s/p)/f
Goto rm
Lbl r2
ClrIO
Input "Rollout",r
Input "Tire Size",d
Input "Spur",s
Input "Final Drive",f
Disp s*r*f/(d*¶)
Goto rm
Lbl r3
ClrIO
EndPrgm
http://home.nyc.rr.com/trips/calc/ROLL.89P
Trips
Last edited by Trips; 03-23-2002 at 02:30 AM.