2 files changed, 88 insertions, 0 deletions
diff --git a/764/CH6/EX6.7.b/result6_7.txt b/764/CH6/EX6.7.b/result6_7.txt
new file mode 100755
index 000000000..b92ae125b
--- /dev/null
+++ b/764/CH6/EX6.7.b/result6_7.txt
@@ -0,0 +1,56 @@
+-->//(Power Screws) Example 6.7
+ 
+-->//Speed of the tool holder v (m/min)
+ 
+-->v = 5
+ v  =
+ 
+    5.  
+ 
+-->//Number of starts of the screw n
+ 
+-->n = 1
+ n  =
+ 
+    1.  
+ 
+-->//Nominal diameter of the screw d (mm)
+ 
+-->d = 48
+ d  =
+ 
+    48.  
+ 
+-->//Pitch of the screw p (mm)
+ 
+-->p = 8
+ p  =
+ 
+    8.  
+ 
+-->//Force exerted by operating nut W (N)
+ 
+-->W = 500
+ W  =
+ 
+    500.  
+ 
+-->//Mean radius of the friction collar rm (mm)
+ 
+-->rm = 40
+ rm  =
+ 
+    40.  
+ 
+-->//Coefficient of friction at thread and collar surfaces mu
+ 
+-->mu = 0.15
+ mu  =
+ 
+    0.15  
+ 
+
+The power required to drive the screw(kW) = 0.347319 kW
+
+Efficiency of the mechanism(eta) = 11.996655 percent
+ 
+\ No newline at end of file
diff --git a/764/CH6/EX6.7.b/solution6_7.sce b/764/CH6/EX6.7.b/solution6_7.sce
new file mode 100755
index 000000000..ecc077336
--- /dev/null
+++ b/764/CH6/EX6.7.b/solution6_7.sce
@@ -0,0 +1,32 @@
+
+//Obtain path of solution file
+path = get_absolute_file_path('solution6_7.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data6_7.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate lead of the screw l (mm)
+l = n * p
+//Calculate the mean diameter of the screw dm (mm)
+dm = d - (0.5 * p)
+//Calculate the lead angle alpha (degree)
+alpha = atand(l/(%pi * dm))
+//Calculate the angle of repose fi (degree)
+fi = atand(mu)
+//Calculate the torque required Mt (N-mm)
+Mt = (W * dm * tand(fi + alpha))/2
+//Calculate the torque applied to overcome the friction at collar surface Mtc (N-mm)
+Mtc = (mu * W * rm)
+//Calculate the total external torque required MTotal (N-mm)
+MTotal = Mt + Mtc
+//Calculate the rpm of the screw N
+N = (v * 1000)/p
+//Calculate the power required to drive the screw kW
+kW = (2 * %pi * N * MTotal)/(60 * (10^6))
+//Calculate the efficiency of the mechanism eta (%)
+eta = ((W * l)/(2 * %pi * MTotal))*100
+//Print results
+printf('\nThe power required to drive the screw(kW) = %f kW\n',kW)
+printf('\nEfficiency of the mechanism(eta) = %f percent\n',eta)