summaryrefslogtreecommitdiff
path: root/698/CH2/EX2.15
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /698/CH2/EX2.15
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-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')
-rw-r--r--698/CH2/EX2.15/15_stresses_in_steel_latch.txt27
-rw-r--r--698/CH2/EX2.15/P15_stresses_in_steel_latch.sce82
2 files changed, 109 insertions, 0 deletions
diff --git a/698/CH2/EX2.15/15_stresses_in_steel_latch.txt b/698/CH2/EX2.15/15_stresses_in_steel_latch.txt
new file mode 100644
index 000000000..0d5bf200e
--- /dev/null
+++ b/698/CH2/EX2.15/15_stresses_in_steel_latch.txt
@@ -0,0 +1,27 @@
+ AT SECTION A-A
+Top fibres are critical.
+
+ Sn(max) = ((M*c)/I) + (P/A)
+Maximum normal stress Sn(max)=49.5 MN/m^2 tensile at top fibres of section A-A
+
+ Sn(min) = -((M*c)/I) + (P/A)
+Minimum normal stress Sn(min)=-31.5 MN/m^2 compressive at bottom fibres of section A-A
+
+Maximum shear stress T(max)=24.7 MN/m^2 at top fibres of section A-A
+
+ AT POINT B
+(neglecting stress concentration)
+
+ Sx = ((M*c)/I) + (P/A)
+Sx=49.5 MN/m^2 tensile
+ Sy = ((M*c)/I)
+Sy=54.0 MN/m^2 tensile
+ Sz=0 and Txy=0
+
+ Sn(max) =((Sx+Sy)/2) + sqrt( ((Sx-Sy)/2)^2 - (Txy^2) )
+Maximum normal stress Sn(max)=54.0 MN/m^2 tensile
+ Sn(min) =((Sx+Sy)/2) - sqrt( ((Sx-Sy)/2)^2 - (Txy^2) )
+Minimum normal stress Sn(min)=49.5 MN/m^2 tensile
+ T(max)=(Sn(max)-0)/2
+Maximum shear stress T(max)=27.0 MN/m^2
+
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