diff options
Diffstat (limited to '3764/CH4/EX4.7/Ex4_7.sce')
| -rw-r--r-- | 3764/CH4/EX4.7/Ex4_7.sce | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/3764/CH4/EX4.7/Ex4_7.sce b/3764/CH4/EX4.7/Ex4_7.sce new file mode 100644 index 000000000..81ad525fe --- /dev/null +++ b/3764/CH4/EX4.7/Ex4_7.sce @@ -0,0 +1,21 @@ +clc +// + +// Variable declaration +y=7 // Distance(in) +s=-3.01 // Stress(ksi) + +// Calculation +//Loading +M=10230 // Couple of moment(kip.in) +//Elastic Unloading +sMl=((10230)*(8))/(1524.0) // Maximum stress(ksi) +//Permanent Radius of Curvature +p=(((7)*(29*(10**6))*((10**-3)))/(3.01)**-2) // Permanent radius of curvature(in) + +p=((p*0.083333)) // Conversion(ft) + + +// Result +printf("\n Case(a) Residual stress = %0.3f ksi' ,sMl) +printf("\n Case(a) Permanent radius of curvature = %0.3f ft' ,p) |