Greg_Hargreaves
<Insert Creative Title>
Okay, some of you I know have programing and math skills. Here is a programing script for a Texas Instruments TI-83 graphing calcultor. The script show also work in higher-model TI calculators (-83plus, -89, -90, -96).
This script askes for train tonnage, ruling grade and perferred average speed. Once the variables are input (I set the script up to ask in a clear, consise manner), it caluculates the necessary horsepower needed to pull the train up a hill, taking friction and mechanical resistance into account. The owner's manual for the TI-83 explains how to enter a program, its clear enough that if you can add a fuel script to a loco than you can do this...
The program uses enlish units (mph, lbs) for calcultions, my apalogies to the majority of the world. I know its a bit advanced, but I hope someone can get something out of it...
Program: TRAINHP
:Fix 0
egree
:.0025=U
:ClrHome
isp "_What_is_train"
isp "_ _Tonnage?"
rompt T
isp "_What_is_ruling"
isp "Grage?_(percent)"
rompt G
isp "What_is_average"
isp "_ _Speed?_(mph)"
rompt S
:T(2000)(.45359)(9.8007)=W
:tan^-1(G/100)=A
:W x Cos(A)U + W x Sin(A) = R
:S x 1609.3/3600=V
:RV=P
/745.70=H
:ClrHome
isp "_Actual_Horse-"
isp "Power_required:"
isp H
isp "_Raw_locomotive"
isp "_ _ _Horsepower:"
isp 1.2 x H
:Float
This script askes for train tonnage, ruling grade and perferred average speed. Once the variables are input (I set the script up to ask in a clear, consise manner), it caluculates the necessary horsepower needed to pull the train up a hill, taking friction and mechanical resistance into account. The owner's manual for the TI-83 explains how to enter a program, its clear enough that if you can add a fuel script to a loco than you can do this...
The program uses enlish units (mph, lbs) for calcultions, my apalogies to the majority of the world. I know its a bit advanced, but I hope someone can get something out of it...
Program: TRAINHP
:Fix 0
:.0025=U
:ClrHome
:T(2000)(.45359)(9.8007)=W
:tan^-1(G/100)=A
:W x Cos(A)U + W x Sin(A) = R
:S x 1609.3/3600=V
:RV=P
:ClrHome
:Float