From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 764/CH7/EX7.23.b/graph7_23.png    | Bin 0 -> 13791 bytes
 764/CH7/EX7.23.b/result7_23.txt   |  98 ++++++++++++++++++++++++++++++++++++++
 764/CH7/EX7.23.b/solution7_23.sce |  54 +++++++++++++++++++++
 3 files changed, 152 insertions(+)
 create mode 100755 764/CH7/EX7.23.b/graph7_23.png
 create mode 100755 764/CH7/EX7.23.b/result7_23.txt
 create mode 100755 764/CH7/EX7.23.b/solution7_23.sce

(limited to '764/CH7/EX7.23.b')

diff --git a/764/CH7/EX7.23.b/graph7_23.png b/764/CH7/EX7.23.b/graph7_23.png
new file mode 100755
index 000000000..822633721
Binary files /dev/null and b/764/CH7/EX7.23.b/graph7_23.png differ
diff --git a/764/CH7/EX7.23.b/result7_23.txt b/764/CH7/EX7.23.b/result7_23.txt
new file mode 100755
index 000000000..706e583c2
--- /dev/null
+++ b/764/CH7/EX7.23.b/result7_23.txt
@@ -0,0 +1,98 @@
+-->//(Threaded Joints) Example 7.23
+ 
+-->//Refer Fig.7.47 on page 267
+ 
+-->//Maximum pressure in the vessel Pmax (MPa)
+ 
+-->Pmax = 1
+ Pmax  =
+ 
+    1.  
+ 
+-->//Minimum pressure in the vessel Pmin (MPa)
+ 
+-->Pmin = 0
+ Pmin  =
+ 
+    0.  
+ 
+-->//Seating pressure for the gasket PSeat (MPa)
+ 
+-->PSeat = 5
+ PSeat  =
+ 
+    5.  
+ 
+-->//Number of bolts N
+ 
+-->N = 8
+ N  =
+ 
+    8.  
+ 
+-->//Assume the stiffness of the bolts to be 1N/mm kb
+ 
+-->kb = 1
+ kb  =
+ 
+    1.  
+ 
+-->//Calculate the stiffness of the parts kc
+ 
+-->kc = 4 * kb
+ kc  =
+ 
+    4.  
+ 
+-->//Factor of safety fs
+ 
+-->fs = 2
+ fs  =
+ 
+    2.  
+ 
+-->//Ultimate tensile strength of bolt material Sut (N/mm2)
+ 
+-->Sut = 780
+ Sut  =
+ 
+    780.  
+ 
+-->//Yield tensile strength of the bolt material Syt (N/mm2)
+ 
+-->Syt = 580
+ Syt  =
+ 
+    580.  
+ 
+-->//Endurance limit in bending Sdash (N/mm2)
+ 
+-->Sdash = 260
+ Sdash  =
+ 
+    260.  
+ 
+-->//Fatigue stress concentration factor Kf
+ 
+-->Kf = 3
+ Kf  =
+ 
+    3.  
+ 
+-->//Inner diameter of the gasket Di (mm)
+ 
+-->Di = 300
+ Di  =
+ 
+    300.  
+ 
+-->//Outer diameter of the gasket Do (mm)
+ 
+-->Do = 300 + (2 * 50)
+ Do  =
+ 
+    400.  
+ 
+
+Core cross-section area of the bolt(A) = 74.889729 mm2
+ 
\ No newline at end of file
diff --git a/764/CH7/EX7.23.b/solution7_23.sce b/764/CH7/EX7.23.b/solution7_23.sce
new file mode 100755
index 000000000..11467f4cd
--- /dev/null
+++ b/764/CH7/EX7.23.b/solution7_23.sce
@@ -0,0 +1,54 @@
+
+function[] = plot_format()
+    //Get the handle of current axes
+    g = gca()
+    //Give labels and set label properties
+    g.labels_font_color=5
+    g.font_size=3
+    g.grid=[1,1]
+    g.box="off"
+endfunction
+
+//Obtain path of solution file
+path = get_absolute_file_path('solution7_23.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data7_23.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the value of Kd
+Kd = 1/Kf
+//Calculate the endurance limit stress for bolt Se (N/mm2)
+Se = Kd * Sdash
+//Plot modified Goodman diagram
+//The common quadrilateral in the plot is the area of concern
+y1 = {Se 0}
+x1 = {0 Sut}
+y2 = {Syt 0}
+x2 = {0 Syt}
+plot(x1,y1,'--*')
+plot(x2,y2,'-*')
+plot_format()
+title('Modified Goodman diagram (Example 7.23)')
+xlabel('sigmaM (N/mm2)')
+ylabel('sigmaA (N/mm2)')
+//Calculate the initial pre-load in the bolts Pitotal (N)
+Pitotal = PSeat*((%pi/4)*((Do^2) - (Di^2)))
+//Calculate the pre-load per bolt Pi (N)
+Pi = Pitotal/N
+//Calculate the total external load Fmax per bolt(N)
+Fmax = ((%pi/4)*((Di + ((Do - Di)/2))^2)*Pmax)/N
+//Calculate the total external load Fmin per bolt(N)
+Fmin = ((%pi/4)*((Di + ((Do - Di)/2))^2)*Pmin)/N
+//Calculate the maximum and minimum forces on the bolt (N)
+PMAX = Pi + ((kb/(kb + kc)) * Fmax)
+PMIN = Pi + ((kb/(kb + kc)) * Fmin)
+//Calculate the mean force and force amplitude (N)
+Pm = (PMAX + PMIN)/2
+Pa = (PMAX - PMIN)/2
+//Calculate the actual core cross-section area of the bolt A (mm2)
+A = (Pa + (Pi/((1 + (Sut/Se)) * fs)))/(Sut/((1 + (Sut/Se))*fs))
+//Choose proper diameter from Table 7.1
+//Print results
+printf('\nCore cross-section area of the bolt(A) = %f mm2\n',A)
-- 
cgit