diff options
Diffstat (limited to '764/CH8')
82 files changed, 2914 insertions, 0 deletions
diff --git a/764/CH8/EX8.1.a/data8_1.sci b/764/CH8/EX8.1.a/data8_1.sci new file mode 100755 index 000000000..225e2bf6f --- /dev/null +++ b/764/CH8/EX8.1.a/data8_1.sci @@ -0,0 +1,11 @@ +
+//(Welded and Riveted Joints) Example 8.1
+//Refer Fig.8.6 on page 277
+//Shell inner diameter D (m)
+D = 2.5
+//Thickness of the cylindrical shell and hemispherical cover t (mm)
+t = 12
+//Permissible tensile stress in the weld sigmat (N/mm2)
+sigmat = 85
+//Efficiency of the welded joint eta
+eta = 0.85
diff --git a/764/CH8/EX8.1.b/result8_1.txt b/764/CH8/EX8.1.b/result8_1.txt new file mode 100755 index 000000000..72d560fc0 --- /dev/null +++ b/764/CH8/EX8.1.b/result8_1.txt @@ -0,0 +1,35 @@ +-->//(Welded and Riveted Joints) Example 8.1
+
+-->//Refer Fig.8.6 on page 277
+
+-->//Shell inner diameter D (m)
+
+-->D = 2.5
+ D =
+
+ 2.5
+
+-->//Thickness of the cylindrical shell and hemispherical cover t (mm)
+
+-->t = 12
+ t =
+
+ 12.
+
+-->//Permissible tensile stress in the weld sigmat (N/mm2)
+
+-->sigmat = 85
+ sigmat =
+
+ 85.
+
+-->//Efficiency of the welded joint eta
+
+-->eta = 0.85
+ eta =
+
+ 0.85
+
+
+The allowable internal pressure(p) = 1.387200 N/mm2
+
\ No newline at end of file diff --git a/764/CH8/EX8.1.b/solution8_1.sce b/764/CH8/EX8.1.b/solution8_1.sce new file mode 100755 index 000000000..caa7fd838 --- /dev/null +++ b/764/CH8/EX8.1.b/solution8_1.sce @@ -0,0 +1,17 @@ +
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_1.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_1.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the length of the welded joint l (mm)
+l = %pi * D * 1000
+//Calculate the tensile force on the plates P (N)
+P = sigmat * t * l * eta
+//Calculate the allowable internal pressure p (N/mm2)
+p = P/((%pi/4)*((D*1000)^2))
+//Print results
+printf('\nThe allowable internal pressure(p) = %f N/mm2\n',p)
diff --git a/764/CH8/EX8.10.a/data8_10.sci b/764/CH8/EX8.10.a/data8_10.sci new file mode 100755 index 000000000..395f2245f --- /dev/null +++ b/764/CH8/EX8.10.a/data8_10.sci @@ -0,0 +1,13 @@ +
+//(Welded and Riveted Joints) Example 8.10
+//Refer Fig. 8.25 on page 287
+//Eccentric force acting on the welded connection P (kN)
+P = 60
+//Permissible shear stress for the weld tau (N/mm2)
+tau = 100
+//Width of the plate w (mm)
+w = 100
+//Length of the transverse welds l (mm)
+l = 50
+//Force eccentricity e (mm)
+e = 150 + (l/2)
diff --git a/764/CH8/EX8.10.b/result8_10.txt b/764/CH8/EX8.10.b/result8_10.txt new file mode 100755 index 000000000..aeece6e69 --- /dev/null +++ b/764/CH8/EX8.10.b/result8_10.txt @@ -0,0 +1,44 @@ +-->//(Welded and Riveted Joints) Example 8.10
+
+-->//Refer Fig. 8.25 on page 287
+
+-->//Eccentric force acting on the welded connection P (kN)
+
+-->P = 60
+ P =
+
+ 60.
+
+-->//Permissible shear stress for the weld tau (N/mm2)
+
+-->tau = 100
+ tau =
+
+ 100.
+
+-->//Width of the plate w (mm)
+
+-->w = 100
+ w =
+
+ 100.
+
+-->//Length of the transverse welds l (mm)
+
+-->l = 50
+ l =
+
+ 50.
+
+-->//Force eccentricity e (mm)
+
+-->e = 150 + (l/2)
+ e =
+
+ 175.
+
+
+Throat of the weld(t) = 20.186421 mm
+
+Thickness of the weld(h) = 28.552222 mm
+
\ No newline at end of file diff --git a/764/CH8/EX8.10.b/solution8_10.sce b/764/CH8/EX8.10.b/solution8_10.sce new file mode 100755 index 000000000..87ea015a0 --- /dev/null +++ b/764/CH8/EX8.10.b/solution8_10.sce @@ -0,0 +1,56 @@ +
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_10.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_10.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the x-coordinate of the C.G. of the three welds, origin being at G3 on weld3, xbar (mm)
+xbar = ((l * (l/2)) + (l * (l/2)) + (w * 0))/(l + l + w)
+//Calculate the y-cordinate of the C.G. of the three welds, origin being at G3 on weld3, ybar (mm)
+ybar = ((l * (w/2)) + (l * ((-1 * w)/2)) + (w * 0))/(l + l + w)
+//Assume the throat of the welds to be 1mm t
+t = 1
+//Calculate the areas of the three welds (mm2)
+A1 = l * t
+A2 = l * t
+A3 = w * t
+//Calculate the total area of the welds A (mm2)
+A = A1 + A2 + A3
+//Calculate the primary shear stress in the weld tau1 (N/mm2)
+tau1 = (P * 1000)/A
+//Calculate the distance of the farthest point from the C.G. r (mm)
+//Angles in degree
+r = sqrt(((l - xbar)^2) + ((w/2)^2))
+theta = atand((w/2)/(l - xbar))
+//Calculate the inclination of the of the secondary shear stress with the horizontal fi (degree)
+fi = 90 - theta
+//Calculate force eccentricity e (mm)
+e = 150 + l - xbar
+//Maximum bending moment acting on the welds M (N/mm)
+M = (P * 1000) * e
+//Distance between the C.Gs of the three welds from the overall C.G (mm)
+r1 = sqrt((((l/2) - xbar)^2) + ((w/2)^2))
+r2 = sqrt((((l/2) - xbar)^2) + ((w/2)^2))
+r3 = xbar
+//Calculate the polar moments of inertia of the three welds (mm4)
+J1 = A1*(((l^2)/12) + (r1^2))
+J2 = A2*(((l^2)/12) + (r2^2))
+J3 = A3*(((w^2)/12) + (r3^2))
+//Calculate the secondary shear stress tau2 (N/mm2)
+tau2 = (M * r)/(J1 + J2 + J3)
+//Total vertical component of the resultant shear stress vert (N/mm2)
+vert = tau1 + (tau2 * sind(fi))
+//Total horizontal component of the resultant shear stress hori (N/mm2)
+hori = tau2 * cosd(fi)
+//Calculate the resultant shear stress res (N/mm2)
+res = sqrt((vert^2) + (hori^2))
+//Calculate the actual throat of the weld t (mm)
+t = res/tau
+//Calculate the leg of the weld h (mm)
+h = t/0.707
+//Print results
+printf('\nThroat of the weld(t) = %f mm\n',t)
+printf('\nLeg of the weld(h) = %f mm\n',h)
diff --git a/764/CH8/EX8.11.a/data8_11.sci b/764/CH8/EX8.11.a/data8_11.sci new file mode 100755 index 000000000..b0cf19ff1 --- /dev/null +++ b/764/CH8/EX8.11.a/data8_11.sci @@ -0,0 +1,11 @@ +
+//(Welded and Riveted Joints) Example 8.11
+//Refer Fig.8.28 on page 289
+//Eccentric force acting on the welded connection P (kN)
+P = 25
+//Permissible shear stress for the weld tau (N/mm2)
+tau = 55
+//Length of the transverse welds w (mm)
+w = 150
+//Length of the parallel weld l (mm)
+l = 100
diff --git a/764/CH8/EX8.11.b/result8_11.txt b/764/CH8/EX8.11.b/result8_11.txt new file mode 100755 index 000000000..797bc6105 --- /dev/null +++ b/764/CH8/EX8.11.b/result8_11.txt @@ -0,0 +1,37 @@ +-->//(Welded and Riveted Joints) Example 8.11
+
+-->//Refer Fig.8.28 on page 289
+
+-->//Eccentric force acting on the welded connection P (kN)
+
+-->P = 25
+ P =
+
+ 25.
+
+-->//Permissible shear stress for the weld tau (N/mm2)
+
+-->tau = 55
+ tau =
+
+ 55.
+
+-->//Length of the transverse welds w (mm)
+
+-->w = 150
+ w =
+
+ 150.
+
+-->//Length of the parallel weld l (mm)
+
+-->l = 100
+ l =
+
+ 100.
+
+
+Throat of the weld(t) = 4.630044 mm
+
+Leg of the weld(h) = 6.548861 or 7.000000 mm
+
\ No newline at end of file diff --git a/764/CH8/EX8.11.b/solution8_11.sce b/764/CH8/EX8.11.b/solution8_11.sce new file mode 100755 index 000000000..7b575cc8e --- /dev/null +++ b/764/CH8/EX8.11.b/solution8_11.sce @@ -0,0 +1,57 @@ +
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_11.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_11.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the x-coordinate of the C.G. of the three welds, origin being at G3 on weld3, xbar (mm)
+xbar = ((w * (l/2)) + (w * ((-1 * l)/2)) + (l * 0))/(w + w + l)
+//Calculate the y-cordinate of the C.G. of the three welds, origin being at G3 on weld3, ybar (mm)
+ybar = ((w * (w/2)) + (w * (w/2)) + (l * 0))/(w + w + l)
+//Assume the throat of the welds to be 1mm t
+t = 1
+//Calculate the areas of the three welds (mm2)
+A1 = w * t
+A2 = w * t
+A3 = l * t
+//Calculate the total area of the welds A (mm2)
+A = A1 + A2 + A3
+//Calculate the primary shear stress in the weld tau1 (N/mm2)
+tau1 = (P * 1000)/A
+//Calculate the distance of the farthest point from the C.G. r (mm)
+//Angles in degree
+r = sqrt(((w - ybar)^2) + ((l/2)^2))
+theta = atand((w - ybar)/(l/2))
+//Calculate the inclination of the of the secondary shear stress with the horizontal fi (degree)
+fi = 90 - theta
+//Calculate force eccentricity e (mm)
+e = 100 + (l/2)
+//Maximum bending moment acting on the welds M (N/mm)
+M = (P * 1000) * e
+//Distance between the C.Gs of the three welds from the overall C.G (mm)
+r1 = sqrt((((w/2) - ybar)^2) + ((l/2)^2))
+r2 = sqrt((((w/2) - ybar)^2) + ((l/2)^2))
+r3 = ybar
+//Calculate the polar moments of inertia of the three welds (mm4)
+J1 = A1*(((w^2)/12) + (r1^2))
+J2 = A2*(((w^2)/12) + (r2^2))
+J3 = A3*(((l^2)/12) + (r3^2))
+//Calculate the secondary shear stress tau2 (N/mm2)
+tau2 = (M * r)/(J1 + J2 + J3)
+//Total vertical component of the resultant shear stress vert (N/mm2)
+vert = tau1 + (tau2 * sind(fi))
+//Total horizontal component of the resultant shear stress hori (N/mm2)
+hori = tau2 * cosd(fi)
+//Calculate the resultant shear stress res (N/mm2)
+res = sqrt((vert^2) + (hori^2))
+//Calculate the actual throat of the weld t (mm)
+t = res/tau
+//Calculate the thickness of the weld h (mm)
+h = t/0.707
+hround = ceil(h)
+//Print results
+printf('\nThroat of the weld(t) = %f mm\n',t)
+printf('\nLeg of the weld(h) = %f or %f mm\n',h,hround)
diff --git a/764/CH8/EX8.12.a/data8_12.sci b/764/CH8/EX8.12.a/data8_12.sci new file mode 100755 index 000000000..003aea16a --- /dev/null +++ b/764/CH8/EX8.12.a/data8_12.sci @@ -0,0 +1,15 @@ +
+//(Welded and Riveted Joints) Example 8.12
+//Refer Fig.8.32 on page 291
+//Eccentric load acting on the bracket P (kN)
+P = 10
+//Permissible shear stress in the welds tau (N/mm2)
+tau = 70
+//Lenght of the parallel welds l (mm)
+l = 50
+//Width of the bracket plate w (mm)
+w = 100
+//Number of parallel welds N
+N = 2
+//Force eccentricity value e (mm)
+e = 100
diff --git a/764/CH8/EX8.12.b/result8_12.txt b/764/CH8/EX8.12.b/result8_12.txt new file mode 100755 index 000000000..28554c576 --- /dev/null +++ b/764/CH8/EX8.12.b/result8_12.txt @@ -0,0 +1,49 @@ +-->//(Welded and Riveted Joints) Example 8.12
+
+-->//Eccentric load acting on the bracket P (kN)
+
+-->P = 10
+ P =
+
+ 10.
+
+-->//Permissible shear stress in the welds tau (N/mm2)
+
+-->tau = 70
+ tau =
+
+ 70.
+
+-->//Lenght of the parallel welds l (mm)
+
+-->l = 50
+ l =
+
+ 50.
+
+-->//Width of the bracket plate w (mm)
+
+-->w = 100
+ w =
+
+ 100.
+
+-->//Number of parallel welds N
+
+-->N = 2
+ N =
+
+ 2.
+
+-->//Force eccentricity value e (mm)
+
+-->e = 100
+ e =
+
+ 100.
+
+
+Throat of the weld(t) = 2.020271 mm
+
+Leg of the weld(h) = 2.857527 or 3.000000 mm
+
\ No newline at end of file diff --git a/764/CH8/EX8.12.b/solution8_12.sce b/764/CH8/EX8.12.b/solution8_12.sce new file mode 100755 index 000000000..83acb26f4 --- /dev/null +++ b/764/CH8/EX8.12.b/solution8_12.sce @@ -0,0 +1,31 @@ +
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_12.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_12.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Assume the throat of the welds to be 1mm t
+t = 1
+//Calculate the total area of the welds A (mm2)
+A = N * l * t
+//Calculate the primary shear stress in the welds tau1 (N/mm2)
+tau1 = (P * 1000)/A
+//Calculate the moment of inertia of weld1 about X-axis passing through the C.G. of the welds Ixx (mm4)
+Ixx = ((l * (t^3))/12) + ((A/N) * ((w/2)^2))
+//Calculate the moment of inertia of all the welds I (mm4)
+I = N * Ixx
+//Calculate the bending stress in the top weld sigmab (N/mm2)
+sigmab = (P * 1000 * e * (w/2))/I
+//Calculate the maximum shear stress tauMax (N/mm2)
+tauMax = sqrt(((sigmab/2)^2) + (tau1^2))
+//Calculate the actual throat of the welds t (mm)
+t = tauMax/tau
+//Calculate the leg of the weld h (mm)
+h = t/0.707
+hround = ceil(h)
+//Print results
+printf('\nThroat of the weld(t) = %f mm\n',t)
+printf('\nLeg of the weld(h) = %f or %f mm\n',h,hround)
diff --git a/764/CH8/EX8.13.a/data8_13.sci b/764/CH8/EX8.13.a/data8_13.sci new file mode 100755 index 000000000..95fbf40ab --- /dev/null +++ b/764/CH8/EX8.13.a/data8_13.sci @@ -0,0 +1,15 @@ +
+//(Welded and Riveted Joints) Example 8.13
+//Refer Fig.8.33 on page 292
+//Eccentric load acting on the bracket P (kN)
+P = 50
+//Permissible shear stress in the welds tau (N/mm2)
+tau = 70
+//Length of the transverse welds l (mm)
+l = 400
+//Length of the bracket w (mm)
+w = 300
+//Number of transverse welds N
+N = 2
+//Force eccentricity value e (mm)
+e = 300
diff --git a/764/CH8/EX8.13.b/result8_13.txt b/764/CH8/EX8.13.b/result8_13.txt new file mode 100755 index 000000000..fea07255b --- /dev/null +++ b/764/CH8/EX8.13.b/result8_13.txt @@ -0,0 +1,51 @@ +-->//(Welded and Riveted Joints) Example 8.13
+
+-->//Refer Fig.8.33 on page 292
+
+-->//Eccentric load acting on the bracket P (kN)
+
+-->P = 50
+ P =
+
+ 50.
+
+-->//Permissible shear stress in the welds tau (N/mm2)
+
+-->tau = 70
+ tau =
+
+ 70.
+
+-->//Length of the transverse welds l (mm)
+
+-->l = 400
+ l =
+
+ 400.
+
+-->//Length of the bracket w (mm)
+
+-->w = 300
+ w =
+
+ 300.
+
+-->//Number of transverse welds N
+
+-->N = 2
+ N =
+
+ 2.
+
+-->//Force eccentricity value e (mm)
+
+-->e = 300
+ e =
+
+ 300.
+
+
+Throat of the weld(t) = 2.198406 mm
+
+Leg of the weld(h) = 3.109485 or 4.000000 mm
+
\ No newline at end of file diff --git a/764/CH8/EX8.13.b/solution8_13.sce b/764/CH8/EX8.13.b/solution8_13.sce new file mode 100755 index 000000000..78e0c7e7c --- /dev/null +++ b/764/CH8/EX8.13.b/solution8_13.sce @@ -0,0 +1,29 @@ +
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_13.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_13.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Assume the throat of the welds to be 1mm t
+t = 1
+//Calculate the total area of the welds A (mm2)
+A = N * l * t
+//Calculate the primary shear stress in the welds tau1 (N/mm2)
+tau1 = (P * 1000)/A
+//Calculate the total moment of inertia of the welds about the X-axis I (mm4)
+I = N * (t * (l^3))/12
+//Calculate the bending stress in the welds sigmab (N/mm2)
+sigmab = (P * 1000 * e * (l/2))/I
+//Calculate the maximum shear stress tauMax (N/mm2)
+tauMax = sqrt(((sigmab/2)^2) + (tau1^2))
+//Calculate the actual throat of the welds t (mm)
+t = tauMax/tau
+//Calculate the leg of the weld h (mm)
+h = t/0.707
+hround = ceil(h)
+//Print results
+printf('\nThroat of the weld(t) = %f mm\n',t)
+printf('\nLeg of the weld(h) = %f or %f mm\n',h,hround)
diff --git a/764/CH8/EX8.14.a/data8_14.sci b/764/CH8/EX8.14.a/data8_14.sci new file mode 100755 index 000000000..0c5f4a4bd --- /dev/null +++ b/764/CH8/EX8.14.a/data8_14.sci @@ -0,0 +1,17 @@ +
+//(Welded and Riveted Joints) Example 8.14
+//Refer Fig.8.34 on page 292
+//Eccentric load acting on the bracket P (kN)
+P = 25
+//Permissible shear stress in the welds tau (N/mm2)
+tau = 75
+//Length of the transverse welds w (mm)
+w = 150
+//Length of Length of the parallel welds l (mm)
+l = 100
+//Force eccentricity value e (mm)
+e = 500
+//Number of parallel welds N1
+N1 = 2
+//Number of transverse welds N2
+N2 = 2
diff --git a/764/CH8/EX8.14.b/result8_14.txt b/764/CH8/EX8.14.b/result8_14.txt new file mode 100755 index 000000000..e12ea9b08 --- /dev/null +++ b/764/CH8/EX8.14.b/result8_14.txt @@ -0,0 +1,58 @@ +-->//(Welded and Riveted Joints) Example 8.14
+
+-->//Refer Fig.8.34 on page 292
+
+-->//Eccentric load acting on the bracket P (kN)
+
+-->P = 25
+ P =
+
+ 25.
+
+-->//Permissible shear stress in the welds tau (N/mm2)
+
+-->tau = 75
+ tau =
+
+ 75.
+
+-->//Length of the transverse welds w (mm)
+
+-->w = 150
+ w =
+
+ 150.
+
+-->//Length of Length of the parallel welds l (mm)
+
+-->l = 100
+ l =
+
+ 100.
+
+-->//Force eccentricity value e (mm)
+
+-->e = 500
+ e =
+
+ 500.
+
+-->//Number of parallel welds N1
+
+-->N1 = 2
+ N1 =
+
+ 2.
+
+-->//Number of transverse welds N2
+
+-->N2 = 2
+ N2 =
+
+ 2.
+
+
+Throat of the weld(t) = 3.763189 mm
+
+Leg of the weld(h) = 5.322757 or 6.000000 mm
+
\ No newline at end of file diff --git a/764/CH8/EX8.14.b/solution8_14.sce b/764/CH8/EX8.14.b/solution8_14.sce new file mode 100755 index 000000000..5fbbc3641 --- /dev/null +++ b/764/CH8/EX8.14.b/solution8_14.sce @@ -0,0 +1,29 @@ +
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_14.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_14.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Assume the throat of the welds to be 1mm t
+t = 1
+//Calculate the total area of the welds A (mm2)
+A = (N1 * l * t) + (N2 * w * t)
+//Calculate the primary shear stress in the welds tau1 (N/mm2)
+tau1 = (P * 1000)/A
+//Calculate the moment of inertia of the four welds about the X-axis Ixx (mm4)
+Ixx = (N1 * (((l * (t^3))/12) + ((l * t)*((w/2)^2)))) + (N2 * ((t * (w^3))/12))
+//Calculate the bending stress in the welds sigmab (N/mm2)
+sigmab = (P * 1000 * e * (w/2))/Ixx
+//Calculate the maximum shear stress in the welds tauMax (N/mm2)
+tauMax = sqrt(((sigmab/2)^2) + (tau1^2))
+//Calculate the actual throat of the welds t (mm)
+t = tauMax/tau
+//Calculate the leg of the weld h (mm)
+h = t/0.707
+hround = ceil(h)
+//Print results
+printf('\nThroat of the weld(t) = %f mm\n',t)
+printf('\nLeg of the weld(h) = %f or %f mm\n',h,hround)
diff --git a/764/CH8/EX8.15.a/data8_15.sci b/764/CH8/EX8.15.a/data8_15.sci new file mode 100755 index 000000000..0c1000cf8 --- /dev/null +++ b/764/CH8/EX8.15.a/data8_15.sci @@ -0,0 +1,11 @@ +
+//(Welded and Riveted Joints) Example 8.15
+//Refer Fig.8.36 on page 293
+//Diameter of the beam D (mm)
+D = 50
+//Eccentric load acting on the beam P (kN)
+P = 10
+//Permissible shear stress in the welds tau (N/mm2)
+tau = 100
+//Force eccentricity value e (mm)
+e = 200
diff --git a/764/CH8/EX8.15.b/result8_15.txt b/764/CH8/EX8.15.b/result8_15.txt new file mode 100755 index 000000000..eef843788 --- /dev/null +++ b/764/CH8/EX8.15.b/result8_15.txt @@ -0,0 +1,35 @@ +-->//(Welded and Riveted Joints) Example 8.15
+
+-->//Diameter of the beam D (mm)
+
+-->D = 50
+ D =
+
+ 50.
+
+-->//Eccentric load acting on the beam P (kN)
+
+-->P = 10
+ P =
+
+ 10.
+
+-->//Permissible shear stress in the welds tau (N/mm2)
+
+-->tau = 100
+ tau =
+
+ 100.
+
+-->//Force eccentricity value e (mm)
+
+-->e = 200
+ e =
+
+ 200.
+
+
+Throat of the weld(t) = 5.132593 mm
+
+Leg of the weld(h) = 7.259678 or 8.000000 mm
+
\ No newline at end of file diff --git a/764/CH8/EX8.15.b/solution8_15.sce b/764/CH8/EX8.15.b/solution8_15.sce new file mode 100755 index 000000000..76d39b58c --- /dev/null +++ b/764/CH8/EX8.15.b/solution8_15.sce @@ -0,0 +1,29 @@ +
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_15.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_15.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Assume the throat of the weld to be 1mm t
+t = 1
+//Calculate the total area of the weld A (mm2)
+A = %pi * D * t
+//Calculate the primary shear stress in the welds tau1 (N/mm2)
+tau1 = (P * 1000)/A
+//Calculate the moment of inertia of the weld about the X-axis Ixx (mm4)
+Ixx = %pi * t * ((D/2)^3)
+//Calculate the bending stress in the welds sigmab (N/mm2)
+sigmab = (P * 1000 * e * (D/2))/Ixx
+//Calculate the maximum shear stress in the welds tauMax (N/mm2)
+tauMax = sqrt(((sigmab/2)^2) + (tau1^2))
+//Calculate the actual throat of the welds t (mm)
+t = tauMax/tau
+//Calculate the leg of the weld h (mm)
+h = t/0.707
+hround = ceil(h)
+//Print results
+printf('\nThroat of the weld(t) = %f mm\n',t)
+printf('\nLeg of the weld(h) = %f or %f mm\n',h,hround)
diff --git a/764/CH8/EX8.16.a/data8_16.sci b/764/CH8/EX8.16.a/data8_16.sci new file mode 100755 index 000000000..66eb87735 --- /dev/null +++ b/764/CH8/EX8.16.a/data8_16.sci @@ -0,0 +1,9 @@ +
+//(Welded and Riveted Joints) Example 8.16
+//Refer Fig.8.38 on page 294
+//Diameter of the shaft D (mm)
+D = 50
+//Torsional moment acting on the shaft Mt (N-m)
+Mt = 2500
+//Permissible shear stress in the welds tau (N/mm2)
+tau = 140
diff --git a/764/CH8/EX8.16.b/result8_16.txt b/764/CH8/EX8.16.b/result8_16.txt new file mode 100755 index 000000000..9617caa6c --- /dev/null +++ b/764/CH8/EX8.16.b/result8_16.txt @@ -0,0 +1,30 @@ +-->//(Welded and Riveted Joints) Example 8.16
+
+-->//Refer Fig.8.38 on page 294
+
+-->//Diameter of the shaft D (mm)
+
+-->D = 50
+ D =
+
+ 50.
+
+-->//Torsional moment acting on the shaft Mt (N-m)
+
+-->Mt = 2500
+ Mt =
+
+ 2500.
+
+-->//Permissible shear stress in the welds tau (N/mm2)
+
+-->tau = 140
+ tau =
+
+ 140.
+
+
+Throat of the weld(t) = 4.547284 mm
+
+Leg of the weld(h) = 6.431802 or 7.000000 mm
+
\ No newline at end of file diff --git a/764/CH8/EX8.16.b/solution8_16.sce b/764/CH8/EX8.16.b/solution8_16.sce new file mode 100755 index 000000000..5dc20613c --- /dev/null +++ b/764/CH8/EX8.16.b/solution8_16.sce @@ -0,0 +1,17 @@ +
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_16.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_16.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the throat of the weld t (mm)
+t = (Mt * 1000)/(2 * %pi * tau * ((D/2)^2))
+//Calculate the leg of the weld h (mm)
+h = t/0.707
+hround = ceil(h)
+//Print results
+printf('\nThroat of the weld(t) = %f mm\n',t)
+printf('\nLeg of the weld(h) = %f or %f mm\n',h,hround)
diff --git a/764/CH8/EX8.17.a/data8_17.sci b/764/CH8/EX8.17.a/data8_17.sci new file mode 100755 index 000000000..37eb1d73f --- /dev/null +++ b/764/CH8/EX8.17.a/data8_17.sci @@ -0,0 +1,26 @@ +
+//(Welded and Riveted Joints) Example 8.17
+//Plate thickness d (mm)
+d = 25
+//Reversed axial load acting on the plates P (kN)
+P = 100
+//Throat of the weld t (mm)
+t = 25
+//Ultimate tensile strength of the weld material Sut (N/mm2)
+Sut = 450
+//Factor of safety fs
+fs = 2
+reliability = 90
+//Operation
+ //Nomenclature:
+ //1 - Ground
+ //2 - Machined or cold drawn
+ //3 - Hot-rolled
+ //4 - Forged
+op = 4
+//Type of weld
+//1 - Reinforced butt-weld
+//2 - Toe of transverse fillet-weld
+//3 - End of parallel fillet weld
+//4 - T-butt joint with sharp corners
+w = 1
diff --git a/764/CH8/EX8.17.b/result8_17.txt b/764/CH8/EX8.17.b/result8_17.txt new file mode 100755 index 000000000..ee9bfeaa2 --- /dev/null +++ b/764/CH8/EX8.17.b/result8_17.txt @@ -0,0 +1,72 @@ +-->//(Welded and Riveted Joints) Example 8.17
+
+-->//Plate thickness d (mm)
+
+-->d = 25
+ d =
+
+ 25.
+
+-->//Reversed axial load acting on the plates P (kN)
+
+-->P = 100
+ P =
+
+ 100.
+
+-->//Throat of the weld t (mm)
+
+-->t = 25
+ t =
+
+ 25.
+
+-->//Ultimate tensile strength of the weld material Sut (N/mm2)
+
+-->Sut = 450
+ Sut =
+
+ 450.
+
+-->//Factor of safety fs
+
+-->fs = 2
+ fs =
+
+ 2.
+
+-->reliability = 90
+ reliability =
+
+ 90.
+
+-->//Operation
+
+--> //Nomenclature:
+
+--> //1 - Ground
+
+--> //2 - Machined or cold drawn
+
+--> //3 - Hot-rolled
+
+--> //4 - Forged
+
+-->op = 4
+ op =
+
+ 4.
+
+-->//From Table 8.3
+
+-->Kf = 1.2
+ Kf =
+
+ 1.2
+
+
+The length of the weld(l) = 89.795566 mm
+
+Answer is slightly different because of use of equation 5.18
+Use value of Ka from Fig.5.24 in order to obtain the mentioned result
+
\ No newline at end of file diff --git a/764/CH8/EX8.17.b/solution8_17.sce b/764/CH8/EX8.17.b/solution8_17.sce new file mode 100755 index 000000000..53ccfb777 --- /dev/null +++ b/764/CH8/EX8.17.b/solution8_17.sce @@ -0,0 +1,31 @@ +
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_17.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_17.sci'
+//Obtain path of function file
+funcpath = path + filesep() + 'functions8_17.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+exec(funcpath,[-1])
+//Calculate the limit stress for the weld Sdash (N/mm2)
+Sdash = (50/100)*Sut
+//Calculate Ka, Kb and Kc
+funcprot(0)
+[Ka, Kb, Kc, Kf] = fluctuate(op, d, reliability)
+//From Fig.5.24
+//Ka = 0.52
+//Calculate the value of Kd
+Kd = 1/Kf
+//Calculate the endurance limit of the butt weld Se (N/mm2)
+Se = Ka * Kb * Kc * Kd * Sdash
+//Calculate the permissible stress amplitude sigmat (N/mm2)
+sigmat = Se/fs
+//Calculate the length of the weld l (mm)
+l = (P * 1000)/(d * sigmat)
+//Print results)
+printf('\nThe length of the weld(l) = %f mm\n',l)
+printf('\nAnswer is slightly different because of use of equation 5.18\n')
+printf('Use value of Ka from Fig.5.24 in order to obtain the mentioned result\n')
diff --git a/764/CH8/EX8.17.c/functions8_17.sci b/764/CH8/EX8.17.c/functions8_17.sci new file mode 100755 index 000000000..8a223b3be --- /dev/null +++ b/764/CH8/EX8.17.c/functions8_17.sci @@ -0,0 +1,62 @@ +
+//Function generating the values of Ka, Kb, Kc and Kf
+function [Ka, Kb, Kc, Kf] = fluctuate(s, d, r, w)
+ //Calculate Ka
+ //Nomenclature:
+ //1 - Ground
+ //2 - Machined or cold drawn
+ //3 - Hot-rolled
+ //4 - Forged
+surface = [1 2 3 4]
+Ksurfa = [1.58 4.51 57.7 272]
+Ksurfb = [-0.085 -0.265 -0.718 -0.995]
+for j = 1:1:4
+ if (s == surface(j))
+ a = Ksurfa(j)
+ b = Ksurfb(j)
+ break
+ end
+end
+//From equation 5.18 on page 157
+Ka = a * (Sut^b)
+if (Ka > 1) then
+ Ka = 1
+end
+
+ //Calculate Kb
+ //d (mm)
+ if (d <= 7.5) then
+ Kb = 1
+ elseif ((d > 7.5) & (d <= 50))
+ Kb = 0.85
+ elseif (d > 50)
+ Kb = 0.75
+ else
+ printf('Error in Kb')
+ end
+
+ //Calculate Kc
+ // r (%)
+rel = [50 90 95 99 99.9 99.99 99.999]
+Krel = [1 0.897 0.868 0.814 0.753 0.702 0.659]
+for i = 1:1:7
+ if (r == rel(i)) then
+ Kc = Krel(i)
+ break
+ end
+end
+
+//Calculate Kf
+//Type of weld
+//1 - Reinforced butt-weld
+//2 - Toe of transverse fillet-weld
+//3 - End of parallel fillet weld
+//4 - T-butt joint with sharp corners
+fatigue = [1 2 3 4]
+value = [1.2, 1.5, 2.7, 2.0]
+for j = 1:1:4
+ if (w == fatigue(j)) then
+ Kf = value(j)
+ end
+end
+endfunction
diff --git a/764/CH8/EX8.18.a/data8_18.sci b/764/CH8/EX8.18.a/data8_18.sci new file mode 100755 index 000000000..eb87ba9c7 --- /dev/null +++ b/764/CH8/EX8.18.a/data8_18.sci @@ -0,0 +1,15 @@ +
+//(Welded and Riveted Joints) Example 8.18
+//Refer Fig.8.59 on page 308
+//Load acting on the brake band P (kN)
+P = 10
+//Permissible tensile stress in the band and rivet sigmat (N/mm2)
+sigmat = 80
+//Permissible compressive stress in the band and rivet sigmac (N/mm2)
+sigmac = 120
+//Permissible shear stress in the band and rivet tau (N/mm2)
+tau = 60
+//Thickness of the band t (mm)
+t = 3
+//Number of rivets n
+n = 4
diff --git a/764/CH8/EX8.18.b/result8_18.txt b/764/CH8/EX8.18.b/result8_18.txt new file mode 100755 index 000000000..7d53a64f6 --- /dev/null +++ b/764/CH8/EX8.18.b/result8_18.txt @@ -0,0 +1,53 @@ +-->//(Welded and Riveted Joints) Example 8.18
+
+-->//Refer Fig.8.59 on page 308
+
+-->//Load acting on the brake band P (kN)
+
+-->P = 10
+ P =
+
+ 10.
+
+-->//Permissible tensile stress in the band and rivet sigmat (N/mm2)
+
+-->sigmat = 80
+ sigmat =
+
+ 80.
+
+-->//Permissible compressive stress in the band and rivet sigmac (N/mm2)
+
+-->sigmac = 120
+ sigmac =
+
+ 120.
+
+-->//Permissible shear stress in the band and rivet tau (N/mm2)
+
+-->tau = 60
+ tau =
+
+ 60.
+
+-->//Thickness of the band t (mm)
+
+-->t = 3
+ t =
+
+ 3.
+
+-->//Number of rivets n
+
+-->n = 4
+ n =
+
+ 4.
+
+
+Diameter of the rivet(d) = 7.283656 or 8.000000 mm
+
+Width of the band(w) = 57.666667 or 60.000000 mm
+
+Transverse pitch of the rivets(pt) = 30.000000 mm
+
\ No newline at end of file diff --git a/764/CH8/EX8.18.b/solution8_18.sce b/764/CH8/EX8.18.b/solution8_18.sce new file mode 100755 index 000000000..da8b04eb4 --- /dev/null +++ b/764/CH8/EX8.18.b/solution8_18.sce @@ -0,0 +1,46 @@ +
+//Function to round-up a value such that it is divisible by 5
+function[v] = round_five(w)
+ v = ceil(w)
+ rem = pmodulo(v,5)
+ if (rem ~= 0) then
+ v = v + (5 - rem)
+ end
+endfunction
+
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_18.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_18.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the diamater of the rivet from shear consideration ds (mm)
+ds = sqrt((P * 1000 * 4)/(%pi * n * tau))
+dsround = ceil(ds)
+//Calculate the diameter of the rivet from crushing consideration dc (mm)
+dc = sqrt((P * 1000)/(n * t * sigmac))
+dcround = ceil(dc)
+//Choose appropriate diameter value d (mm)
+if (ds > dc) then
+ d = ds
+ dround = ceil(d)
+else
+ d = dc
+ dround = ceil(d)
+end
+//Calculate the width of the band from tensile consideration w (mm)
+w = ((n/2) * dround) + ((P * 1000)/(t * sigmat))
+wround = round_five(w)
+//Calculate the margin m (mm)
+m = 1.5 * dround
+mround = round_five(m)
+//Calculate the pitch of the rivets p (mm)
+p = wround - (2 * mround)
+//Calculate the transverse pitch pt (mm)
+pt = p
+//Print results
+printf('\nDiameter of the rivet(d) = %f or %f mm\n',d,ceil(d))
+printf('\nWidth of the band(w) = %f or %f mm\n',w,wround)
+printf('\nTransverse pitch of the rivets(pt) = %f mm\n',pt)
diff --git a/764/CH8/EX8.19.a/data8_19.sci b/764/CH8/EX8.19.a/data8_19.sci new file mode 100755 index 000000000..e38dd5821 --- /dev/null +++ b/764/CH8/EX8.19.a/data8_19.sci @@ -0,0 +1,19 @@ +
+//(Welded and Riveted Joints) Example 8.19
+//Refer Fig.8.60 on page 309
+//Force acting on the plates P (kN)
+P = 250
+//Width of the plate w (mm)
+w = 200
+//Permissible tensile stress in the plate and rivet sigmat (N/mm2)
+sigmat = 70
+//Permissible compressive stress in the plate and rivet sigmac (N/mm2)
+sigmac = 100
+//Permissible shear stress in the plate and rivet tau (N/mm2)
+tau = 60
+//Number of rivets n
+n = 5
+//Number of rivets considered to calculate plate thickness n1
+n1 = 2
+//Number of rivets considered to calculate the pitch n2
+n2 = 3
diff --git a/764/CH8/EX8.19.b/result8_19.txt b/764/CH8/EX8.19.b/result8_19.txt new file mode 100755 index 000000000..8d1a070fb --- /dev/null +++ b/764/CH8/EX8.19.b/result8_19.txt @@ -0,0 +1,73 @@ +-->//(Welded and Riveted Joints) Example 8.19
+
+-->//Refer Fig.8.60 on page 309
+
+-->//Force acting on the plates P (kN)
+
+-->P = 250
+ P =
+
+ 250.
+
+-->//Width of the plate w (mm)
+
+-->w = 200
+ w =
+
+ 200.
+
+-->//Permissible tensile stress in the plate and rivet sigmat (N/mm2)
+
+-->sigmat = 70
+ sigmat =
+
+ 70.
+
+-->//Permissible compressive stress in the plate and rivet sigmac (N/mm2)
+
+-->sigmac = 100
+ sigmac =
+
+ 100.
+
+-->//Permissible shear stress in the plate and rivet tau (N/mm2)
+
+-->tau = 60
+ tau =
+
+ 60.
+
+-->//Number of rivets n
+
+-->n = 5
+ n =
+
+ 5.
+
+-->//Number of rivets considered to calculate plate thickness n1
+
+-->n1 = 2
+ n1 =
+
+ 2.
+
+-->//Number of rivets considered to calculate the pitch n2
+
+-->n2 = 3
+ n2 =
+
+ 3.
+
+
+Diameter of the rivets(ds) = 23.032943 or 25.000000 mm
+
+Thickness of the rivets(t) = 23.809524 or 25.000000 mm
+
+Pitch of the seam(p) = 66.666667 mm
+
+Transverse pitch of the seam(pt) = 40.000000 mm
+
+Margin of the seam(m) = 37.500000 or 40.000000 mm
+
+Efficiency of the joint(eta) = 75.000000 percent
+
\ No newline at end of file diff --git a/764/CH8/EX8.19.b/solution8_19.sce b/764/CH8/EX8.19.b/solution8_19.sce new file mode 100755 index 000000000..cd6fc0f4a --- /dev/null +++ b/764/CH8/EX8.19.b/solution8_19.sce @@ -0,0 +1,56 @@ +
+//Function to round-up a value such that it is divisible by 5
+function[v] = round_five(w)
+ v = ceil(w)
+ rem = pmodulo(v,5)
+ if (rem ~= 0) then
+ v = v + (5 - rem)
+ end
+endfunction
+
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_19.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_19.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the diameter of the rivets which are subjected to double shear ds (mm)
+ds = sqrt((P * 1000 * 4)/(2 * %pi * tau * n))
+dsround = round_five(ds)
+//Calculate the plate thickness t (mm)
+t = (P * 1000)/((w - (n1 * dsround))*sigmat)
+tround = round_five(t)
+//Calculate the pitch of the rivets p (mm)
+p = w/n2
+//Calculate the dimensions of the seam (mm)
+m = 1.5 * dsround
+mround = round_five(m)
+pt = 0.6 * p
+ptround = round_five(pt)
+//Calculate the shear strength of the plate Ps (N)
+Ps = 2 * (%pi/4) * (dsround^2) * tau * n
+//Calculate the tensile strength of the plate Pt (N)
+Pt = (w - (n1 * dsround)) * tround * sigmat
+//Calculate the compressive strength of the plate Pc (N)
+Pc = dsround * tround * sigmac * n
+//Obtain the lowest strength value from these PLow (N)
+if ((Ps < Pt) & (Ps < Pc)) then
+ PLow = Ps
+elseif ((Pt < Ps) & (Pt < Pc))
+ PLow = Pt
+else
+ PLow = Pc
+end
+//Calculate the strength of the solid plate PSolid (N)
+PSolid = w * tround * sigmat
+//Calculate the efficiency of the joint eta (%)
+eta = (PLow/PSolid)*100
+//Print results
+printf('\nDiameter of the rivets(ds) = %f or %f mm\n',ds,dsround)
+printf('\nThickness of the rivets(t) = %f or %f mm\n',t,tround)
+printf('\nPitch of the seam(p) = %f mm\n',p)
+printf('\nTransverse pitch of the seam(pt) = %f mm\n',pt)
+printf('\nMargin of the seam(m) = %f or %f mm\n',m,mround)
+printf('\nEfficiency of the joint(eta) = %f percent\n',eta)
diff --git a/764/CH8/EX8.2.a/data8_2.sci b/764/CH8/EX8.2.a/data8_2.sci new file mode 100755 index 000000000..05629f74f --- /dev/null +++ b/764/CH8/EX8.2.a/data8_2.sci @@ -0,0 +1,11 @@ +
+//(Welded and Riveted Joints) Example 8.2
+//Refer Fig.8.9 on page 279
+//Static tensile force acting on the plates P (kN)
+P = 50
+//Permissible shear stress in the weld tau (N/mm2)
+tau = 94
+//Thickness of the plate t (mm)
+h = 10
+//Total length of the weld to be added at start and stop lExt (mm)
+lExt = 15
diff --git a/764/CH8/EX8.2.b/result8_2.txt b/764/CH8/EX8.2.b/result8_2.txt new file mode 100755 index 000000000..e173acb23 --- /dev/null +++ b/764/CH8/EX8.2.b/result8_2.txt @@ -0,0 +1,35 @@ +-->//(Welded and Riveted Joints) Example 8.2
+
+-->//Refer Fig.8.9 on page 279
+
+-->//Static tensile force acting on the plates P (kN)
+
+-->P = 50
+ P =
+
+ 50.
+
+-->//Permissible shear stress in the weld tau (N/mm2)
+
+-->tau = 94
+ tau =
+
+ 94.
+
+-->//Thickness of the plate t (mm)
+
+-->h = 10
+ h =
+
+ 10.
+
+-->//Total length of the weld to be added at start and stop lExt (mm)
+
+-->lExt = 15
+ lExt =
+
+ 15.
+
+
+Total required length of the welds(lTotal) = 52.617744 or 55.000000 mm
+
\ No newline at end of file diff --git a/764/CH8/EX8.2.b/solution8_2.sce b/764/CH8/EX8.2.b/solution8_2.sce new file mode 100755 index 000000000..eee55cd54 --- /dev/null +++ b/764/CH8/EX8.2.b/solution8_2.sce @@ -0,0 +1,25 @@ +
+//Function to round-up a value such that it is divisible by 5
+function[v] = round_five(w)
+ v = ceil(w)
+ rem = pmodulo(v,5)
+ if (rem ~= 0) then
+ v = v + (5 - rem)
+ end
+endfunction
+
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_2.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_2.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the length of the weld l (mm)
+l = (P * 1000)/(1.414 * h * tau)
+//Total required length of the welds lTotal (mm)
+lTotal = l + lExt
+lround = round_five(lTotal)
+//Print results
+printf('\nTotal required length of the welds(lTotal) = %f or %f mm\n',lTotal,lround)
diff --git a/764/CH8/EX8.20.a/data8_20.sci b/764/CH8/EX8.20.a/data8_20.sci new file mode 100755 index 000000000..0f818cbed --- /dev/null +++ b/764/CH8/EX8.20.a/data8_20.sci @@ -0,0 +1,13 @@ +
+//(Welded and Riveted Joints) Example 8.21
+//Refer Fig.8.61 on page 310
+//Width of the plate w (mm)
+w = 250
+//Thickness of the plate t (mm)
+t = 20
+//Permissible tensile stress in the plate and rivet sigmat (N/mm2)
+sigmat = 80
+//Permissible compressive stress in the plate and rivet sigmac (N/mm2)
+sigmac = 120
+//Permissible shear stress in the plate and rivet tau (N/mm2)
+tau = 60
diff --git a/764/CH8/EX8.20.b/result8_20.txt b/764/CH8/EX8.20.b/result8_20.txt new file mode 100755 index 000000000..038b2f4ce --- /dev/null +++ b/764/CH8/EX8.20.b/result8_20.txt @@ -0,0 +1,54 @@ +-->//(Welded and Riveted Joints) Example 8.21
+
+-->//Refer Fig.8.61 on page 310
+
+-->//Width of the plate w (mm)
+
+-->w = 250
+ w =
+
+ 250.
+
+-->//Thickness of the plate t (mm)
+
+-->t = 20
+ t =
+
+ 20.
+
+-->//Permissible tensile stress in the plate and rivet sigmat (N/mm2)
+
+-->sigmat = 80
+ sigmat =
+
+ 80.
+
+-->//Permissible compressive stress in the plate and rivet sigmac (N/mm2)
+
+-->sigmac = 120
+ sigmac =
+
+ 120.
+
+-->//Permissible shear stress in the plate and rivet tau (N/mm2)
+
+-->tau = 60
+ tau =
+
+ 60.
+
+
+Diameter of the rivet(d) = 26.832816 or 27.000000 mm
+
+Number of rivets required(n) = 6.000000
+
+Margin(m) = 40.500000 or 45.000000 mm
+
+Transverse pitch(pt) = 54.000000 or 55.000000 mm
+
+Thickness of strap(t1) = 12.500000 mm
+
+Pitch(p) = 80.000000 mm
+
+Efficiency of the joints(eta) = 89.200000 percent
+
\ No newline at end of file diff --git a/764/CH8/EX8.20.b/solution8_20.sce b/764/CH8/EX8.20.b/solution8_20.sce new file mode 100755 index 000000000..747973208 --- /dev/null +++ b/764/CH8/EX8.20.b/solution8_20.sce @@ -0,0 +1,77 @@ +
+//Function to round-up a value such that it is divisible by 5
+function[v] = round_five(w)
+ v = ceil(w)
+ rem = pmodulo(v,5)
+ if (rem ~= 0) then
+ v = v + (5 - rem)
+ end
+endfunction
+
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_20.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_20.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the diameter of the rivets d (mm)
+d = 6 * sqrt(t)
+dround = ceil(d)
+//Calculate the shear resistance of one rivet in double shear Ps (N)
+Ps = 1.875 * ((%pi/4) * (dround^2) * tau)
+//Calculate the crushing resistance of one rivet Pc (N)
+Pc = dround * t * sigmac
+//Choose appropriate criterion P (N)
+if (Ps < Pc) then
+ P = Ps
+else
+ P = Pc
+end
+//Calculate the tensile strength of the plate in the outer row Pt (N)
+Pt = (w - dround)* t* sigmat
+//Calculate the number of rivets required n
+n = Pt/P
+n = ceil(n)
+//Calculate the margin m (mm)
+m = 1.5 * dround
+mround = round_five(m)
+//Calculate the transverse pitch pt (mm)
+pt = 2 * dround
+ptround = round_five(pt)
+//Calculate the strap thickness t1 (mm)
+t1 = 0.625 * t
+//Calculate the pitch p (mm)
+p = (w - (2 * mround))/2
+//Calculate the strength of the joint along:
+//Section A-A
+SA = (w - dround) * t * sigmat
+//Section B-B
+SB = ((w - (2 * dround)) * t * sigmat) + Ps
+//Section C-C
+SC = ((w - (3 * dround)) * t * sigmat) + (3 * Ps)
+//Calculate the shear resistance of all the rivets SS (N)
+SS = n * Ps
+//Choose lowest of all the calculated strengths PLow (N)
+if ((SA < SB) & (SA < SC) & (SA < SS)) then
+ PLow = SA
+elseif ((SB < SA) & (SB < SC) & (SB < SS))
+ PLow = SB
+elseif ((SC < SA) & (SC < SB) & (SC < SS))
+ Plow = SC
+else
+ PLow = SS
+end
+//Calculate the strength of the plate PSolid (N)
+PSolid = w * t * sigmat
+//Calculate the efficiency of the joint eta (%)
+eta = (PLow/PSolid) * 100
+//Print results
+printf('\nDiameter of the rivet(d) = %f or %f mm\n',d,dround)
+printf('\nNumber of rivets required(n) = %f\n',n)
+printf('\nMargin(m) = %f or %f mm\n',m,mround)
+printf('\nTransverse pitch(pt) = %f or %f mm\n',pt,ptround)
+printf('\nThickness of strap(t1) = %f mm\n',t1)
+printf('\nPitch(p) = %f mm\n',p)
+printf('\nEfficiency of the joints(eta) = %f percent\n',eta)
diff --git a/764/CH8/EX8.21.a/data8_21.sci b/764/CH8/EX8.21.a/data8_21.sci new file mode 100755 index 000000000..526ce6091 --- /dev/null +++ b/764/CH8/EX8.21.a/data8_21.sci @@ -0,0 +1,23 @@ +
+//(Welded and Riveted Joints) Example 8.21
+//Refer Fig.8.63 on page 315
+//Inside diameter of the pressure vessel Di (m)
+Di = 1.5
+//Internal steam pressure Pi (MPa)
+Pi = 1.5
+//Efficiency of the riveted joint eta (%)
+eta = 80
+//Permissible tensile stress in the plate and rivet sigmat (N/mm2)
+sigmat = 80
+//Permissible compressive stress in the plate and rivet sigmac (N/mm2)
+sigmac = 120
+//Permissible shear stress in the plate and rivet tau (N/mm2)
+tau = 60
+//Corrosion allowance CA (mm)
+CA = 2
+//Number of rivets subjected to single shear per pitch length n1
+n1 = 0
+//Number of rivets subjected to double shear per pitch length n2
+n2 = 5
+//Value of C from Table 8.7
+C = 6.0
diff --git a/764/CH8/EX8.21.b/result8_21.txt b/764/CH8/EX8.21.b/result8_21.txt new file mode 100755 index 000000000..b2bd50048 --- /dev/null +++ b/764/CH8/EX8.21.b/result8_21.txt @@ -0,0 +1,91 @@ +-->//(Welded and Riveted Joints) Example 8.21
+
+-->//Refer Fig.8.63 on page 315
+
+-->//Inside diameter of the pressure vessel Di (m)
+
+-->Di = 1.5
+ Di =
+
+ 1.5
+
+-->//Internal steam pressure Pi (MPa)
+
+-->Pi = 1.5
+ Pi =
+
+ 1.5
+
+-->//Efficiency of the riveted joint eta (%)
+
+-->eta = 80
+ eta =
+
+ 80.
+
+-->//Permissible tensile stress in the plate and rivet sigmat (N/mm2)
+
+-->sigmat = 80
+ sigmat =
+
+ 80.
+
+-->//Permissible compressive stress in the plate and rivet sigmac (N/mm2)
+
+-->sigmac = 120
+ sigmac =
+
+ 120.
+
+-->//Permissible shear stress in the plate and rivet tau (N/mm2)
+
+-->tau = 60
+ tau =
+
+ 60.
+
+-->//Corrosion allowance CA (mm)
+
+-->CA = 2
+ CA =
+
+ 2.
+
+-->//Number of rivets subjected to single shear per pitch length n1
+
+-->n1 = 0
+ n1 =
+
+ 0.
+
+-->//Number of rivets subjected to double shear per pitch length n2
+
+-->n2 = 5
+ n2 =
+
+ 5.
+
+-->//Value of C from Table 8.7
+
+-->C = 6.0
+ C =
+
+ 6.
+
+
+Thickness of the plate(t) = 19.578125 or 20.000000 mm
+
+Diameter of the plate(d) = 26.832816 or 27.000000 mm
+
+Pitch of rivets(p) = 161.280000 mm
+
+Distance between middle and inner rows of rivets(p2) = 44.701200 or 45.000000 mm
+
+Distance between outer and middle rows of rivets(p1) = 63.306000 or 65.000000 mm
+
+Margin(m) = 40.500000 or 45.000000 mm
+
+Thickness of straps(t1) = 15.645973 or 16.000000 mm
+
+Efficiency of the joint(etaCalc) = 83.258929 percent
+
\ No newline at end of file diff --git a/764/CH8/EX8.21.b/solution8_21.sce b/764/CH8/EX8.21.b/solution8_21.sce new file mode 100755 index 000000000..d72ba92c3 --- /dev/null +++ b/764/CH8/EX8.21.b/solution8_21.sce @@ -0,0 +1,76 @@ +
+//Function to round-up a value such that it is divisible by 5
+function[v] = round_five(w)
+ v = ceil(w)
+ rem = pmodulo(v,5)
+ if (rem ~= 0) then
+ v = v + (5 - rem)
+ end
+endfunction
+
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_21.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_21.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate plate thickness t (mm)
+t = ((Pi * Di * 1000)/(2 * sigmat * (eta/100))) + CA
+tround = ceil(t)
+//Calculate the diameter of the rivets d (mm)
+d = 6 * sqrt(tround)
+dround = ceil(d)
+//Calculate the pitch of the rivets p (mm)
+p = (((n1 + (1.875 * n2))* %pi * (dround^2) * tau)/(4 * tround * sigmat)) + dround
+pround = round_five(p)
+//Calculate pmin (mm)
+pmin = 2 * dround
+//Calculate pmax (mm)
+pmax = (C * tround) + 41.28
+//Assign appropriate value to pitch (mm)
+if (p > pmax) then
+ pitch = pmax
+else
+ pitch = pround
+end
+//Calculate the distance between outer and middle rows p1 (mm)
+p1 = (0.2 * pitch) + (1.15 * dround)
+p1round = round_five(p1)
+//Calculate the distance between middle and inner rows p2 (mm)
+p2 = (0.165 * pitch) + (0.67 * dround)
+p2round = round_five(p2)
+//Calculate the margin m (mm)
+m = 1.5 * dround
+mround = round_five(m)
+//Calculate the thickness of the of straps t1 (mm)
+t1 = (0.625 * tround)*((pitch - dround)/(pitch - (2 * dround)))
+t1round = ceil(t1)
+//Calculate the tensile strength of the plate per inch length in the outer row Pt (N)
+Pt = (pitch - dround) * tround * sigmat
+//Calculate the shear strength of rivets per pitch length Ps (N)
+Ps = (n1 + (n2 * 1.875))*((%pi/4) * (dround^2) *tau)
+//Calculate the crushing strength of the plate Pc (N)
+Pc = (n1 + n2) * dround * tround * sigmac
+//Calculate the tensile strength of the solid plate per pitch length P (N)
+P = pitch * tround * sigmat
+//Obtain the lowest strength value from these PLow (N)
+if ((Ps < Pt) & (Ps < Pc)) then
+ PLow = Ps
+elseif ((Pt < Ps) & (Pt < Pc))
+ PLow = Pt
+else
+ PLow = Pc
+end
+//Calculate the efficiency of the joint etaCalc (%)
+etaCalc = (PLow/P) * 100
+//Print results
+printf('\nThickness of the plate(t) = %f or %f mm\n',t,tround)
+printf('\nDiameter of the plate(d) = %f or %f mm\n',d,dround)
+printf('\nPitch of rivets(p) = %f mm\n',pitch)
+printf('\nDistance between middle and inner rows of rivets(p2) = %f or %f mm\n',p2,p2round)
+printf('\nDistance between outer and middle rows of rivets(p1) = %f or %f mm\n',p1,p1round)
+printf('\nMargin(m) = %f or %f mm\n',m,mround)
+printf('\nThickness of straps(t1) = %f or %f mm\n',t1,t1round)
+printf('\nEfficiency of the joint(etaCalc) = %f percent\n',etaCalc)
diff --git a/764/CH8/EX8.22.a/data8_22.sci b/764/CH8/EX8.22.a/data8_22.sci new file mode 100755 index 000000000..f4d1a4697 --- /dev/null +++ b/764/CH8/EX8.22.a/data8_22.sci @@ -0,0 +1,21 @@ +
+//(Welded and Riveted Joints) Example 8.22
+//Refer Fig.8.64 on page 317
+//Inside diameter of the pressure vessel Di (m)
+Di = 1
+//Internal steam pressure Pi (MPa)
+Pi = 2.5
+//Efficiency of the riveted joint eta (%)
+eta = 70
+//Permissible tensile stress in the plate and rivet sigmat (N/mm2)
+sigmat = 80
+//Permissible shear stress in the plate and rivet tau (N/mm2)
+tau = 60
+//Corrosion allowance CA (mm)
+CA = 2
+//Number of rivets subjected to single shear per pitch length n1
+n1 = 0
+//Number of rivets subjected to double shear per pitch length n2
+n2 = 3
+//Value of C from Table 8.7
+C = 4.63
diff --git a/764/CH8/EX8.22.b/result8_22.txt b/764/CH8/EX8.22.b/result8_22.txt new file mode 100755 index 000000000..07a18b23c --- /dev/null +++ b/764/CH8/EX8.22.b/result8_22.txt @@ -0,0 +1,82 @@ +-->//(Welded and Riveted Joints) Example 8.22
+
+-->//Refer Fig.8.64 on page 317
+
+-->//Inside diameter of the pressure vessel Di (m)
+
+-->Di = 1
+ Di =
+
+ 1.
+
+-->//Internal steam pressure Pi (MPa)
+
+-->Pi = 2.5
+ Pi =
+
+ 2.5
+
+-->//Efficiency of the riveted joint eta (%)
+
+-->eta = 70
+ eta =
+
+ 70.
+
+-->//Permissible tensile stress in the plate and rivet sigmat (N/mm2)
+
+-->sigmat = 80
+ sigmat =
+
+ 80.
+
+-->//Permissible shear stress in the plate and rivet tau (N/mm2)
+
+-->tau = 60
+ tau =
+
+ 60.
+
+-->//Corrosion allowance CA (mm)
+
+-->CA = 2
+ CA =
+
+ 2.
+
+-->//Number of rivets subjected to single shear per pitch length n1
+
+-->n1 = 0
+ n1 =
+
+ 0.
+
+-->//Number of rivets subjected to double shear per pitch length n2
+
+-->n2 = 3
+ n2 =
+
+ 3.
+
+-->//Value of C from Table 8.7
+
+-->C = 4.63
+ C =
+
+ 4.63
+
+
+Thickness of the plate(t) = 24.321429 or 25.000000 mm
+
+Diameter of the plate(d) = 30.000000 or 30.000000 mm
+
+Pitch of rivets(p) = 150.000000 mm
+
+Distance between inner and outer rows of rivets(p1) = 64.500000 or 65.000000 mm
+
+Margin(m) = 45.000000 or 45.000000 mm
+
+Thickness of straps(t1) = 20.833333 or 21.000000 mm
+
+Efficiency of the joint(etaCalc) = 79.521564 percent
+
\ No newline at end of file diff --git a/764/CH8/EX8.22.b/solution8_22.sce b/764/CH8/EX8.22.b/solution8_22.sce new file mode 100755 index 000000000..75d71423d --- /dev/null +++ b/764/CH8/EX8.22.b/solution8_22.sce @@ -0,0 +1,68 @@ +
+//Function to round-up a value such that it is divisible by 5
+function[v] = round_five(w)
+ v = ceil(w)
+ rem = pmodulo(v,5)
+ if (rem ~= 0) then
+ v = v + (5 - rem)
+ end
+endfunction
+
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_22.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_22.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate plate thickness t (mm)
+t = ((Pi * Di * 1000)/(2 * sigmat * (eta/100))) + CA
+tround = ceil(t)
+//Calculate the diameter of the rivets d (mm)
+d = 6 * sqrt(tround)
+dround = ceil(d)
+//Calculate the pitch of the rivets p (mm)
+p = (((n1 + (1.875 * n2))* %pi * (dround^2) * tau)/(4 * tround * sigmat)) + dround
+pround = round_five(p)
+//Calculate pmin (mm)
+pmin = 2 * dround
+//Calculate pmax (mm)
+pmax = (C * tround) + 41.28
+//Assign appropriate value to pitch (mm)
+if (p > pmax) then
+ pitch = pmax
+else
+ pitch = pround
+end
+//Calculate the distance between inner and outer rows p1 (mm)
+p1 = (0.2 * pitch) + (1.15 * dround)
+p1round = round_five(p1)
+//Calculate the margin m (mm)
+m = 1.5 * dround
+mround = round_five(m)
+//Calculate the thickness of the of straps t1 (mm)
+t1 = (0.625 * tround)*((pitch - dround)/(pitch - (2 * dround)))
+t1round = ceil(t1)
+//Calculate the tensile strength of the plate per inch length in the outer row Pt (N)
+Pt = (pitch - dround) * tround * sigmat
+//Calculate the shear strength of rivets per pitch length Ps (N)
+Ps = (n1 + (n2 * 1.875))*((%pi/4) * (dround^2) *tau)
+//Calculate the tensile strength of the solid plate per pitch length P (N)
+P = pitch * tround * sigmat
+//Obtain the lowest strength value from these PLow (N)
+if (Ps < Pt) then
+ PLow = Ps
+else
+ PLow = Pt
+end
+//Calculate the efficiency of the joint etaCalc (%)
+etaCalc = (PLow/P) * 100
+//Print results
+printf('\nThickness of the plate(t) = %f or %f mm\n',t,tround)
+printf('\nDiameter of the plate(d) = %f or %f mm\n',d,dround)
+printf('\nPitch of rivets(p) = %f mm\n',pitch)
+printf('\nDistance between inner and outer rows of rivets(p1) = %f or %f mm\n',p1,p1round)
+printf('\nMargin(m) = %f or %f mm\n',m,mround)
+printf('\nThickness of straps(t1) = %f or %f mm\n',t1,t1round)
+printf('\nEfficiency of the joint(etaCalc) = %f percent\n',etaCalc)
diff --git a/764/CH8/EX8.23.a/data8_23.sci b/764/CH8/EX8.23.a/data8_23.sci new file mode 100755 index 000000000..13d249d95 --- /dev/null +++ b/764/CH8/EX8.23.a/data8_23.sci @@ -0,0 +1,22 @@ +
+//(Welded and Riveted Joints) Example 8.23
+//Inner diameter of the cylindrical pressure vessel Di (m)
+Di = 1
+//Internal steam pressure Pi (MPa)
+Pi = 1.5
+//Permissible tensile stress in the plate and rivet sigmat (N/mm2)
+sigmat = 80
+//Permissible shear stress in the plate and rivet tau (N/mm2)
+tau = 60
+//Permissible compressive stress in the plate and rivet sigmac (N/mm2)
+sigmac = 120
+//Corrosion allowance CA (mm)
+CA = 2
+//Efficiency of the longitudinal joint eta (%)
+eta = 80
+//Efficiency of the circumferential lap joint eta1 (%)
+eta1 = 62
+//Value of C
+C = 1.31
+//Transverse pitch pt (mm)
+pt = 0
diff --git a/764/CH8/EX8.23.b/result8_23.txt b/764/CH8/EX8.23.b/result8_23.txt new file mode 100755 index 000000000..4d0eb1ac9 --- /dev/null +++ b/764/CH8/EX8.23.b/result8_23.txt @@ -0,0 +1,87 @@ +-->//(Welded and Riveted Joints) Example 8.23
+
+-->//Inner diameter of the cylindrical pressure vessel Di (m)
+
+-->Di = 1
+ Di =
+
+ 1.
+
+-->//Internal steam pressure Pi (MPa)
+
+-->Pi = 1.5
+ Pi =
+
+ 1.5
+
+-->//Permissible tensile stress in the plate and rivet sigmat (N/mm2)
+
+-->sigmat = 80
+ sigmat =
+
+ 80.
+
+-->//Permissible shear stress in the plate and rivet tau (N/mm2)
+
+-->tau = 60
+ tau =
+
+ 60.
+
+-->//Permissible compressive stress in the plate and rivet sigmac (N/mm2)
+
+-->sigmac = 120
+ sigmac =
+
+ 120.
+
+-->//Corrosion allowance CA (mm)
+
+-->CA = 2
+ CA =
+
+ 2.
+
+-->//Efficiency of the longitudinal joint eta (%)
+
+-->eta = 80
+ eta =
+
+ 80.
+
+-->//Efficiency of the circumferential lap joint eta1 (%)
+
+-->eta1 = 62
+ eta1 =
+
+ 62.
+
+-->//Value of C
+
+-->C = 1.31
+ C =
+
+ 1.31
+
+-->//Transverse pitch pt (mm)
+
+-->pt = 0
+ pt =
+
+ 0.
+
+
+Code is applicable only when thickness of the plate is greater than 8mm.
+
+Thickness of the plate(tround) = 14.000000 mm
+
+Diameter of the rivets(dceil) = 21.000000 mm
+
+Number of rivets(n1) = 58 mm
+
+Pitch of the rivets(p1) = 55 mm
+
+Number of rows of rivets(assumed) = 1
+
+Overlap of plates(a) = 70.000000 mm
+
\ No newline at end of file diff --git a/764/CH8/EX8.23.b/solution8_23.sce b/764/CH8/EX8.23.b/solution8_23.sce new file mode 100755 index 000000000..8807cf8bb --- /dev/null +++ b/764/CH8/EX8.23.b/solution8_23.sce @@ -0,0 +1,59 @@ +
+//Function to round-up a value such that it is divisible by 5
+function[v] = round_five(w)
+ v = ceil(w)
+ rem = pmodulo(v,5)
+ if (rem ~= 0) then
+ v = v + (5 - rem)
+ end
+endfunction
+
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_23.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_23.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+printf("\nCode is applicable only when thickness of the plate is greater than 8mm.\n")
+//Calculate the thickness of the plate t (mm)
+t = ((Pi * Di * 1000)/(2 * sigmat * (eta/100))) + CA
+tround = ceil(t)
+//Calculate the diameter of the rivets d (mm)
+if (t > 8) then
+ d = 6 * sqrt(t)
+ dround = ceil(d)
+else
+ printf('\nThickess of the plate is not greater than 8mm. Hence terminating the programme.\n')
+ exit()
+end
+//Calculate the number of rivets N
+n = (((Di*1000)/dround)^2)*(Pi/tau)
+//Calculate the pitch of the rivets p1 (mm)
+p1 = dround/(1 - (eta1/100))
+//Calculate the minimum required pitch pmin (mm)
+pmin = 2 * dround
+//Calculate the maximum required pitch pmax (mm)
+pmax = (C * tround) + 41.28
+if (p1 > pmax | p1 < pmin)
+ p1 = 55 //Assumed
+end
+//Calculate the number of rivets in one row n1
+n1 = (%pi * ((Di * 1000) + t))/p1
+n1 = ceil(n1)
+//Calculate the revised diameter of the rivet drevise (mm)
+drevise = sqrt((((Di * 1000)^2)*Pi)/(n1 * tau))
+dceil = ceil(drevise)
+//Calculate the margin m (mm)
+m = 1.5 * dceil
+mround = round_five(m)
+//Calculate the overlap of plates a (mm)
+a = pt + (2 * mround)
+//Print results
+printf('\nThickness of the plate(tround) = %f mm\n', tround)
+printf('\nDiameter of the rivets(dceil) = %f mm\n', dceil)
+printf('\nNumber of rivets(n1) = %d mm\n', n1)
+printf('\nPitch of the rivets(p1) = %d mm\n', p1)
+printf('\nNumber of rows of rivets(assumed) = 1\n')
+printf('\nOverlap of plates(a) = %f mm\n', a)
diff --git a/764/CH8/EX8.24.a/data8_24.sci b/764/CH8/EX8.24.a/data8_24.sci new file mode 100755 index 000000000..0850de596 --- /dev/null +++ b/764/CH8/EX8.24.a/data8_24.sci @@ -0,0 +1,13 @@ +
+//(Welded and Riveted Joints) Example 8.24
+//Refer Fig.8.67 on page 322
+//Eccentric force acting on the bracket P (kN)
+P = 25
+//Eccentricity e (mm)
+e = 100
+//Permissible shear stress tau (N/mm2)
+tau = 60
+//Number of rivets n
+n = 4
+//Distance between two rivet centres dist (mm)
+dist = 100
diff --git a/764/CH8/EX8.24.b/result8_24.txt b/764/CH8/EX8.24.b/result8_24.txt new file mode 100755 index 000000000..69dfe2b04 --- /dev/null +++ b/764/CH8/EX8.24.b/result8_24.txt @@ -0,0 +1,46 @@ +-->//(Welded and Riveted Joints) Example 8.24
+
+-->//Refer Fig.8.67 on page 322
+
+-->//Eccentric force acting on the bracket P (kN)
+
+-->P = 25
+ P =
+
+ 25.
+
+-->//Eccentricity e (mm)
+
+-->e = 100
+ e =
+
+ 100.
+
+-->//Permissible shear stress tau (N/mm2)
+
+-->tau = 60
+ tau =
+
+ 60.
+
+-->//Number of rivets n
+
+-->n = 4
+ n =
+
+ 4.
+
+-->//Distance between two rivet centres dist (mm)
+
+-->dist = 100
+ dist =
+
+ 100.
+
+
+The code only pertains to the given geometry.
+
+Erroneous results can be obtained for other geometries.
+
+Diameter of the rivets(d) = 15.000000 mm
+
\ No newline at end of file diff --git a/764/CH8/EX8.24.b/solution8_24.sce b/764/CH8/EX8.24.b/solution8_24.sce new file mode 100755 index 000000000..df13ec934 --- /dev/null +++ b/764/CH8/EX8.24.b/solution8_24.sce @@ -0,0 +1,36 @@ +
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_24.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_24.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the primary shear force on each bolt Pshear (N)
+Pshear = (P * 1000)/n
+printf('\nThe code only pertains to the given geometry.\n')
+printf('\nErroneous results can be obtained for other geometries.\n')
+//Calculate the radial distance of rivet centres 1 and 4 from the C.G. r1 (mm)
+r1 = dist + (dist/2)
+//Calculate the radial distance of rivet centre 2 and 3 from the C.G. r2 (mm)
+r2 = (dist/2)
+//Calculate the value of constant C
+C = (P * 1000 * e)/(2 * ((r1^2) + (r2^2)))
+//Calculate the secondary shear force in rivets 1 and 4 Sshear1 (N)
+Sshear1 = C * r1
+//Calculate the secondary shear force in rivets 2 and 3 Sshear2 (N)
+Sshear2 = C * r2
+//Calculate the maximum of the two secondary shear forces Sshear (N)
+if (Sshear1 > Sshear2) then
+ Sshear = Sshear1
+else
+ Sshear = Sshear2
+end
+//Calculate the resultant force P1 (N)
+P1 = sqrt((Pshear^2) + (Sshear^2))
+//Calculate the diameter of the rivets d (mm)
+d = sqrt((P1 * 4)/(%pi * tau))
+dround = ceil(d)
+//Print results
+printf('\nDiameter of the rivets(d) = %f mm\n', dround)
diff --git a/764/CH8/EX8.25.a/data8_25.sci b/764/CH8/EX8.25.a/data8_25.sci new file mode 100755 index 000000000..d46fab178 --- /dev/null +++ b/764/CH8/EX8.25.a/data8_25.sci @@ -0,0 +1,11 @@ +
+//(Welded and Riveted Joints) Example 8.25
+//Refer Fig.8.68 on page 323
+//Eccentric force acting on the bracket P (kN)
+P = 15
+//Permissible shear stress tau (N/mm2)
+tau = 60
+//Number of rivets n
+n = 2
+//Distance between two rivet centres dist (mm)
+dist = 100
diff --git a/764/CH8/EX8.25.b/result8_25.txt b/764/CH8/EX8.25.b/result8_25.txt new file mode 100755 index 000000000..41ea9c0f7 --- /dev/null +++ b/764/CH8/EX8.25.b/result8_25.txt @@ -0,0 +1,39 @@ +-->//(Welded and Riveted Joints) Example 8.25
+
+-->//Refer Fig.8.68 on page 323
+
+-->//Eccentric force acting on the bracket P (kN)
+
+-->P = 15
+ P =
+
+ 15.
+
+-->//Permissible shear stress tau (N/mm2)
+
+-->tau = 60
+ tau =
+
+ 60.
+
+-->//Number of rivets n
+
+-->n = 2
+ n =
+
+ 2.
+
+-->//Distance between two rivet centres dist (mm)
+
+-->dist = 100
+ dist =
+
+ 100.
+
+
+The code only pertains to the given geometry.
+
+Erroneous results can be obtained for other geometries.
+
+Diameter of the rivets(d) = 18.000000 mm
+
\ No newline at end of file diff --git a/764/CH8/EX8.25.b/solution8_25.sce b/764/CH8/EX8.25.b/solution8_25.sce new file mode 100755 index 000000000..1e1c9bb51 --- /dev/null +++ b/764/CH8/EX8.25.b/solution8_25.sce @@ -0,0 +1,28 @@ +
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_25.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_25.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the primary shear force on each rivet Pshear (N)
+Pshear = (P * 1000)/n
+printf('\nThe code only pertains to the given geometry.\n')
+printf('\nErroneous results can be obtained for other geometries.\n')
+//Calculate the eccentricity e (mm)
+e = dist/2
+//Calculate the radial distance of rivet centres 1 and 2 from the C.G. r1 (mm)
+r1 = (dist/2)
+//Calculate the value of constant C
+C = (P * 1000 * e)/(2 * (r1^2))
+//Calculate the secondary shear force in rivets 1 and 2 Sshear (N)
+Sshear = C * r1
+//Calculate the resultant shear force on rivet 1 P1 (N)
+P1 = Pshear + Sshear
+//Calculate the rivet diameter d (mm)
+d = sqrt((P1 * 4)/(%pi * tau))
+dround = ceil(d)
+//Print results
+printf('\nDiameter of the rivets(d) = %f mm\n', dround)
diff --git a/764/CH8/EX8.26.a/data8_26.sci b/764/CH8/EX8.26.a/data8_26.sci new file mode 100755 index 000000000..49aa6e6a5 --- /dev/null +++ b/764/CH8/EX8.26.a/data8_26.sci @@ -0,0 +1,13 @@ +
+//(Welded and Riveted Joints) Example 8.26
+//Refer Fig.8.69 on page 323
+//Number of rivets n
+n = 4
+//Eccentric force P (kN)
+P = 5
+//Eccentricity e (mm)
+e = 200
+//Permissible shear stress tau (N/mm2)
+tau = 60
+//Radial distance of rivets from the C.G. r (mm)
+r = 100
diff --git a/764/CH8/EX8.26.b/result8_26.txt b/764/CH8/EX8.26.b/result8_26.txt new file mode 100755 index 000000000..d087ad9df --- /dev/null +++ b/764/CH8/EX8.26.b/result8_26.txt @@ -0,0 +1,46 @@ +-->//(Welded and Riveted Joints) Example 8.26
+
+-->//Refer Fig.8.69 on page 323
+
+-->//Number of rivets n
+
+-->n = 4
+ n =
+
+ 4.
+
+-->//Eccentric force P (kN)
+
+-->P = 5
+ P =
+
+ 5.
+
+-->//Eccentricity e (mm)
+
+-->e = 200
+ e =
+
+ 200.
+
+-->//Permissible shear stress tau (N/mm2)
+
+-->tau = 60
+ tau =
+
+ 60.
+
+-->//Radial distance of rivets from the C.G. r (mm)
+
+-->r = 100
+ r =
+
+ 100.
+
+
+The code only pertains to the given geometry.
+
+Erroneous results can be obtained for other geometries.
+
+Diameter of the rivets(d) = 8.920621 or 9.000000 mm
+
\ No newline at end of file diff --git a/764/CH8/EX8.26.b/solution8_26.sce b/764/CH8/EX8.26.b/solution8_26.sce new file mode 100755 index 000000000..de4525c15 --- /dev/null +++ b/764/CH8/EX8.26.b/solution8_26.sce @@ -0,0 +1,23 @@ +
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_26.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_26.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the primary shear force in each rivet Pshear (N)
+Pshear = (P * 1000)/n
+printf('\nThe code only pertains to the given geometry.\n')
+printf('\nErroneous results can be obtained for other geometries.\n')
+//Calculate the value of constant C
+C = (P * 1000 * e)/(n * (r^2))
+//Calculate the secondary shear force Sshear (N)
+Sshear = C * r
+//Calculate the maximum resultant shear force on rivet 2 P2 (N)
+P2 = Pshear + Sshear
+//Calculate the diameter of the rivets d (mm)
+d = sqrt((4 * P2)/(%pi * tau))
+//Print results
+printf("\nDiameter of the rivets(d) = %f or %f mm\n",d,ceil(d))
diff --git a/764/CH8/EX8.27.a/data8_27.sci b/764/CH8/EX8.27.a/data8_27.sci new file mode 100755 index 000000000..f48f6488a --- /dev/null +++ b/764/CH8/EX8.27.a/data8_27.sci @@ -0,0 +1,23 @@ +
+//(Welded and Riveted Joints) Example 8.27
+//Refer Fig.8.70 on page 324
+//Number of rivets n
+n = 9
+//Permissible shear stress tau (N/mm2)
+tau = 60
+//Eccentric force P (kN)
+P = 50
+//Eccentricity e (mm)
+e = 300
+//Radial distance of rivets 2, 4, 6 and 8 from the C.G.(5) r2 (mm)
+r2 = 100
+//Number of rivets with radial distance r2 n2
+n2 = 4
+//Radial distance of rivets 1, 3, 7 and 9 from the C.G.(5) r1 (mm)
+r1 = sqrt((100^2) + (100^2))
+//Number of rivets with radial distance r1 n1
+n1 = 4
+//Radial distance of rivet 5 from the C.G.(5) r3 (mm)
+r3 = 0
+//Angle made by line joining rivets 3 and 5 with the horizontal theta (degree)
+theta = 45
diff --git a/764/CH8/EX8.27.b/result8_27.txt b/764/CH8/EX8.27.b/result8_27.txt new file mode 100755 index 000000000..ce9a9796d --- /dev/null +++ b/764/CH8/EX8.27.b/result8_27.txt @@ -0,0 +1,81 @@ +-->//(Welded and Riveted Joints) Example 8.27
+
+-->//Refer Fig.8.70 on page 324
+
+-->//Number of rivets n
+
+-->n = 9
+ n =
+
+ 9.
+
+-->//Permissible shear stress tau (N/mm2)
+
+-->tau = 60
+ tau =
+
+ 60.
+
+-->//Eccentric force P (kN)
+
+-->P = 50
+ P =
+
+ 50.
+
+-->//Eccentricity e (mm)
+
+-->e = 300
+ e =
+
+ 300.
+
+-->//Radial distance of rivets 2, 4, 6 and 8 from the C.G.(5) r2 (mm)
+
+-->r2 = 100
+ r2 =
+
+ 100.
+
+-->//Number of rivets with radial distance r2 n2
+
+-->n2 = 4
+ n2 =
+
+ 4.
+
+-->//Radial distance of rivets 1, 3, 7 and 9 from the C.G.(5) r1 (mm)
+
+-->r1 = sqrt((100^2) + (100^2))
+ r1 =
+
+ 141.42136
+
+-->//Number of rivets with radial distance r1 n1
+
+-->n1 = 4
+ n1 =
+
+ 4.
+
+-->//Radial distance of rivet 5 from the C.G.(5) r3 (mm)
+
+-->r3 = 0
+ r3 =
+
+ 0.
+
+-->//Angle made by line joining rivets 3 and 5 with the horizontal theta (degree)
+
+-->theta = 45
+ theta =
+
+ 45.
+
+
+The code only pertains to the given geometry.
+
+Erroneous results can be obtained for other geometries.
+
+Diameter of the rivets(d) = 21.587293 or 22.000000 mm
+
\ No newline at end of file diff --git a/764/CH8/EX8.27.b/solution8_27.sce b/764/CH8/EX8.27.b/solution8_27.sce new file mode 100755 index 000000000..9b9fdf2be --- /dev/null +++ b/764/CH8/EX8.27.b/solution8_27.sce @@ -0,0 +1,35 @@ +
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_27.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_27.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the primary shear force Pshear (N)
+Pshear = (P * 1000)/n
+printf('\nThe code only pertains to the given geometry.\n')
+printf('\nErroneous results can be obtained for other geometries.\n')
+//Calculate the value of constant C
+C = (P * 1000 * e)/((n1 * (r1^2)) + (n2 * (r2^2)) + (r3^2))
+//Calculate the secondary shear force for rivets with radial distance r1 Sshear1 (N)
+Sshear1 = C * r1
+//Calculate the secondary shear force for rivets with radial distance r2 Sshear2 (N)
+Sshear2 = C * r2
+//Calculate the secondary shear force for rivets with radial distance r3 Sshear3 (N)
+Sshear3 = C * r3
+//Calculate the resultant shear force for rivets with radial distance r1 res1 (N)
+res1 = sqrt((Sshear1 * sind(theta))^2 + ((Sshear1 * cosd(theta)) + Pshear)^2)
+//Calculate the resultant shear force for rivets with radial distance r2 res2 (N)
+res2 = Pshear + Sshear2
+//Find out the maximum resultant force rmax (N)
+if (res1 > res2) then
+ rmax = res1
+else
+ rmax = res2
+end
+//Calculate the diameter of the rivets d (mm)
+d = sqrt((rmax * 4)/(%pi * tau))
+//Print results
+printf('\nDiameter of the rivets(d) = %f or %f mm\n', d,ceil(d))
diff --git a/764/CH8/EX8.3.a/data8_3.sci b/764/CH8/EX8.3.a/data8_3.sci new file mode 100755 index 000000000..380844324 --- /dev/null +++ b/764/CH8/EX8.3.a/data8_3.sci @@ -0,0 +1,11 @@ +
+//(Welded and Riveted Joints) Example 8.3
+//Refer Fig.8.10 on page 279
+//Width of the steel plates w (mm)
+w = 120
+//Thickness of the steel plates t (mm)
+t = 12.5
+//Maximum tensile stress sigmat (N/mm2)
+sigmat = 110
+//Total length of the weld to be added at start and stop lExt (mm)
+lExt = 15
diff --git a/764/CH8/EX8.3.b/result8_3.txt b/764/CH8/EX8.3.b/result8_3.txt new file mode 100755 index 000000000..09f4946ac --- /dev/null +++ b/764/CH8/EX8.3.b/result8_3.txt @@ -0,0 +1,35 @@ +-->//(Welded and Riveted Joints) Example 8.3
+
+-->//Refer Fig.8.10 on page 279
+
+-->//Width of the steel plates w (mm)
+
+-->w = 120
+ w =
+
+ 120.
+
+-->//Thickness of the steel plates t (mm)
+
+-->t = 12.5
+ t =
+
+ 12.5
+
+-->//Maximum tensile stress sigmat (N/mm2)
+
+-->sigmat = 110
+ sigmat =
+
+ 110.
+
+-->//Total length of the weld to be added at start and stop lExt (mm)
+
+-->lExt = 15
+ lExt =
+
+ 15.
+
+
+Total required length of the welds(lTotal) = 99.865629 or 100.000000 mm
+
\ No newline at end of file diff --git a/764/CH8/EX8.3.b/solution8_3.sce b/764/CH8/EX8.3.b/solution8_3.sce new file mode 100755 index 000000000..0739bfcab --- /dev/null +++ b/764/CH8/EX8.3.b/solution8_3.sce @@ -0,0 +1,29 @@ +
+//Function to round-up a value such that it is divisible by 5
+function[v] = round_five(w)
+ v = ceil(w)
+ rem = pmodulo(v,5)
+ if (rem ~= 0) then
+ v = v + (5 - rem)
+ end
+endfunction
+
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_3.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_3.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the tensile force on the plates P (N)
+P = w * t * sigmat
+//Calculate the thickness of the weld h (mm)
+h = t
+//Calculate the length of the weld l (mm)
+l = P/(1.414 * h * sigmat)
+//Total required length of the welds lTotal (mm)
+lTotal = l + lExt
+lround = round_five(lTotal)
+//Print results
+printf('\nTotal required length of the welds(lTotal) = %f or %f mm\n',lTotal,lround)
diff --git a/764/CH8/EX8.4.a/data8_4.sci b/764/CH8/EX8.4.a/data8_4.sci new file mode 100755 index 000000000..eee3b88f7 --- /dev/null +++ b/764/CH8/EX8.4.a/data8_4.sci @@ -0,0 +1,15 @@ +
+//(Welded and Riveted Joints) Example 8.4
+//Refer Fig.8.11 on page 280
+//Width of the plate w (mm)
+w = 75
+//Thickness of the plate h (mm)
+h = 10
+//Maximum tensile force acting on the plates P (kN)
+P = 55
+//Permissible tensile stress in the weld sigmat (N/mm2)
+sigmat = 70
+//Permissible shear stress in the weld tau (N/mm2)
+tau = 50
+//Total length of the weld to be added at start and stop lExt (mm)
+lExt = 15
diff --git a/764/CH8/EX8.4.b/result8_4.txt b/764/CH8/EX8.4.b/result8_4.txt new file mode 100755 index 000000000..a89ede9e6 --- /dev/null +++ b/764/CH8/EX8.4.b/result8_4.txt @@ -0,0 +1,49 @@ +-->//(Welded and Riveted Joints) Example 8.4
+
+-->//Refer Fig.8.11 on page 280
+
+-->//Width of the plate w (mm)
+
+-->w = 75
+ w =
+
+ 75.
+
+-->//Thickness of the plate h (mm)
+
+-->h = 10
+ h =
+
+ 10.
+
+-->//Maximum tensile force acting on the plates P (kN)
+
+-->P = 55
+ P =
+
+ 55.
+
+-->//Permissible tensile stress in the weld sigmat (N/mm2)
+
+-->sigmat = 70
+ sigmat =
+
+ 70.
+
+-->//Permissible shear stress in the weld tau (N/mm2)
+
+-->tau = 50
+ tau =
+
+ 50.
+
+-->//Total length of the weld to be added at start and stop lExt (mm)
+
+-->lExt = 15
+ lExt =
+
+ 15.
+
+
+Total required length of each parallel weld(lTotal) = 40.293494 or 45.000000 mm
+
\ No newline at end of file diff --git a/764/CH8/EX8.4.b/solution8_4.sce b/764/CH8/EX8.4.b/solution8_4.sce new file mode 100755 index 000000000..241d5a4e9 --- /dev/null +++ b/764/CH8/EX8.4.b/solution8_4.sce @@ -0,0 +1,32 @@ +
+//Function to round-up a value such that it is divisible by 5
+function[v] = round_five(w)
+ v = ceil(w)
+ rem = pmodulo(v,5)
+ if (rem ~= 0) then
+ v = v + (5 - rem)
+ end
+endfunction
+
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_4.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_4.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Assume the length of the parallel fillet weld to be 1mm l
+l = 1
+//Calculate the strength of the transverse fillet weld P1 (N)
+P1 = 0.707 * h * w * sigmat
+//Calculate the strength of the parallel fillet weld P2 (N)
+P2 = 1.414 * h * l * tau
+//Calculate the actual length of the parallel fillet weld l (mm)
+l = ((P * 1000) - P1)/P2
+//Total required length of each parallel weld lTotal (mm)
+lTotal = l + lExt
+lround = round_five(lTotal)
+//Print results
+printf('\nTotal required length of each parallel weld(lTotal) = %f or %f mm\n',lTotal,lround)
+
diff --git a/764/CH8/EX8.5.a/data8_5.sci b/764/CH8/EX8.5.a/data8_5.sci new file mode 100755 index 000000000..1129b5335 --- /dev/null +++ b/764/CH8/EX8.5.a/data8_5.sci @@ -0,0 +1,13 @@ +
+//(Welded and Riveted Joints) Example 8.5
+//Refer Fig.8.12 on page 280
+//Width of the steel plate w (mm)
+w = 100
+//Thickness of the steel plate t (mm)
+t = 10
+//Permissible tensile stress in the weld and plates sigmat (N/mm2)
+sigmat = 70
+//Permissible shear stress in the weld and plates tau (N/mm2)
+tau = 50
+//Total length of the weld to be added at start and stop lExt (mm)
+lExt = 15
diff --git a/764/CH8/EX8.5.b/result8_5.txt b/764/CH8/EX8.5.b/result8_5.txt new file mode 100755 index 000000000..332ff9b3b --- /dev/null +++ b/764/CH8/EX8.5.b/result8_5.txt @@ -0,0 +1,42 @@ +-->//(Welded and Riveted Joints) Example 8.5
+
+-->//Refer Fig.8.12 on page 280
+
+-->//Width of the steel plate w (mm)
+
+-->w = 100
+ w =
+
+ 100.
+
+-->//Thickness of the steel plate t (mm)
+
+-->t = 10
+ t =
+
+ 10.
+
+-->//Permissible tensile stress in the weld and plates sigmat (N/mm2)
+
+-->sigmat = 70
+ sigmat =
+
+ 70.
+
+-->//Permissible shear stress in the weld and plates tau (N/mm2)
+
+-->tau = 50
+ tau =
+
+ 50.
+
+-->//Total length of the weld to be added at start and stop lExt (mm)
+
+-->lExt = 15
+ lExt =
+
+ 15.
+
+
+Total required length of each parallel weld(lTotal) = 44.009901 or 45.000000 mm
+
\ No newline at end of file diff --git a/764/CH8/EX8.5.b/solution8_5.sce b/764/CH8/EX8.5.b/solution8_5.sce new file mode 100755 index 000000000..4c9318691 --- /dev/null +++ b/764/CH8/EX8.5.b/solution8_5.sce @@ -0,0 +1,35 @@ +
+//Function to round-up a value such that it is divisible by 5
+function[v] = round_five(w)
+ v = ceil(w)
+ rem = pmodulo(v,5)
+ if (rem ~= 0) then
+ v = v + (5 - rem)
+ end
+endfunction
+
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_5.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_5.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the tensile strength of the plate P (N)
+P = (w * t)*sigmat
+//Calculate the thickness of the weld h (mm)
+h = t
+//Calculate the strength of the transverse fillet weld P1 (N)
+P1 = 0.707 * h * w * sigmat
+//Assume the length of the parallel weld to be 1mm l (mm)
+l = 1
+//Calculate the strength of the double parallel fillet weld P2 (N)
+P2 = 1.414 * h * l * tau
+//Calculate the actual length of each parallel weld l (mm)
+l = (P - P1)/P2
+//Total required length of each parallel weld lTotal (mm)
+lTotal = l + lExt
+lround = round_five(lTotal)
+//Print results
+printf('\nTotal required length of each parallel weld(lTotal) = %f or %f mm\n',lTotal,lround)
diff --git a/764/CH8/EX8.6.a/data8_6.sci b/764/CH8/EX8.6.a/data8_6.sci new file mode 100755 index 000000000..cd5e07c9d --- /dev/null +++ b/764/CH8/EX8.6.a/data8_6.sci @@ -0,0 +1,13 @@ +
+//(Welded and Riveted Joints) Example 8.6
+//Refer Fig.8.13 on page 281
+//Size of the fillet weld h (mm)
+h = 5
+//Allowable shear load per mm S (N/mm)
+S = 330
+//Tensile force acting on the plate P (kN)
+P = 150
+//Total length of the weld to be added at start and stop lExt (mm)
+lExt = 15
+//Length of the transverse weld t (mm)
+t = 100
diff --git a/764/CH8/EX8.6.b/result8_6.txt b/764/CH8/EX8.6.b/result8_6.txt new file mode 100755 index 000000000..9a05741f3 --- /dev/null +++ b/764/CH8/EX8.6.b/result8_6.txt @@ -0,0 +1,42 @@ +-->//(Welded and Riveted Joints) Example 8.6
+
+-->//Refer Fig.8.13 on page 281
+
+-->//Size of the fillet weld h (mm)
+
+-->h = 5
+ h =
+
+ 5.
+
+-->//Allowable shear load per mm S (N/mm)
+
+-->S = 330
+ S =
+
+ 330.
+
+-->//Tensile force acting on the plate P (kN)
+
+-->P = 150
+ P =
+
+ 150.
+
+-->//Total length of the weld to be added at start and stop lExt (mm)
+
+-->lExt = 15
+ lExt =
+
+ 15.
+
+-->//Length of the transverse weld t (mm)
+
+-->t = 100
+ t =
+
+ 100.
+
+
+Total required length of the welds(lTotal) = 192.272727 or 195.000000 mm
+
\ No newline at end of file diff --git a/764/CH8/EX8.6.b/solution8_6.sce b/764/CH8/EX8.6.b/solution8_6.sce new file mode 100755 index 000000000..9cfc1ce77 --- /dev/null +++ b/764/CH8/EX8.6.b/solution8_6.sce @@ -0,0 +1,27 @@ +
+//Function to round-up a value such that it is divisible by 5
+function[v] = round_five(w)
+ v = ceil(w)
+ rem = pmodulo(v,5)
+ if (rem ~= 0) then
+ v = v + (5 - rem)
+ end
+endfunction
+
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_6.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_6.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the required length of the weld L (mm)
+L = (P * 1000)/S
+//Calculate the length of the parallel weld l (mm)
+l = (L - t)/2
+//Total required length of the welds lTotal (mm)
+lTotal = l + lExt
+lround = round_five(lTotal)
+//Print results
+printf('\nTotal required length of the welds(lTotal) = %f or %f mm\n',lTotal,lround)
diff --git a/764/CH8/EX8.7.a/data8_7.sci b/764/CH8/EX8.7.a/data8_7.sci new file mode 100755 index 000000000..894ae80f6 --- /dev/null +++ b/764/CH8/EX8.7.a/data8_7.sci @@ -0,0 +1,14 @@ +
+//(Welded and Riveted Joints) Example 8.7
+//Refer Fig.8.17 on page 284
+//ISA angle dimensions l1 x l2 x h (mm)
+l1 = 200
+l2 = 100
+h = 10
+//Static force acting on the angle P (kN)
+P = 150
+//Permissible shear stress for the weld tau (N/mm2)
+tau = 70
+//
+//Distance of C.G. of weld2 from the C.G. of the angle y2 (mm)
+y2 = 71.8
diff --git a/764/CH8/EX8.7.b/result8_7.txt b/764/CH8/EX8.7.b/result8_7.txt new file mode 100755 index 000000000..389ce3bd1 --- /dev/null +++ b/764/CH8/EX8.7.b/result8_7.txt @@ -0,0 +1,49 @@ +-->//(Welded and Riveted Joints) Example 8.7
+
+-->//Refer Fig.8.17 on page 284
+
+-->//ISA angle dimensions l1 x l2 x h (mm)
+
+-->l1 = 200
+ l1 =
+
+ 200.
+
+-->l2 = 100
+ l2 =
+
+ 100.
+
+-->h = 10
+ h =
+
+ 10.
+
+-->//Static force acting on the angle P (kN)
+
+-->P = 150
+ P =
+
+ 150.
+
+-->//Permissible shear stress for the weld tau (N/mm2)
+
+-->tau = 70
+ tau =
+
+ 70.
+
+-->//
+
+-->//Distance of C.G. of weld2 from the C.G. of the angle y2 (mm)
+
+-->y2 = 71.8
+ y2 =
+
+ 71.8
+
+
+Length of the weld at the top(L1) = 108.809861 mm
+
+Length of the weld at the bottom(L2) = 194.281673 mm
+
\ No newline at end of file diff --git a/764/CH8/EX8.7.b/solution8_7.sce b/764/CH8/EX8.7.b/solution8_7.sce new file mode 100755 index 000000000..3a6805ec8 --- /dev/null +++ b/764/CH8/EX8.7.b/solution8_7.sce @@ -0,0 +1,20 @@ +
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_7.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_7.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the distance of the C.G. of weld1 from the C.G. of the plate y1 (mm)
+y1 = l1 - y2
+//Calculate the total length of the weld L (mm)
+L = (P * 1000)/(0.707 * h * tau)
+//Calculate the length of the weld at the top L1 (mm)
+L1 = L/(1 + (y1/y2))
+//Calculate the length of the weld at the bottom L2 (mm)
+L2 = L - L1
+//Print results
+printf('\nLength of the weld at the top(L1) = %f mm\n',L1)
+printf('\nLength of the weld at the bottom(L2) = %f mm\n',L2)
diff --git a/764/CH8/EX8.8.a/data8_8.sci b/764/CH8/EX8.8.a/data8_8.sci new file mode 100755 index 000000000..ac30759bf --- /dev/null +++ b/764/CH8/EX8.8.a/data8_8.sci @@ -0,0 +1,13 @@ +
+//(Welded and Riveted Joints) Example 8.8
+//Refer Fig.8.18 on page 285
+//ISA angle dimensions l1 x l2 x t
+l1 = 150
+l2 = 75
+t = 10
+//Static load acting on the angle through the C.G. P (kN)
+P = 125
+//Distance of the angle C.G. from the short side y2 (mm)
+y2 = 53.2
+//Allowable load per mm of the weld Pall (N/mm)
+Pall = 665
diff --git a/764/CH8/EX8.8.b/result8_8.txt b/764/CH8/EX8.8.b/result8_8.txt new file mode 100755 index 000000000..693927f19 --- /dev/null +++ b/764/CH8/EX8.8.b/result8_8.txt @@ -0,0 +1,47 @@ +-->//(Welded and Riveted Joints) Example 8.8
+
+-->//Refer Fig.8.18 on page 285
+
+-->//ISA angle dimensions l1 x l2 x t
+
+-->l1 = 150
+ l1 =
+
+ 150.
+
+-->l2 = 75
+ l2 =
+
+ 75.
+
+-->t = 10
+ t =
+
+ 10.
+
+-->//Static load acting on the angle through the C.G. P (kN)
+
+-->P = 125
+ P =
+
+ 125.
+
+-->//Distance of the angle C.G. from the short side y2 (mm)
+
+-->y2 = 53.2
+ y2 =
+
+ 53.2
+
+-->//Allowable load per mm of the weld Pall (N/mm)
+
+-->Pall = 665
+ Pall =
+
+ 665.
+
+
+Length of the shorter weld(l1) = 66.666667 mm
+
+Length of the longer weld(l2) = 121.303258 mm
+
\ No newline at end of file diff --git a/764/CH8/EX8.8.b/solution8_8.sce b/764/CH8/EX8.8.b/solution8_8.sce new file mode 100755 index 000000000..4f092ff5a --- /dev/null +++ b/764/CH8/EX8.8.b/solution8_8.sce @@ -0,0 +1,20 @@ +
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_8.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_8.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the total length of the weld l (mm)
+l = (P * 1000)/Pall
+//Calculate the distance of the C.G. of the angle from the long side y1 (mm)
+y1 = l1 - y2
+//Calculate the length of the shorter weld l1 (mm)
+l1 = l/(1 + (y1/y2))
+//Calculate the length of the longer weld l2 (mm)
+l2 = l - l1
+//Print results
+printf('\nLength of the shorter weld(l1) = %f mm\n',l1)
+printf('\nLength of the longer weld(l2) = %f mm\n',l2)
diff --git a/764/CH8/EX8.9.a/data8_9.sci b/764/CH8/EX8.9.a/data8_9.sci new file mode 100755 index 000000000..6fdb44c1b --- /dev/null +++ b/764/CH8/EX8.9.a/data8_9.sci @@ -0,0 +1,15 @@ +
+//(Welded and Riveted Joints) Example 8.9
+//Refer Fig. 8.22 on page 286
+//Eccentric force acting on the welded connection P (kN)
+P = 7.5
+//Permissible shear stress for the weld tau (N/mm2)
+tau = 100
+//Number of welds N
+N = 2
+//Length of each weld l (mm)
+l = 50
+//Force eccentricity e (mm)
+e = 100 + (l/2)
+//Width of the plate w (mm)
+w = 50
diff --git a/764/CH8/EX8.9.b/result8_9.txt b/764/CH8/EX8.9.b/result8_9.txt new file mode 100755 index 000000000..2599695fd --- /dev/null +++ b/764/CH8/EX8.9.b/result8_9.txt @@ -0,0 +1,49 @@ +-->//(Welded and Riveted Joints) Example 8.9
+
+-->//Refer Fig. 8.22 on page 286
+
+-->//Eccentric force acting on the welded connection P (kN)
+
+-->P = 7.5
+ P =
+
+ 7.5
+
+-->//Permissible shear stress for the weld tau (N/mm2)
+
+-->tau = 100
+ tau =
+
+ 100.
+
+-->//Number of welds N
+
+-->N = 2
+ N =
+
+ 2.
+
+-->//Length of each weld l (mm)
+
+-->l = 50
+ l =
+
+ 50.
+
+-->//Force eccentricity e (mm)
+
+-->e = 100 + (l/2)
+ e =
+
+ 125.
+
+-->//Width of the plate w (mm)
+
+-->w = 50
+ w =
+
+ 50.
+
+
+Throat of the weld(t) = 4.538894 or 5.000000 mm
+
\ No newline at end of file diff --git a/764/CH8/EX8.9.b/solution8_9.sce b/764/CH8/EX8.9.b/solution8_9.sce new file mode 100755 index 000000000..5ee467fee --- /dev/null +++ b/764/CH8/EX8.9.b/solution8_9.sce @@ -0,0 +1,47 @@ +
+//Function to round-up a value such that it is divisible by 5
+function[v] = round_five(w)
+ v = ceil(w)
+ rem = pmodulo(v,5)
+ if (rem ~= 0) then
+ v = v + (5 - rem)
+ end
+endfunction
+
+//Obtain path of solution file
+path = get_absolute_file_path('solution8_9.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data8_9.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Assume the throat of each weld to be 1mm t
+t = 1
+//Calculate the total throat area of the welds A (mm2)
+A = N * l * t
+//Calculate the primary shear stress tau1 (N/mm2)
+tau1 = (P * 1000)/A
+//Maximum bending moment acting on the welds M (N/mm)
+M = (P * 1000) * e
+//Distance of the farthest point in the weld from the C.G. of the plate r (mm)
+r = sqrt(((w/2)^2) + ((l/2)^2))
+//Polar moment of inertia of weld1 about plate C.G. using parallel axis theorem J1 (mm4)
+J1 = (A/N)*(((l^2)/12) + ((w/2)^2))
+//Calculate the polar moment of inertia due to symmetry J (mm4)
+J = 2 * J1
+//Calculate the secondary shear stress tau2 (N/mm2)
+tau2 = (M * r)/J
+//Angle made by the secondary shear force with the horizontal theta (degree)
+theta = 45
+//Total vertical component of the resultant shear stress vert (N/mm2)
+vert = tau1 + (tau2 * sind(theta))
+//Total horizontal component of the resultant shear stress hori (N/mm2)
+hori = tau2 * cosd(theta)
+//Calculate the resultant shear stress res (N/mm2)
+res = sqrt((vert^2) + (hori^2))
+//Calculate the actual throat of the weld t (mm)
+t = res/tau
+tround = round_five(t)
+//Print results
+printf('\nThroat of the weld(t) = %f or %f mm\n',t,tround)
|