summaryrefslogtreecommitdiff
path: root/3776/CH8/EX8.3/Ex8_3.sce
diff options
context:
space:
mode:
authorprashantsinalkar2018-02-03 10:59:42 +0530
committerprashantsinalkar2018-02-03 10:59:42 +0530
commitd1e070fe2d77c8e7f6ba4b0c57b1b42e26349059 (patch)
tree612077a22c8142c0ae754ec11882a4e7d5dc25a4 /3776/CH8/EX8.3/Ex8_3.sce
parentf35ea80659b6a49d1bb2ce1d7d002583f3f40947 (diff)
downloadScilab-TBC-Uploads-d1e070fe2d77c8e7f6ba4b0c57b1b42e26349059.tar.gz
Scilab-TBC-Uploads-d1e070fe2d77c8e7f6ba4b0c57b1b42e26349059.tar.bz2
Scilab-TBC-Uploads-d1e070fe2d77c8e7f6ba4b0c57b1b42e26349059.zip
Modified the code
Diffstat (limited to '3776/CH8/EX8.3/Ex8_3.sce')
-rw-r--r--3776/CH8/EX8.3/Ex8_3.sce11
1 files changed, 5 insertions, 6 deletions
diff --git a/3776/CH8/EX8.3/Ex8_3.sce b/3776/CH8/EX8.3/Ex8_3.sce
index 6172f655f..9bda8dc65 100644
--- a/3776/CH8/EX8.3/Ex8_3.sce
+++ b/3776/CH8/EX8.3/Ex8_3.sce
@@ -1,16 +1,15 @@
clear
-//Given
+//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
+c = (S_x + S_y)/2 //MPa - The centre of the mohr circle
+point_x = 3 //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
+Radius = ((point_x)**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 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")