1 files changed, 23 insertions, 0 deletions
diff --git a/965/CH2/EX2.22/22.sci b/965/CH2/EX2.22/22.sci
new file mode 100644
index 000000000..e33ce024e
--- /dev/null
+++ b/965/CH2/EX2.22/22.sci
@@ -0,0 +1,23 @@
+clc;
+clear all;
+disp("upper surface temperature")
+thf=1020;// temperature of hot gases
+L=1.2*10^(-3);// thickness of blade
+k=12;//W/(m*C)
+A=1;// area
+hhf=2750;//W/(m^2*C) heat transfer coefficients
+hcf=1400;//W/(m^2*C) heat transfer coefficients
+t1=900;// temperature of the upper surface
+Q=hhf*A*(thf-t1);//W/m^2 rate of heat transfer per unit area
+disp ("W/m^2",Q,"rate of heat transfer per unit area = ")
+//Q=k*A*(t1-t2)/L;
+t2=t1-(Q*L/(k*A));
+disp("degree C",t2,"t2 is =")
+//Q=hcf*A*(t2-tcf)
+tcf=t2-(Q/(hcf*A));
+disp("degree C",tcf,"tcf is =")
+
+
+
+
+