summaryrefslogtreecommitdiff
path: root/3772/CH15/EX15.1/Ex15_1.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3772/CH15/EX15.1/Ex15_1.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 '3772/CH15/EX15.1/Ex15_1.sce')
-rw-r--r--3772/CH15/EX15.1/Ex15_1.sce30
1 files changed, 30 insertions, 0 deletions
diff --git a/3772/CH15/EX15.1/Ex15_1.sce b/3772/CH15/EX15.1/Ex15_1.sce
new file mode 100644
index 000000000..23f9bf4d7
--- /dev/null
+++ b/3772/CH15/EX15.1/Ex15_1.sce
@@ -0,0 +1,30 @@
+// Problem no 15.1,Page no.351
+
+clc;clear;
+close;
+
+D=0.8 //m //Diameter of Shell
+L=3 //m //Length of shell
+t=0.01 //m //thickness of metal
+E=200*10**9 //Pa
+p=2.5*10**6 //Pa //Internal Pressure
+m=4 //Poisson's ratio
+
+//Calculation
+
+sigma_1=p*D*(2*t)**-1 //N/m**2 //Hoop stress
+sigma_2=p*D*(4*t)**-1 //N/m**2 //Longitudinal stress
+
+e_1=1*E**-1*(sigma_1-sigma_2*m**-1) //Hoop strain
+e_2=1*E**-1*(sigma_2-sigma_1*m**-1) //Hoop strain
+
+d=e_1*D*100 //cm //Increase in Diameter
+l=e_2*L*100 //cm //Increase in Length
+
+dell_v=2*e_1+e_2 //Volumetric strain
+V=dell_v*%pi*4**-1*D**2*L*10**6 //cm**3 //Increase in Volume
+
+//Result
+printf("Change in Diameter is %.3f cm",d)
+printf("\n Change in Length is %.3f cm",l)
+printf("\n Change in Volume is %.2f",V);printf(" cm**3")