diff options
| author | priyanka | 2015-06-24 15:03:17 +0530 |
|---|---|---|
| committer | priyanka | 2015-06-24 15:03:17 +0530 |
| commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
| tree | ab291cffc65280e58ac82470ba63fbcca7805165 /764/CH7/EX7.18.b | |
| download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip | |
initial commit / add all books
Diffstat (limited to '764/CH7/EX7.18.b')
| -rwxr-xr-x | 764/CH7/EX7.18.b/graph7_18.png | bin | 0 -> 13942 bytes | |||
| -rwxr-xr-x | 764/CH7/EX7.18.b/result7_18.txt | 100 | ||||
| -rwxr-xr-x | 764/CH7/EX7.18.b/solution7_18.sce | 60 |
3 files changed, 160 insertions, 0 deletions
diff --git a/764/CH7/EX7.18.b/graph7_18.png b/764/CH7/EX7.18.b/graph7_18.png Binary files differnew file mode 100755 index 000000000..e13ca6307 --- /dev/null +++ b/764/CH7/EX7.18.b/graph7_18.png diff --git a/764/CH7/EX7.18.b/result7_18.txt b/764/CH7/EX7.18.b/result7_18.txt new file mode 100755 index 000000000..4b35b6c3a --- /dev/null +++ b/764/CH7/EX7.18.b/result7_18.txt @@ -0,0 +1,100 @@ +-->//(Threaded Joints) Example 7.18
+
+-->//Refer Fig.7.35 on page 256
+
+-->//Maximum force acting on the assembly Pmax (kN)
+
+-->Pmax = 10
+ Pmax =
+
+ 10.
+
+-->//Minimum force acting on the assembly Pmin (kN)
+
+-->Pmin = 0
+ Pmin =
+
+ 0.
+
+-->//Yield tensile strength of 45C8 Syt (N/mm2)
+
+-->Syt = 380
+ Syt =
+
+ 380.
+
+-->//Ultimate tensile strength of 45C8 Sut (N/mm2)
+
+-->Sut = 630
+ Sut =
+
+ 630.
+
+-->//Young's modulus of the plain carbon steel E1 (N/mm2)
+
+-->E1 = 207000
+ E1 =
+
+ 207000.
+
+-->//Young's modulus of aluminium E2 (N/mm2)
+
+-->E2 = 71000
+ E2 =
+
+ 71000.
+
+-->//Fatigue stress concentration factor Kf
+
+-->Kf = 2.2
+ Kf =
+
+ 2.2
+
+-->//Expected reliability (%)
+
+-->reliability = 90
+ reliability =
+
+ 90.
+
+-->//Initial pre-load in the bolt Pi (kN)
+
+-->Pi = 5
+ Pi =
+
+ 5.
+
+-->//Factor of safety fs
+
+-->fs = 2
+ fs =
+
+ 2.
+
+-->//Length of the bolt l (mm)
+
+-->l = 25 + 25
+ l =
+
+ 50.
+
+-->//Assume diameter of the bolt to be less than 7.5mm for Kb to be 1
+
+-->d = 1
+ d =
+
+ 1.
+
+-->//As Ka is incorporated into Kf, assume the assembly to be ground
+
+-->//This is just to obtain a random value of Ka
+
+-->op = 1
+ op =
+
+ 1.
+
+
+Core cross-section area of the bolt(A) = 54.133961 mm2
+
\ No newline at end of file diff --git a/764/CH7/EX7.18.b/solution7_18.sce b/764/CH7/EX7.18.b/solution7_18.sce new file mode 100755 index 000000000..09221472e --- /dev/null +++ b/764/CH7/EX7.18.b/solution7_18.sce @@ -0,0 +1,60 @@ +
+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_18.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data7_18.sci'
+//Obtain path of function file
+funcpath = path + filesep() + 'functions7_18.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+exec(funcpath,[-1])
+//Calculate the endurance limit stress for bolt Sdash (N/mm2)
+Sdash = (50/100)*Sut
+//Calculate Ka, Kb and Kc
+[Ka, Kb, Kc] = fluctuate(op, d, reliability)
+//Calculate Kd
+Kd = 1/Kf
+//Calculate the corrected endurance limit stress Se (N/mm2)
+Se = Kb * Kc * Kd * Sdash
+//Calculate the stiffness of bolt kb (N/mm)
+kb = ((%pi/4)*(d^2))*(E1/l)
+//Calculate the area of the two plates Ac (mm2)
+Ac = (%pi/4)*(((2*d)^2) - (d^2))
+//Calculate the stiffness of the plates kc (N/mm)
+kc = (Ac * E2)/l
+//Calculate the maximum force in the bolt PMAX (N)
+PMAX = (Pi * 1000) + ((kb/(kb + kc))*(Pmax * 1000))
+//Calculate the minimum force in the bolt PMIN (N)
+PMIN = (Pi * 1000) + ((kb/(kb + kc))*(Pmin * 1000))
+//Calculate the mean force and force amplitude
+Pm = (PMAX + PMIN)/2
+Pa = (PMAX - PMIN)/2
+//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.18)')
+xlabel('sigmaM (N/mm2)')
+ylabel('sigmaA (N/mm2)')
+//Calculate the actual core cross-section area of the bolt A (mm2)
+A = (Pa + ((Pi * 1000)/((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)
|
