1 files changed, 24 insertions, 0 deletions
diff --git a/213/CH10/EX10.4/10_4.sce b/213/CH10/EX10.4/10_4.sce
new file mode 100755
index 000000000..82831d4f2
--- /dev/null
+++ b/213/CH10/EX10.4/10_4.sce
@@ -0,0 +1,24 @@
+//To find work done
+clc
+//Given:
+p=12,d=40 //mm
+mu=0.16
+W=2500 //N
+//Solutiom:
+//Work done in drawing the wagons together agianst a steady load of 2500 N:
+//Calculating the helix angle
+alpha=atan(p/(%pi*d)) //radians
+//Calculating the effort required at the circumference of the screw
+phi=atan(mu) //Limiting angle of friction, radians
+P=W*tan(alpha+phi) //N
+//Calculating the torque required to overcome friction between the screw and nut
+T=P*d/(2*1000) //N-m
+//Calculating the number of turns required
+N=240/(2*p)
+//Calculating the work done
+W1=T*2*%pi*N //Work done, N-m
+//Work done in drawing the wagons together when the load increases from 2500 N to 6000 N:
+W2=W1*(6000-2500)/2500 //Work done, N-m
+//Results:
+printf("\n\n Work done in drawing the wagons together agianst a steady load of 2500 N = %.1f N-m.\n",W1)
+printf(" Work done in drawing the wagons together when the load increases from 2500 N to 6000 N = %.1f N-m.\n\n",W2)
+\ No newline at end of file