summaryrefslogtreecommitdiff
path: root/3705/CH8/EX8.3/Ex8_3.sce
blob: 5e4560e43eb0f3a7a2104d7542f2644220e8fe57 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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)