1 files changed, 23 insertions, 0 deletions
diff --git a/3864/CH8/EX8.5/Ex8_5.sce b/3864/CH8/EX8.5/Ex8_5.sce
new file mode 100644
index 000000000..8a11dcc63
--- /dev/null
+++ b/3864/CH8/EX8.5/Ex8_5.sce
@@ -0,0 +1,23 @@
+clear
+//
+//
+
+//Initilization of Variables
+
+//Boiler Dimensions
+t=16 //mm //Thickness
+p=2 //N/mm**2 //internal pressure
+f=150 //N/mm**2 //Permissible stress
+rho1=0.75 //Longitudinal joints
+rho2=0.45 //circumferential joints
+
+//Calculations
+
+//Equating Bursting force to longitudinal joint strength ,we get
+d1=rho1*2*t*f*p**-1 //mm
+
+//Considering circumferential strength 
+d2=4*rho2*t*f*p**-1 //mm
+
+//Result
+printf("\n Largest diameter of Boiler is %0.2f  mm",d1)