summaryrefslogtreecommitdiff
path: root/2744/CH2/EX2.5/Ex2_5.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /2744/CH2/EX2.5/Ex2_5.sce
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 '2744/CH2/EX2.5/Ex2_5.sce')
-rwxr-xr-x2744/CH2/EX2.5/Ex2_5.sce18
1 files changed, 18 insertions, 0 deletions
diff --git a/2744/CH2/EX2.5/Ex2_5.sce b/2744/CH2/EX2.5/Ex2_5.sce
new file mode 100755
index 000000000..337e6956f
--- /dev/null
+++ b/2744/CH2/EX2.5/Ex2_5.sce
@@ -0,0 +1,18 @@
+clear;
+clc;
+p_res = 6;//tons/in^2
+p_dash = 4;//tons/in^2
+theta = 30*%pi/180;//degrees
+p_n = 4;//tons/in^2
+p = p_res*cos(theta);//tons/in^2
+q = p_res*sin(theta);//tons/in^2
+L = 2*q/(p-p_dash);
+theta = 0.5*atan(2*q/(p-p_dash));
+theta1 = theta*180/%pi;//degrees
+theta2 = theta1+90;//degrees
+p_1 = 0.5*(p+p_dash)+sqrt(q^2 + 0.25*(p-p_dash)^2);//tons/in^2
+p_2 = 0.5*(p+p_dash)-sqrt(q^2 + 0.25*(p-p_dash)^2);//tons/in^2
+p_max = 0.5*(p_1-p_2);//tons/in^2
+printf('Theta1 = %.2f degrees and Theta2 = %.2f degrees',theta1,theta2);
+printf('\n p_1 = %.2f tons/in^2.,tensile\n p_2 = %.2f tons/in^2.,tensile',p_1,p_2);
+printf('\n The maximum shear intensity will be %.2f tons/in^2 across the planes of maximum shear.',p_max);