summaryrefslogtreecommitdiff
path: root/3594/CH7/EX7.1/7_1.sce
diff options
context:
space:
mode:
Diffstat (limited to '3594/CH7/EX7.1/7_1.sce')
-rw-r--r--3594/CH7/EX7.1/7_1.sce15
1 files changed, 15 insertions, 0 deletions
diff --git a/3594/CH7/EX7.1/7_1.sce b/3594/CH7/EX7.1/7_1.sce
new file mode 100644
index 000000000..571c1f3f9
--- /dev/null
+++ b/3594/CH7/EX7.1/7_1.sce
@@ -0,0 +1,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)