TKW+1 =v #1 :n N :s b :c Number of teeth on large sprocket #2 :n n :s b :c Number of teeth on small sprocket #3 :n RPMn :s b :u rev/min :d rev/min :c RPM of small sprocket #4 :n RPMN :s b :u rev/min :d rev/min :c RPM of large sprocket #5 :n i :s b :c Speed ratio #6 :n D :s b :u in :d in :c Diameter of large sprocket (inches) #7 :n Dmm :s b :u mm :d mm :c Diameter of large sprocket (mm) #8 :n d :s b :u in :d in :c Diameter of small sprocket (inches) #9 :n dmm :s b :u mm :d mm :c Diameter of small sprocket (mm) #10 :n L :s b :u pitches :d pitches :c Length of chain in # of pitches #11 :n C :s b :u in :d in :c Center distance between sprockets #12 :n warn :s b :c Center distance warning message (output only) #13 :n p :s b :u in :d in :c Chain pitch #14 :n wrap_angle :s b :u degrees :d degrees :c Angle of wrap around smaller sprocket #15 :n V :s b :u ft/s :d ft/s :c Chain velocity (ft/second) #16 :n Vms :s b :u m/s :d m/s :c Chain velocity (meters/second) #17 :n num_strands :s b :c Number of strands in chain (1 to 4) #18 :n table_hp :s b :u hp :d hp :c Compare this to table 14 hp #19 :n multi_strand_factor :s b :c multi strand factor (1,1.7,2.5,3.3) #20 :n input_hp :s b :c input horsepower #21 :n service_factor :s b :c service factor =u =l =f =r #1 :r L=((N+n)/2)+((2*C)/p)+((p*(N-n)^2)/(39.5*C)) #2 :r d=p/(sind(180/n)) #3 :r D=p/(sind(180/N)) #4 :r wrap_angle=(pi()-((D-d)/C))*(180/pi()) #5 :r i=N/n #6 :r i=RPMn/RPMN #7 :r if C<=.5*(D+d) then warn='too_short #8 :r if C>=80*p then warn='too_long #9 :r if and(C<80*p,C>.5*(D+d)) then warn='OK #10 :r Dmm=D*25.4 #11 :r dmm=d*25.4 #12 :r Vms=(pi()*dmm*RPMn*.001)/180 #13 :r V=Vms/.3048 #14 :r table_hp=(input_hp*service_factor)/multi_strand_factor #15 :r if num_strands=1 then multi_strand_factor = 1 #16 :r if num_strands=2 then multi_strand_factor = 1.7 #17 :r if num_strands=3 then multi_strand_factor = 2.5 #18 :r if num_strands=4 then multi_strand_factor = 3.3 =p =t =n =c =g #1 :c .000001 :i 10 :t 1 %Tv,f,17,5,0,0,9 %Or,f,0,1,0,0,4 %Xf,f,0,0,0,2,0,20,324,36,36,0,0,0,0,0,2,0,0,0,0 %Xu,f,0,0,0,2,0,92,324,36,36,0,0,0,0,0,2,0,0,0,0 %Xl,f,0,0,0,2,0,164,324,36,36,0,0,0,0,0,2,0,0,0,0 %Xp,f,0,0,0,2,0,236,324,36,36,0,0,0,0,0,2,0,0,0,0 %Xt,f,0,0,0,2,0,308,324,36,36,0,0,0,0,0,2,0,0,0,0 %Xn,f,0,0,0,2,0,380,324,36,36,0,0,0,0,0,2,0,0,0,0 %Xc,f,0,0,0,2,0,452,324,36,36,0,0,0,0,0,2,0,0,0,0 %Xr,f,0,1,0,1,4,0,72,644,324,0,0,0,0,0,1,0,0,0,0 %X ,t,7,0,0,2,0,72,72,520,276,1,0,13,0,0,1,0,0,0,0 %Xv,f,17,5,0,1,9,-6,-25,652,427,0,0,0,0,0,3,0,0,0,0