Function shear(Hp As Single, RPM As Single, Pitchdiameter As Single, length As Single) As Single
Dim answer As Single
Dim pi As Single
pi = 22 / 7
' shear is the force displaced across the area once the shea for the material is exceded there
'if failure in either yeild or tensile, either it bends or breaks.
' pitchdiameter is the pitch diameter of of a spline
' length is the length of a spline
answer = (16 * torq(Hp, RPM)) / (pi * Pitchdiameter ^ 2 * length)
shear = answer
End Function

Function workload(intx As Single, inty As Single, FPM As Single) As Single
' function finds the work load from torque, rpms, and chain speed (fpm)
' work load = (horse power * 33000 )/ fpm
workload = (horsepower(intx, inty) * 33000) / FPM

End Function

Function horsepower(torq As Single, RPM As Single) As Single
Dim sinx As Single
' the value for horsepower are torque * RPM divided by 5250
sinx = (torq * RPM) / 5250
horsepower = sinx

End Function

Function torq(Hp As Single, RPM As Single) As Single
' torque =(Horspower x 5250 ) / RMPs  the result is in lb.in.
torq = (Hp * 5250) / RPM

End Function

Function compratio(cyvol As Single, chamvol As Single) As Single
'compression ratio = (cylinder volume at exhust closing + combustion chamber volume) / combustion chamber volume
compratio = (cyvol + chamvol) / chamvol
End Function

Function pssd(stroke As Single, crank As Single) As Single
'piston speed is .166 * the stroke in inches * the cranch shafr speed in RPM
' the answer is piston speed in ft. per min.
pssd = stroke * crank * 0.166

End Function