1 files changed, 28 insertions, 0 deletions
diff --git a/213/CH10/EX10.8/10_8.sce b/213/CH10/EX10.8/10_8.sce
new file mode 100755
index 000000000..ee374e289
--- /dev/null
+++ b/213/CH10/EX10.8/10_8.sce
@@ -0,0 +1,28 @@
+//To find the power required
+clc
+//Given:
+d0=55,D2=60,R2=D2/2,D1=90,R1=D1/2 //mm
+p=10/1000 //m
+W=400 //N
+mu=0.15
+v=6 //Cutting speed, m/min
+//Solution:
+//Calculating the mean diameter of the screw
+d=d0-p/2 //mm
+//Calculating the helix angle
+alpha=p/(%pi*d) //radians
+//Calculating the force required at the circumference of the screw
+phi=atan(mu) //Limiting angle of friction, radians
+P=W*tan(alpha+phi) //N
+//Calculating the mean radius of the flat surface
+R=(R1+R2)/2 //mm
+//Calculating the torque required
+T=(P*d/2+mu1*W*R)/1000 //N-m
+//Calculating the speed of the screw
+N=v/p //rpm
+//Calculating the angular speed
+omega=2*%pi*N/60 //rad/s
+//Calculating the power required to operate the nut
+Power=T*omega/1000 //Power required to operate the nut, kW
+//Results:
+printf("\n\n Power required to operate the nut = %.3f kW.\n\n",Power)
+\ No newline at end of file