summaryrefslogtreecommitdiff
path: root/3594/CH7/EX7.1/7_1.sce
blob: 571c1f3f9d48e7e293d5de4d9ab2d18fcc05b876 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

clc
//given-belt is perfectly elastic and massless 
u=0.3
v=3600//ft/min
V=v/60//ft/sec
theta=165//degrees
x=theta*%pi/180
k=%e^(u*x)//k=T1/T2=e^(u*x)
To=500//lb
T1=2*k*To/(k+1)
T2=T1/k
T=T1-T2//effective tension
H=T*V/550//horsepower transmitted
printf("\nThe horse-power transmitted = %.2f\n",H)