1 files changed, 23 insertions, 0 deletions
diff --git a/3864/CH8/EX8.3/Ex8_3.sce b/3864/CH8/EX8.3/Ex8_3.sce
new file mode 100644
index 000000000..cf692919b
--- /dev/null
+++ b/3864/CH8/EX8.3/Ex8_3.sce
@@ -0,0 +1,23 @@
+clear
+//
+//
+
+//Initilization of Variables
+
+d=750 //mm //Diameter of water supply pipes
+h=50*10**3 //mm //Water head
+sigma=20 //N/mm**2 //Permissible stress
+rho=9810*10**-9 //N/mm**3
+
+//Calculations
+
+//Pressure of water
+P=rho*h //N/mm**2
+
+//Stress
+//sigma=p*d*(2*t)**-1
+//After further simplifying
+t=P*d*(2*sigma)**-1 //mm 
+
+//Result
+printf("\n Thickness of seamless pipe is %0.3f  mm",t)