summaryrefslogtreecommitdiff
path: root/3705/CH5/EX5.3/Ex5_3.sce
diff options
context:
space:
mode:
Diffstat (limited to '3705/CH5/EX5.3/Ex5_3.sce')
-rw-r--r--3705/CH5/EX5.3/Ex5_3.sce24
1 files changed, 24 insertions, 0 deletions
diff --git a/3705/CH5/EX5.3/Ex5_3.sce b/3705/CH5/EX5.3/Ex5_3.sce
new file mode 100644
index 000000000..b6b6448ce
--- /dev/null
+++ b/3705/CH5/EX5.3/Ex5_3.sce
@@ -0,0 +1,24 @@
+
+clear//
+
+//Variable Declaration
+L=4 //Length of each section in ft
+h_ab=4 //Thickness of the front section in inches
+h_bd=6 //Thickness of the back section in inches
+P=2000 //Point load acting at point A in lb
+M_B=8000 //Moment at 4ft in lb.ft
+M_D=16000 //Moment at x=8ft in lb.ft
+b=2 //Breadth in inches
+
+//Calculations
+S_ab=b*h_ab**2*6**-1 //Sectional Modulus of section AB in in^3
+S_bd=b*h_bd**2*6**-1 //Sectional Modulus of section BD in in^3
+sigma_B=12*M_B*S_ab**-1 //Maximum bending stress in psi
+sigma_D=12*M_D*S_bd**-1 //Maximum bending stress in psi
+
+//Maximum stress
+sigma_max=max(sigma_B,sigma_D) //Maximum stress in psi
+
+//Result
+printf("\n Comparing the two results we find that the maximum stress is")
+printf("\n Sigma_max= %0.0f psi",sigma_max)