2 files changed, 103 insertions, 0 deletions
diff --git a/764/CH7/EX7.3.b/result7_3.txt b/764/CH7/EX7.3.b/result7_3.txt
new file mode 100755
index 000000000..1c7959344
--- /dev/null
+++ b/764/CH7/EX7.3.b/result7_3.txt
@@ -0,0 +1,56 @@
+-->//(Threaded Joints) Example 7.3
+ 
+-->//Refer Fig.7.16 on page 233
+ 
+-->//Eccentric force acting on the structure P (kN)
+ 
+-->P = 10
+ P  =
+ 
+    10.  
+ 
+-->//Eccentricity of the force from the C.G. of the bolts e (mm)
+ 
+-->e = 500
+ e  =
+ 
+    500.  
+ 
+-->//Centre distance between bolts 1 and 2 dist1 (mm)
+ 
+-->dist1 = 200
+ dist1  =
+ 
+    200.  
+ 
+-->//Centre distance between bolts 1 and 3 dist2 (mm)
+ 
+-->dist2 = 150
+ dist2  =
+ 
+    150.  
+ 
+-->//Tensile yield strength of 30C8 Syt (N/mm2)
+ 
+-->Syt = 400
+ Syt  =
+ 
+    400.  
+ 
+-->//Factor of safety fs
+ 
+-->fs = 2.5
+ fs  =
+ 
+    2.5  
+ 
+-->//Number of bolts N
+ 
+-->N = 4
+ N  =
+ 
+    4.  
+ 
+
+Standard size of the bolts is M20
+ 
+\ No newline at end of file
diff --git a/764/CH7/EX7.3.b/solution7_3.sce b/764/CH7/EX7.3.b/solution7_3.sce
new file mode 100755
index 000000000..ac216e404
--- /dev/null
+++ b/764/CH7/EX7.3.b/solution7_3.sce
@@ -0,0 +1,47 @@
+
+//Function to standardise the given bolt-size
+function[v] = standard(w)
+    v = ceil(w)
+    rem = pmodulo(v,10)
+    if (rem ~= 0) then
+    v = v + (10 - rem)
+    end
+endfunction
+
+
+//Obtain path of solution file
+path = get_absolute_file_path('solution7_3.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data7_3.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the permissible shear stress tau (N/mm2)
+tau = ((50/100)*Syt)/fs
+//Calculate the distance between bolt1 and C.G. of all bolts res (mm)
+res = (((dist1/2)^2) + ((dist2/2)^2))^(1/2)
+//Calculate the primary shear force at bolt1 Pshear (N)
+Pshear = (P * 1000)/N
+//Calculate the secondary shear force at bolt1 Sshear (N)
+Sshear = (P * 1000 * e)/(N * res)
+//Calculate angle theta (degree)
+theta = atand(dist2/dist1)
+//Calculate the resultant force on bolt1 P1 (N)
+P1 = (((Sshear * cosd(theta) - Pshear)^2) + ((Sshear * sind(theta))^2))^(1/2)
+//Calculate the resultant force on bolt2 P2 (N)
+P2 = (((Sshear * cosd(theta) + Pshear)^2) + ((Sshear * sind(theta))^2))^(1/2)
+//Obtain the bolt subjected to maximum shear force Pmax (N)
+if (P1 > P2) then
+    Pmax = P1
+else
+    Pmax = P2
+end
+//Calculate the core diameter of the bolt dc (mm)
+dc = ((4 * Pmax)/(tau * %pi))^(1/2)
+//Calculate the nominal diameter of the bolt d (mm)
+d = dc/0.8
+//Standardise the bolt size
+d = standard(d)
+//Print results
+printf('\nStandard size of the bolts is M%d\n',d)