summaryrefslogtreecommitdiff
path: root/1793/CH10/EX10.1
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1793/CH10/EX10.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 '1793/CH10/EX10.1')
-rwxr-xr-x1793/CH10/EX10.1/10q1.sce16
1 files changed, 16 insertions, 0 deletions
diff --git a/1793/CH10/EX10.1/10q1.sce b/1793/CH10/EX10.1/10q1.sce
new file mode 100755
index 000000000..81acaf8c5
--- /dev/null
+++ b/1793/CH10/EX10.1/10q1.sce
@@ -0,0 +1,16 @@
+clc
+//initialisation of variables
+sx= 2000 //lb/ft^3
+sy= 2500 //lb/ft^3
+T= 800 //lb/ft^3
+t= 0.348//radians
+//calculations
+s1= (sx+sy)/2+sqrt(((sy-sx)/2)^2+T^2)
+s2= (sx+sy)/2-sqrt(((sy-sx)/2)^2+T^2)
+sn= (sx+sy)/2+(sy-sx)*cos(2*t)/2-T*sin(2*t)
+Tn= (sy-sx)*sin(2*t)/2+T*cos(2*t)
+//results
+printf ('principle stress s1 = % 2f lb/ft^3 ',s1)
+printf ('principle stress s2 = % 2f lb/ft^3 ',s2)
+printf ('normal stress = % 2f lb/ft^3 ',sn)
+printf ('shear stress = % 2f lb/ft^3 ',Tn)