1 files changed, 17 insertions, 0 deletions
diff --git a/587/CH2/EX2.21/example2_21.sce b/587/CH2/EX2.21/example2_21.sce
new file mode 100755
index 000000000..274d65dc9
--- /dev/null
+++ b/587/CH2/EX2.21/example2_21.sce
@@ -0,0 +1,17 @@
+clear;
+clc;
+
+//Example2.21[Heat Conduction through a Wall with k(T)]
+//Given:-
+//k varies with temperature as k=k0(1+bT)
+k0=38;//[W/m]
+b=9.21*(10^(-4));//[k^(-1)]
+h=2,w=0.7,t=0.1;//Height,width and thickness of plates respectively[m]
+T1=600,T2=400;//Temperature maintained on the two sides of the plate[K]
+//Solution:-
+A=h*w;//Surface area of plate[m^2]
+Tavg=(T1+T2)/2;//Average temperature of plate[K]
+kavg=k0*(1+(b*Tavg));//[W/m.K]
+disp("W/m.K",kavg,"The average thermal conductivity of the medium is")
+Q_=kavg*A*(T1-T2)/t;//[W]
+disp("kW",round(Q_/1000),"The rate of heat conduction through the plate is")
+\ No newline at end of file