diff options
Diffstat (limited to '3776/CH8/EX8.1')
| -rw-r--r-- | 3776/CH8/EX8.1/Ex8_1.sce | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/3776/CH8/EX8.1/Ex8_1.sce b/3776/CH8/EX8.1/Ex8_1.sce new file mode 100644 index 000000000..2510958ab --- /dev/null +++ b/3776/CH8/EX8.1/Ex8_1.sce @@ -0,0 +1,27 @@ +clear +//Given +// +// +o = 22.5 //degrees , The angle of infetisimal wedge +A = 1 //mm2 The area of the element +A_ab = 1*(cos((%pi/180)*(o))) //mm2 - The area corresponds to AB +A_bc = 1*(sin((%pi/180)*(o))) //mm2 - The area corresponds to BC +S_1 = 3 //MN The stresses applying on the element +S_2 = 2 //MN +S_3 = 2 //MN +S_4 = 1 //MN +F_1 = S_1*A_ab // The Forces obtained by multiplying stress by their areas +F_2 = S_2*A_ab +F_3 = S_3*A_bc +F_4 = S_4*A_bc +//sum of F_N = 0 equilibrim in normal direction +N = (F_1-F_3)*(cos((%pi/180)*(o))) + (F_4 - F_2)*(sin((%pi/180)*(o))) + +//sum of F_s = 0 equilibrim in tangential direction + +S = (F_2-F_4)*(cos((%pi/180)*(o))) + (F_1 - F_3)*(sin((%pi/180)*(o))) + +Stress_Normal = N/A //MPa - The stress action in normal direction on AB +Stress_tan = S/A //MPa - The stress action in tangential direction on AB +printf("\n The stress action in normal direction on AB %0.2f MPa",Stress_Normal) +printf("\n The stress action in tangential direction on AB %0.2f MPa",Stress_tan) |