1 files changed, 19 insertions, 0 deletions
diff --git a/965/CH2/EX2.74/74.sci b/965/CH2/EX2.74/74.sci
new file mode 100644
index 000000000..152142e9e
--- /dev/null
+++ b/965/CH2/EX2.74/74.sci
@@ -0,0 +1,19 @@
+clc;
+clear all;
+disp("critical radius of insulation")
+kins=0.3;// W/(m*C)
+kcork=0.038;// W/(m*C)
+
+ro=30/2;//mm
+ho=12;// W/(m^2*K)
+rc=1000*kins/ho;//mm
+disp("mm",rc,"critical radius of insulation =") 
+kins=ro*ho;
+disp("W/(m*C)",kins,"for insulation to be effective kins <=")
+
+L=1;//m
+
+//(log(rci/ro))/0.038+1/(12*rci)=25.25
+rci=36;//mm
+disp("By trial and error rci = 36 mm")
+disp("mm",rci-ro,"Thickness of cork insulation =")