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/CH4/EX4.7.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/CH4/EX4.7.b')
| -rwxr-xr-x | 764/CH4/EX4.7.b/result4_7.txt | 44 | ||||
| -rwxr-xr-x | 764/CH4/EX4.7.b/solution4_7.sce | 47 |
2 files changed, 91 insertions, 0 deletions
diff --git a/764/CH4/EX4.7.b/result4_7.txt b/764/CH4/EX4.7.b/result4_7.txt new file mode 100755 index 000000000..0d16b4371 --- /dev/null +++ b/764/CH4/EX4.7.b/result4_7.txt @@ -0,0 +1,44 @@ +-->//(Design against Static Load) Example 4.7
+
+-->//Refer Fig.4.26
+
+-->//Initial tension in the hacksaw blade P (N)
+
+-->P = 300
+ P =
+
+ 300.
+
+-->//Tensile yield strength of 30C8 Syt (N/mm2)
+
+-->Syt = 400
+ Syt =
+
+ 400.
+
+-->//Factor of safety (fs)
+
+-->fs = 2.5
+ fs =
+
+ 2.5
+
+-->//Ratio of depth to width of cross-section ratio
+
+-->ratio = 3
+ ratio =
+
+ 3.
+
+-->//Length of hacksaw frame l (mm)
+
+-->l = 200
+ l =
+
+ 200.
+
+
+Value of t = 6.266535 mm
+
+Area of cross-section = (6.266535 x 18.799604) mm2
+
\ No newline at end of file diff --git a/764/CH4/EX4.7.b/solution4_7.sce b/764/CH4/EX4.7.b/solution4_7.sce new file mode 100755 index 000000000..a67b1f7bb --- /dev/null +++ b/764/CH4/EX4.7.b/solution4_7.sce @@ -0,0 +1,47 @@ +
+//Obtain path of solution file
+path = get_absolute_file_path('solution4_7.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data4_7.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate permissible tensile stress sigmat (N/mm2)
+sigmat = Syt/fs
+//Assume the wudth of the cross-section to be 1mm t
+t = 1
+//Calculate direct compressive stress sigmac (N/mm2)
+sigmac = P/(t * (ratio * t))
+//Calculate maximum bending moment Mb (N-mm)
+Mb = P * l
+//Calculate y
+y = 1.5 * t
+//Calculate the second moment of area I (mm4)
+I = (t * ((ratio * t)^3))/12
+//Calculate tensile bending stress at the lower fibre sigmab(N/mm2)
+sigmab = (Mb * y)/I
+//Finding the real value of width t (mm)
+//On superimposing the stress values, a cubic equation in t is obtained
+a = 0
+b = (sigmac/sigmat)
+c = (-1 * (sigmab/sigmat))
+//Define polynomial
+p = [1,a,b,c]
+//Calculate roots of this polynomial
+r = roots(p)
+real_part = real(r)
+for i = 1:1:3
+ if(real_part(i)>0)
+ t = real_part(i)
+ break
+ end
+end
+//Print results
+printf('\nValue of t = %f mm\n',t)
+printf('\nArea of cross-section = (%f x %f) mm2\n',t,(ratio * t))
+
+
+
+
+
|