TKW+3
=v
#1
:n
Input_hp
:s
b
:u
hp
:d
hp
:c
Input horsepower 
#2
:n
Lngth_correction
:s
b
:c
Table 8 in Machinery's Handbook
#3
:n
Arc_of_contact_correction
:s
b
:c
Table 9 in Machinery's Handbook
#4
:n
L
:s
b
:u
in
:d
in
:c
Nominal belt length
#5
:n
C
:s
b
:u
in
:d
in
:c
Center to center distance between shafts
#6
:n
Cmin
:s
b
#7
:n
D
:s
b
:u
in
:d
in
:c
Pitch diameter of large sheave
#8
:n
d
:s
b
:u
in
:d
in
:c
Pitch diameter of small sheave
#9
:n
i
:s
b
:c
Speed ratio
#10
:n
RPMlow
:s
b
:u
rev/min
:d
rev/min
:c
RPM of largest sheave
#11
:n
RPMhigh
:s
b
:u
rev/min
:d
rev/min
:c
RPM of smallest sheave
#12
:n
dpr
:s
b
#13
:n
wrap_angle
:s
b
:u
degrees
:d
degrees
:c
Angle of wrap around smaller sheave
#14
:n
r
:s
b
:u
rev/min
:d
rev/min
:c
RPMhigh/1000
#15
:n
Ksr
:s
b
:c
Coefficient from Machinerys Handbook
#16
:n
Belt_vel
:s
b
:u
ft/min
:d
ft/min
:c
Belt Velocity in feet per minute
#17
:n
Ahp
:s
b
:u
hp/belt
:d
hp/belt
:c
Horsepower per belt for A size belt
#18
:n
Ahp_corrected
:s
b
:u
hp/belt
:d
hp/belt
:c
Corrected horsepower per belt for A size belt
#19
:n
ANum_belts
:s
b
:c
Number of belts required
#20
:n
AXhp
:s
b
:u
hp/belt
:d
hp/belt
:c
Horsepower per belt for AX size belt
#21
:n
AXhp_corrected
:s
b
:u
hp/belt
:d
hp/belt
:c
Corrected horsepower per belt for AX size belt
#22
:n
AXNum_belts
:s
b
:c
Number of belts required
#23
:n
Bhp
:s
b
:u
hp/belt
:d
hp/belt
:c
Horsepower per belt for B size belt
#24
:n
Bhp_corrected
:s
b
:u
hp/belt
:d
hp/belt
:c
Corrected horsepower per belt for B size belt
#25
:n
BNum_belts
:s
b
:c
Number of belts required
#26
:n
BXhp
:s
b
:u
hp/belt
:d
hp/belt
:c
Horsepower per belt for BX size belt
#27
:n
BXhp_corrected
:s
b
:u
hp/belt
:d
hp/belt
:c
Corrected horsepower per belt for BX size belt
#28
:n
BXNum_belts
:s
b
:c
Number of belts required
#29
:n
Chp
:s
b
:u
hp/belt
:d
hp/belt
:c
Horsepower per belt for C size belt
#30
:n
Chp_corrected
:s
b
:u
hp/belt
:d
hp/belt
:c
Corrected horsepower per belt for C size belt
#31
:n
CNum_belts
:s
b
:c
Number of belts required
#32
:n
CXhp
:s
b
:u
hp/belt
:d
hp/belt
:c
Horsepower per belt for CX size belt
#33
:n
CXhp_corrected
:s
b
:u
hp/belt
:d
hp/belt
:c
Corrected horsepower per belt for CX size belt
#34
:n
CXNum_belts
:s
b
:c
Number of belts required
#35
:n
Dhp
:s
b
:u
hp/belt
:d
hp/belt
:c
Horsepower per belt for D size belt
#36
:n
Dhp_corrected
:s
b
:u
hp/belt
:d
hp/belt
:c
Corrected horsepower per belt for D size belt
#37
:n
DNum_belts
:s
b
:c
Number of belts required
#38
:n

:s
b
=u
=l
=f
=r
#1
:r
L=(2*C)+(1.57*(D+d))+(((D-d)^2)/(4*C))
#2
:r
wrap_angle=(pi()-(D-d)/C)*(180/pi())
#3
:r
i=D/d
#4
:r
i=RPMhigh/RPMlow
#5
:r
dpr=(RPMhigh/1000)*d
#6
:r
r=RPMhigh/1000
#7
:r
Cmin=D+1.5*d
#8
:r
Ahp=dpr*(1.004-(1.652/d)-((1.547e-4)*(dpr)^2)-(.2126*log(dpr)))+1.652*r*(1-1/Ksr)
#9
:r
AXhp=dpr*(1.462-(2.239/d)-((2.198e-4)*(dpr)^2)-(.4238*log(dpr)))+2.239*r*(1-1/Ksr)
#10
:r
Bhp=dpr*(1.769-(4.372/d)-((3.081e-4)*(dpr)^2)-(.3658*log(dpr)))+4.372*r*(1-1/Ksr)
#11
:r
BXhp=dpr*(2.051-(3.532/d)-((3.097e-4)*(dpr)^2)-(.5735*log(dpr)))+3.532*r*(1-1/Ksr)
#12
:r
Chp=dpr*(3.325-(12.07/d)-((5.828e-4)*(dpr)^2)-(.6886*log(dpr)))+12.07*r*(1-1/Ksr)
#13
:r
CXhp=dpr*(3.272-(6.655/d)-((5.298e-4)*(dpr)^2)-(.8637*log(dpr)))+6.655*r*(1-1/Ksr)
#14
:r
Dhp=dpr*(7.16-(43.21/d)-((1.384e-3)*(dpr)^2)-(1.454*log(dpr)))+43.21*r*(1-1/Ksr)
#15
:r
Ahp_corrected=Ahp*Lngth_correction*Arc_of_contact_correction
#16
:r
AXhp_corrected=AXhp*Lngth_correction*Arc_of_contact_correction
#17
:r
Bhp_corrected=Bhp*Lngth_correction*Arc_of_contact_correction
#18
:r
BXhp_corrected=BXhp*Lngth_correction*Arc_of_contact_correction
#19
:r
Chp_corrected=Chp*Lngth_correction*Arc_of_contact_correction
#20
:r
CXhp_corrected=CXhp*Lngth_correction*Arc_of_contact_correction
#21
:r
Dhp_corrected=Dhp*Lngth_correction*Arc_of_contact_correction
#22
:r
ANum_belts=Input_hp/Ahp_corrected
#23
:r
AXNum_belts=Input_hp/AXhp_corrected
#24
:r
BNum_belts=Input_hp/Bhp_corrected
#25
:r
BXNum_belts=Input_hp/BXhp_corrected
#26
:r
CNum_belts=Input_hp/Chp_corrected
#27
:r
CXNum_belts=Input_hp/CXhp_corrected
#28
:r
DNum_belts=Input_hp/Dhp_corrected
#29
:r
Belt_vel=RPMhigh*PI()*d/12
=p
=t
=n
=c
=g
#1
:c
.000001
:i
10
:t
1
%Tv,f,3,4,0,0,0
%Or,f,0,1,0,1,0
%Xf,f,0,0,0,2,0,34,563,36,36,0,2,-1,0,0,2,-15,400,49,0,0,0,MS LineDraw,4,16,26,38,80
%Xu,f,0,0,0,2,0,134,563,36,36,0,3,-1,0,0,2,-15,400,49,0,0,0,MS LineDraw,5,10,20,34,48,80
%Xl,f,0,0,0,2,0,234,563,36,36,0,4,-1,0,0,2,-15,400,49,0,0,0,MS LineDraw,4,10,21,31,80
%Xp,f,0,0,0,2,0,334,563,36,36,0,5,-1,0,0,2,-15,400,49,0,0,0,MS LineDraw,3,13,25,80
%Xt,f,0,0,0,2,0,434,563,36,36,0,6,-1,0,0,2,-15,400,49,0,0,0,MS LineDraw,2,15,80
%Xn,f,0,0,0,2,0,534,563,36,36,0,7,-1,0,0,2,-15,400,49,0,0,0,MS LineDraw,2,15,80
%Xc,f,0,0,0,2,0,634,563,36,36,0,8,-1,0,0,2,-15,400,49,0,0,0,MS LineDraw,3,15,22,80
%Xm,f,0,0,0,0,0,734,563,36,36,0,9,-1,0,0,2,0,0,0,0,0,0,,0
%Xr,f,0,1,0,2,0,66,66,826,437,0,1,-1,0,0,1,-15,400,49,0,0,0,MS LineDraw,2,2,85
%Xv,f,3,4,0,1,0,-4,-23,1032,662,0,0,-1,0,0,3,-15,400,49,0,0,0,MS LineDraw,6,3,13,27,37,47,96