summaryrefslogtreecommitdiff
path: root/3862/CH5/EX5.16/Ex5_16.sce
blob: f7a55c7a0010f596899f29b36c2eb147c1a146cf (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
clear
//
d1=500.0         //diameter of a shaft
d2=100.0        //diameter of a shaft
D=3000.0                   //distance between shafts in mm
T=1000.0              //Maximum permissible tension in the belt
U=0.25           //coefficient of friction between the belt and the pulley
R=220.0              //revlution per minute of larger shaft
//Length of belt = Arc length DC + Arc length FE + 2BG
O1=3.14+2*asin((d1+d2)/(2*D))
L=(d1/2+d2/2)*O1+2*D*cos(asin((d1+d2)/(2*D)))
printf("\n Length of belt is  %0.3f  mm",L)
T1=T/(2.71**(U*O1))
Velocity_of_the_belt =d1/2*(R*2*3.14/60.0)
Power_transmitted=(T-T1)*Velocity_of_the_belt
printf("\n Power Transmitted %0.3f  Watt",Power_transmitted)