summaryrefslogtreecommitdiff
path: root/3776/CH8/EX8.3/Ex8_3.sce
diff options
context:
space:
mode:
Diffstat (limited to '3776/CH8/EX8.3/Ex8_3.sce')
-rw-r--r--3776/CH8/EX8.3/Ex8_3.sce16
1 files changed, 16 insertions, 0 deletions
diff --git a/3776/CH8/EX8.3/Ex8_3.sce b/3776/CH8/EX8.3/Ex8_3.sce
new file mode 100644
index 000000000..6172f655f
--- /dev/null
+++ b/3776/CH8/EX8.3/Ex8_3.sce
@@ -0,0 +1,16 @@
+clear
+//Given
+//
+//
+S_x = -2 //MPa _ the noraml stress in x direction
+S_y = 4 //MPa _ the noraml stress in Y direction
+c = (S_x + S_y)/2 //MPa - The centre of the mohr circle
+point_x = -2 //The x coordinate of a point on mohr circle
+point_y = 4 //The y coordinate of a point on mohr circle
+Radius = ((point_x-c)**2 + point_y**2**0.5) // The radius of the mohr circle
+S_1 = Radius +1//MPa The principle stress
+S_2 = -Radius +1 //MPa The principle stress
+S_xy_max = Radius //MPa The maximum shear stress
+printf("\n The principle stresses are %0.3f MPa %0.3f MPa",S_1,S_2)
+printf("\n The maximum shear stress %0.3f MPa",S_xy_max)
+printf("\n The maximum tensile stress which is the result of all stresses must act as shown in the figure")