2 files changed, 67 insertions, 0 deletions
diff --git a/764/CH7/EX7.11.b/result7_11.txt b/764/CH7/EX7.11.b/result7_11.txt
new file mode 100755
index 000000000..05d6f959d
--- /dev/null
+++ b/764/CH7/EX7.11.b/result7_11.txt
@@ -0,0 +1,49 @@
+-->//(Threaded Joints) Example 7.11
+ 
+-->//Refer Fig.7.26 on page 243
+ 
+-->//Screw pitch circle diameter 2b (mm)
+ 
+-->b = 300/2
+ b  =
+ 
+    150.  
+ 
+-->//Flange diameter 2a (mm)
+ 
+-->a = 400/2
+ a  =
+ 
+    200.  
+ 
+-->//External force acting on the bearing P (kN)
+ 
+-->P = 25
+ P  =
+ 
+    25.  
+ 
+-->//Eccentricity value l (mm)
+ 
+-->l = 150
+ l  =
+ 
+    150.  
+ 
+-->//Maximum permissible tensile stress in the cap screw sigmaMax (N/mm2)
+ 
+-->sigmaMax = 50
+ sigmaMax  =
+ 
+    50.  
+ 
+-->//Number of cap screws n
+ 
+-->n = 4
+ n  =
+ 
+    4.  
+ 
+
+The nominal diameter of the cap screw(d) = 15.000000 mm
+ 
+\ No newline at end of file
diff --git a/764/CH7/EX7.11.b/solution7_11.sce b/764/CH7/EX7.11.b/solution7_11.sce
new file mode 100755
index 000000000..f71362b43
--- /dev/null
+++ b/764/CH7/EX7.11.b/solution7_11.sce
@@ -0,0 +1,18 @@
+
+//Obtain path of solution file
+path = get_absolute_file_path('solution7_11.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data7_11.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the tensile force in the cap screw P1 (N)
+P1 = (2 * P * 1000 * l * (a + (b * cosd(180/n))))/(n * ((2 * (a^2)) + (b^2)))
+//Calculate the core diameter of the cap screw dc (mm)
+dc = ((P1 * 4)/(%pi * sigmaMax))^(1/2)
+//Calculate the nominal diameter of the cap screw d (mm)
+d = dc/0.8
+d = ceil(d)
+//Print results
+printf('\nThe nominal diameter of the cap screw(d) = %f mm\n',d)