2 files changed, 68 insertions, 0 deletions
diff --git a/764/CH7/EX7.17.b/result7_17.txt b/764/CH7/EX7.17.b/result7_17.txt
new file mode 100755
index 000000000..dad2f1cab
--- /dev/null
+++ b/764/CH7/EX7.17.b/result7_17.txt
@@ -0,0 +1,49 @@
+-->//(Threaded Joints) Example 7.17
+ 
+-->//Refer Fig. 7.36 on page 257
+ 
+-->//Pre-load in the bolt Pi (kN)
+ 
+-->Pi = 2.5
+ Pi  =
+ 
+    2.5  
+ 
+-->//External force acting on the bolt P (kN)
+ 
+-->P = 5
+ P  =
+ 
+    5.  
+ 
+-->//Yield tensile strength of 30C8 Syt (N/mm2)
+ 
+-->Syt = 400
+ Syt  =
+ 
+    400.  
+ 
+-->//Factor of safety fs
+ 
+-->fs = 2.5
+ fs  =
+ 
+    2.5  
+ 
+-->//Assume stiffness of bolts to be 1N/mm kb
+ 
+-->kb = 1
+ kb  =
+ 
+    1.  
+ 
+-->//Stiffness of parts held together kc (N/mm)
+ 
+-->kc = 2.5 * kb
+ kc  =
+ 
+    2.5  
+ 
+
+Tensile stress area of the bolt(A) = 24.553571 mm2
+ 
+\ No newline at end of file
diff --git a/764/CH7/EX7.17.b/solution7_17.sce b/764/CH7/EX7.17.b/solution7_17.sce
new file mode 100755
index 000000000..59006bddc
--- /dev/null
+++ b/764/CH7/EX7.17.b/solution7_17.sce
@@ -0,0 +1,19 @@
+
+//Obtain path of solution file
+path = get_absolute_file_path('solution7_17.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data7_17.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the permissible tensile stress sigmat (N/mm2)
+sigmat = Syt/fs
+//Calculate the resultant load on bolt Pb (N)
+deltaP = (P * 1000)*(kb/(kb + kc))
+Pb = (Pi * 1000) + deltaP
+//Calculate the tensile stress area of the bolt A (mm2)
+A = Pb/sigmat
+//Choose proper diameter from Table 7.1
+//Print results
+printf('\nTensile stress area of the bolt(A) = %f mm2\n',A)