summaryrefslogtreecommitdiff
path: root/1898/CH9/EX9.1
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1898/CH9/EX9.1
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1898/CH9/EX9.1')
-rwxr-xr-x1898/CH9/EX9.1/Ex9_1.sce26
1 files changed, 26 insertions, 0 deletions
diff --git a/1898/CH9/EX9.1/Ex9_1.sce b/1898/CH9/EX9.1/Ex9_1.sce
new file mode 100755
index 000000000..f76c3b2ec
--- /dev/null
+++ b/1898/CH9/EX9.1/Ex9_1.sce
@@ -0,0 +1,26 @@
+
+clear all; clc;
+
+disp("Scilab Code Ex 9.1 : ")
+
+//Given:
+tou = 25; //MPa
+sigma1 = 50; //MPa
+sigma2 = 80; //MPa
+phi = 30*(%pi/180);
+
+// Calculations:
+sigma_x1 = (sigma1*cos(phi)*cos(phi))- (tou*cos(phi)*sin(phi)) - (sigma2*sin(phi)*sin(phi))- (tou*sin(phi)*cos(phi));
+tou1 = (sigma1*cos(phi)*sin(phi))+ (tou*cos(phi)*cos(phi)) + (sigma2*sin(phi)*cos(phi))- (tou*sin(phi)*sin(phi));
+sigma_x2 = (tou*cos(phi)*sin(phi))- (sigma2*cos(phi)*cos(phi)) + (tou*sin(phi)*cos(phi))+ (sigma1*sin(phi)*sin(phi));
+tou2 = (tou*cos(phi)*cos(phi))+ (sigma2*cos(phi)*sin(phi)) - (tou*sin(phi)*sin(phi))+ (sigma1*sin(phi)*cos(phi));
+
+//Display:
+
+printf("\n\nThe normal stress component in the x diection is = %1.2f MPa',sigma_x1);
+printf("\n The shear stress component in the x diection is = %1.1f MPa',tou1);
+printf("\n The normal stress component in the y diection is = %1.1f MPa',sigma_x2);
+printf("\n The shear stress component in the y diection is = %1.1f MPa',tou2);
+
+//----------------------------------------------------------------------END--------------------------------------------------------------------------------
+