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)