1 files changed, 19 insertions, 0 deletions
diff --git a/1205/CH8/EX8.5/S_8_5.sce b/1205/CH8/EX8.5/S_8_5.sce
new file mode 100644
index 000000000..9e7e3fb63
--- /dev/null
+++ b/1205/CH8/EX8.5/S_8_5.sce
@@ -0,0 +1,19 @@
+clc;
+pitch=2;//mm, pitch of screw
+d=10;//mm, mean diameter of thread
+r=d/2;//mm, radius
+us=0.30;// Coeffiecient of static friction
+M=40;//kN.m , Maximum couple
+
+//Force exerted by clamp
+L=2*pitch;//mm, as screw is double threaded
+theta=atan(L/(2*%pi*r));//rad, angle of inclination
+phi=atan(us);//rad, angle of friction
+Q=M/r*1000;//N, Force applied to block representing screw
+Q=Q/1000//kN, Conversion into kN
+W=Q/tan(theta+phi);//kN, Magnitude of force exerted on the piece of wood 
+printf("Magnitude of force exerted on the piece of wood  is W= %.2f kN \n",W);
+//Couple required to loosen clamp
+Q=W*tan(phi-theta);//kN, Force required to loosen clamp
+Couple=Q*r;//N.m, Couple required to loosen clamp
+printf("Couple  required to loosen clamp is %.2f N.m\n",Couple);