1 files changed, 24 insertions, 0 deletions
diff --git a/1898/CH8/EX8.1/Ex8_1.sce b/1898/CH8/EX8.1/Ex8_1.sce
new file mode 100755
index 000000000..558879a47
--- /dev/null
+++ b/1898/CH8/EX8.1/Ex8_1.sce
@@ -0,0 +1,24 @@
+clear all; clc;
+
+disp("Scilab Code Ex 8.1 : ")
+
+//Given:
+di = 1.2*1000; //m
+ri = di/2;
+t = 12; //mm
+sigma = 140; //MPa
+
+//Cylindrical Pressure Vessel:
+
+p1 = (t*sigma)/ri; //sigma = pr/t
+
+//Spherical Vessel:
+
+p2 = (2*t*sigma)/(ri); //sigma = pr/2t
+
+//Display:
+
+printf("\n\nThe maximum internal pressure the cylindrical pressure vessel can sustain    = %1.1f N/mm^2',p1);
+printf('\nThe maximum internal pressure a spherical pressure vessel can sustain        = %1.1f N/mm^2',p2);
+
+//----------------------------------------------------------------------END--------------------------------------------------------------------------------