summaryrefslogtreecommitdiff
path: root/3705/CH8/EX8.3/Ex8_3.sce
diff options
context:
space:
mode:
Diffstat (limited to '3705/CH8/EX8.3/Ex8_3.sce')
-rw-r--r--3705/CH8/EX8.3/Ex8_3.sce28
1 files changed, 28 insertions, 0 deletions
diff --git a/3705/CH8/EX8.3/Ex8_3.sce b/3705/CH8/EX8.3/Ex8_3.sce
new file mode 100644
index 000000000..5e4560e43
--- /dev/null
+++ b/3705/CH8/EX8.3/Ex8_3.sce
@@ -0,0 +1,28 @@
+
+clear//
+
+//Variable Declaration
+b=6 //Width in inches
+h=10 //Depth in inches
+P1=6000 //Force in lb
+P2=3000 //Force in lb
+L=4 //Length in ft
+P=-13400 //Load in lb
+M=6000 //Moment in lb.ft
+y=5 //Depth in inches
+P2=-9800 //Load in lb
+M2=-12000 //Moment in lb.ft
+
+//Calculations
+A=b*h //Area in in^2
+I=b*h**3*12**-1 //Moment of inertia in in^4
+T=(P1*L+P2*L*3)*(6)**-1 //Tension in the cable in lb
+
+//Computation of largest stress
+sigma_B=(P*A**-1)-(M*y*12*I**-1) //Maximum Compressive Stress caused by +ve BM in psi
+sigma_C=(P2*A**-1)-(M2*-y*12*I**-1) //Maximum Compressive Stress caused by -ve BM in psi
+
+sigma_max=max(-sigma_B,-sigma_C) //Maximum Compressive Stress in psi
+
+//Result
+printf("\n The maximum Stress is %0.0f psi",sigma_max)