diff options
Diffstat (limited to '3772/CH6/EX6.3/Ex6_3.sce')
-rw-r--r-- | 3772/CH6/EX6.3/Ex6_3.sce | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/3772/CH6/EX6.3/Ex6_3.sce b/3772/CH6/EX6.3/Ex6_3.sce new file mode 100644 index 000000000..865c03e6b --- /dev/null +++ b/3772/CH6/EX6.3/Ex6_3.sce @@ -0,0 +1,24 @@ +// Problem no 6.3,Page No.156 + +clc;clear; +close; + +L=3 //m //Length of beam +L_1=1.2 //m //Distance from fixed end +d=0.25 //m //Depth of beam +w=15*10**3 //N //U.d.L +W=40*10**3 //N //Point Load +E=2*10*10**4 //N/m**2 +I=13500*10**-4 //M.I + +//Calculations + +y_b=W*L_1**3*(3*E*I)**-1+W*L_1**2*(2*E*I)**-1*(L-L_1)+w*L**4*(8*E*I)**-1 //Deflection at free end + +M=W*L_1+w*L*L*2**-1 //Max Bending moment at the fixed end A //Nm +y=d*2**-1 +sigma_max=M*y*I**-1 //N/cm**2 //Max Bending stress at extreme fibre + +//Result +printf("Deflection at the free end is %.4f cm",y_b) +printf("\n Max stress due to bending is %.2f N/cm^2",sigma_max) |