summaryrefslogtreecommitdiff
path: root/3764/CH7/EX7.03/Ex7_03.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3764/CH7/EX7.03/Ex7_03.sce
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '3764/CH7/EX7.03/Ex7_03.sce')
-rw-r--r--3764/CH7/EX7.03/Ex7_03.sce36
1 files changed, 36 insertions, 0 deletions
diff --git a/3764/CH7/EX7.03/Ex7_03.sce b/3764/CH7/EX7.03/Ex7_03.sce
new file mode 100644
index 000000000..2ed73ee68
--- /dev/null
+++ b/3764/CH7/EX7.03/Ex7_03.sce
@@ -0,0 +1,36 @@
+clc
+//
+//
+
+//Variable declaration
+sx=100 // Force(MPa)
+sy=60 // Force(MPa)
+CF=20 // Force(MPa)
+FX=48 // Force(MPa)
+OC=80 // Force(MPa)
+CA=52 // Force(MPa)
+BC=52 // Force(MPa)
+
+// Calculation
+//Construction of Mohr’s Circle
+R=sqrt(20**2+48**2) // Radius of circle(MPa)
+
+
+//Case(a) Principal Planes and Principal Stresses
+phyp=(67.4)/2.0 // Angle(degree)
+Smax=OC+CA // Maximum stress(MPa)
+Smin=OC-BC // Min stress(MPa)
+
+//Case(b) Stress Components on Element Rotated 30
+phy=180-60 // Angle(degree)
+Sxl=80-(52*(cos(52.6*(%pi*2)/(360.0))))
+Syl=80+(52*(cos(52.6*(%pi*2)/(360.0))))
+txlyl=52*(sin(52.6*(%pi*2)/(360.0)))
+
+// Result
+printf("\n Case(a) Principal planes angle = %0.3f MPa' ,phyp)
+printf("\n Case(b) Maximum principal stress = %0.3f MPa' ,Smax)
+printf("\n Case(b) Minimum principal stress = %0.3f MPa' ,Smin)
+printf("\n Case(c) Stress in x direction = %0.3f MPa' ,Sxl)
+printf("\n Case(c) Stress in y direction = %0.3f MPa' ,Syl)
+printf("\n Case(c) Stress in x and y direction = %0.3f MPa' ,txlyl)