diff options
| author | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
|---|---|---|
| committer | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
| commit | 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch) | |
| tree | dbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /698/CH2/EX2.15/P15_stresses_in_steel_latch.sce | |
| parent | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff) | |
| download | Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2 Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip | |
initial commit / add all books
Diffstat (limited to '698/CH2/EX2.15/P15_stresses_in_steel_latch.sce')
| -rw-r--r-- | 698/CH2/EX2.15/P15_stresses_in_steel_latch.sce | 82 |
1 files changed, 82 insertions, 0 deletions
diff --git a/698/CH2/EX2.15/P15_stresses_in_steel_latch.sce b/698/CH2/EX2.15/P15_stresses_in_steel_latch.sce new file mode 100644 index 000000000..beb64a02b --- /dev/null +++ b/698/CH2/EX2.15/P15_stresses_in_steel_latch.sce @@ -0,0 +1,82 @@ +clc
+//Example 2.15
+//Stresses in steel latch
+//------------------------------------------------------------------------------
+
+//Given data:
+//Loads
+P=2700 // N
+
+//Dimensions
+b=0.006 // m
+d=0.05 // m
+c=d/2
+A = b*d
+I1=(b*(d^3))/12
+
+R=0.025 // m
+I2=(b*(R^3))/12
+
+//distance of line of action from horizontal axis
+l1=0.0375 // m
+//distance of line of action from vertical axis
+l2=R/2 // m
+
+//
+M1=P*l1
+M2=P*l2
+
+
+res15=mopen(TMPDIR+'15_stresses_in_steel_latch.txt','wt')
+
+mfprintf(res15,'\tAT SECTION A-A\nTop fibres are critical.\n\n')
+
+Sn_maxa=((M1*c)/I1)+(P/A)
+
+Sn_mina=-((M1*c)/I1) + (P/A)
+
+Tmaxa=Sn_maxa/2
+
+mfprintf(res15,'\tSn(max) = ((M*c)/I) + (P/A)\n')
+mfprintf(res15,'Maximum normal stress Sn(max)=%0.1f MN/m^2',Sn_maxa* (10^-6))
+nature(Sn_maxa)
+mfprintf(res15,' at top fibres of section A-A\n')
+mfprintf(res15,'\n\tSn(min) = -((M*c)/I) + (P/A)\n')
+mfprintf(res15,'Minimum normal stress Sn(min)=%0.1f MN/m^2',Sn_mina* (10^-6))
+nature(Sn_mina)
+mfprintf(res15,' at bottom fibres of section A-A\n')
+mfprintf(res15,'\nMaximum shear stress T(max)=%0.1f MN/m^2',Tmaxa* (10^-6))
+mfprintf(res15,' at top fibres of section A-A\n\n')
+
+
+mfprintf(res15,'\tAT POINT B\n(neglecting stress concentration)\n\n')
+
+Sx=((M1*c)/I1)+(P/A)
+mfprintf(res15,'\tSx = ((M*c)/I) + (P/A)\n')
+mfprintf(res15,'Sx=%0.1f MN/m^2',Sx* (10^-6))
+nature(Sx)
+
+Sy=((M2*l2)/I2)
+mfprintf(res15,'\n\tSy = ((M*c)/I)\n')
+mfprintf(res15,'Sy=%0.1f MN/m^2',Sy* (10^-6))
+nature(Sy)
+
+mfprintf(res15,'\n Sz=0 and Txy=0\n\n')
+
+Sn_maxb=((Sx+Sy)/2) + sqrt((((Sx-Sy)/2)^2)-0)
+mfprintf(res15,'\tSn(max) =((Sx+Sy)/2) + sqrt( ((Sx-Sy)/2)^2 - (Txy^2) )\n')
+mfprintf(res15,'Maximum normal stress Sn(max)=%0.1f MN/m^2',Sn_maxb* (10^-6))
+nature(Sn_maxb)
+
+Sn_minb=((Sx+Sy)/2) - sqrt((((Sx-Sy)/2)^2)-0)
+mfprintf(res15,'\n\tSn(min) =((Sx+Sy)/2) - sqrt( ((Sx-Sy)/2)^2 - (Txy^2) )\n')
+mfprintf(res15,'Minimum normal stress Sn(min)=%0.1f MN/m^2',Sn_minb* (10^-6))
+nature(Sn_minb)
+
+Tmaxb=(Sn_maxb-0)/2
+mfprintf(res15,'\n\tT(max)=(Sn(max)-0)/2')
+mfprintf(res15,'\nMaximum shear stress T(max)=%0.1f MN/m^2\n\n',Tmaxb* (10^-6))
+mclose(res15)
+editor(TMPDIR+'15_stresses_in_steel_latch.txt')
+//------------------------------------------------------------------------------
+//-----------------------------End of program-----------------------------------
\ No newline at end of file |