2 files changed, 101 insertions, 0 deletions
diff --git a/764/CH7/EX7.13.b/result7_13.txt b/764/CH7/EX7.13.b/result7_13.txt
new file mode 100755
index 000000000..4f97ec61c
--- /dev/null
+++ b/764/CH7/EX7.13.b/result7_13.txt
@@ -0,0 +1,63 @@
+-->//(Threaded Joints) Example 7.13
+ 
+-->//Refer Fig.7.28 on page 245
+ 
+-->//Maximum force in the tie rod P (kN)
+ 
+-->P = 5
+ P  =
+ 
+    5.  
+ 
+-->//Tie rod inclination with the horizontal theta (degree)
+ 
+-->theta = 30
+ theta  =
+ 
+    30.  
+ 
+-->//Number of bolts N
+ 
+-->N = 4
+ N  =
+ 
+    4.  
+ 
+-->//Tensile yield strength of 30C8 Syt (N/mm2)
+ 
+-->Syt = 400
+ Syt  =
+ 
+    400.  
+ 
+-->//Factor of safety fs
+ 
+-->fs = 5
+ fs  =
+ 
+    5.  
+ 
+-->//Distance between boltA and pt.C l1 (mm)
+ 
+-->l1 = 25
+ l1  =
+ 
+    25.  
+ 
+-->//Distance between boltB and pt.C l2 (mm)
+ 
+-->l2 = 150 + 25
+ l2  =
+ 
+    175.  
+ 
+-->//Eccentricity value e (mm)
+ 
+-->e = 50 + 25
+ e  =
+ 
+    75.  
+ 
+
+Area at the core cross-section(A) = 33.170154 mm2
+ 
+\ No newline at end of file
diff --git a/764/CH7/EX7.13.b/solution7_13.sce b/764/CH7/EX7.13.b/solution7_13.sce
new file mode 100755
index 000000000..5d7fc8894
--- /dev/null
+++ b/764/CH7/EX7.13.b/solution7_13.sce
@@ -0,0 +1,38 @@
+
+//Obtain path of solution file
+path = get_absolute_file_path('solution7_13.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data7_13.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the permissible shear stress tauMax (N/mm2)
+tauMax = ((50/100)*Syt)/fs
+//Calculate vertical component of the axial force in the tie rod Pv (N)
+Pv = P * 1000 * sind(theta)
+//Calculate horizontal component of the axial force in the tie rod Ph (N)
+Ph = P * 1000 * cosd(theta)
+//Calculate the direct tensile force on the bolts Dtensile (N)
+Dtensile = Pv/N
+//Calculate the direct shear force on the bolts Sshear (N)
+Sshear = Ph/N
+//Calculate the tensile force on appropriate bolt due to bending moment Ftensile (N)
+if (l1 > l2) then
+    Ftensile = (Ph * e * l1)/(2*((l1^2) + (l2^2)))
+else
+    Ftensile = (Ph * e * l2)/(2*((l1^2) + (l2^2)))
+end
+//Assume the core cross-section area of the bolts to be 1mm2 A
+A = 1
+//Calculate the resultant tensile stress on the bolts res (N/mm2)
+res = (Dtensile + Ftensile)/A
+//Calculate the shear stress in bolts Stau (N/mm2)
+Stau = Sshear/A
+//Calculate the maximum shear stress in the bolts tau (N/mm2)
+tau = (((res/2)^2) + (Stau^2))^(1/2)
+//Calculate the actual core cross-section area of the bolts A (mm2)
+A = tau/tauMax
+//Choose proper diameter from Table 7.1
+//Print results
+printf('\nArea at the core cross-section(A) = %f mm2\n',A)