summaryrefslogtreecommitdiff
path: root/3705/CH8/EX8.7/Ex8_7.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3705/CH8/EX8.7/Ex8_7.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 '3705/CH8/EX8.7/Ex8_7.sce')
-rw-r--r--3705/CH8/EX8.7/Ex8_7.sce32
1 files changed, 32 insertions, 0 deletions
diff --git a/3705/CH8/EX8.7/Ex8_7.sce b/3705/CH8/EX8.7/Ex8_7.sce
new file mode 100644
index 000000000..fefb67c2f
--- /dev/null
+++ b/3705/CH8/EX8.7/Ex8_7.sce
@@ -0,0 +1,32 @@
+
+clear//
+
+//Vairable Declaration
+sigma_x=40 //Stress in x in MPa
+sigma_y=20 //Stress in y in MPa
+tau_xy=16 //Shear in xy in MPa
+
+//Calculations
+sigma=(sigma_x+sigma_y)*0.5 //Normal Stress in MPa
+R=sqrt(((sigma_x-sigma_y)*0.5)**2+tau_xy**2) //Resultant Stress in MPa
+
+//Part 1
+sigma1=sigma+R //Principal Stress in MPa
+sigma2=sigma-R //Principal Stress in MPa
+theta=atan(tau_xy*((sigma_x-sigma_y)*0.5)**-1)*180*%pi**-1*0.5 //Orientation in degrees
+
+//Part 2
+tau_max=18.87 //From figure in MPa
+
+//Part 3
+sigma_xdash=sigma+tau_max*cos((100-theta*2)*%pi*180**-1) //Stress in MPa
+sigma_ydash=sigma-tau_max*cos((100-theta*2)*%pi*180**-1) //Stress in MPa
+tau_x_y=tau_max*sin((100-2*theta)*%pi*180**-1) //Shear stress in MPa
+
+//Result
+printf("\n The principal Stresses are")
+printf("\n Sigma1= %0.1f MPa and Sigma2= %0.1f MPa",sigma1,sigma2)
+printf("\n The Principal Plane is at %0.0f degrees",theta)
+printf("\n The Maximum Shear Stress is %0.3f MPa",tau_max)
+printf("\n Sigma_x= %0.0f MPa and Sigma_y= %0.2f MPa",sigma_xdash,sigma_ydash)
+printf("\n Tau_xy= %0.2f MPa",tau_x_y)