1 files changed, 19 insertions, 0 deletions
diff --git a/1752/CH4/EX4.5/exa_4_5.sce b/1752/CH4/EX4.5/exa_4_5.sce
new file mode 100755
index 000000000..b8f768bbb
--- /dev/null
+++ b/1752/CH4/EX4.5/exa_4_5.sce
@@ -0,0 +1,19 @@
+//Exa 4.5
+clc;
+clear;
+close;
+//given data
+//t=450-500*x+100*x^2+150*x^3 at any instant, so
+// dtBYdx= -500+200*x+450*x^2
+
+L=0.5;// thickness of the wall in meter
+k=10;// in W/mK
+// Rate of heating entering in the wall per unit area, at
+x=0;
+//q1= -k*dtBYdx
+q1= -k*(-500+200*x+450*x^2);// in W/m^2
+// Rate of heat going out of the wall per unit area , at
+x=L;
+q2= -k*(-500+200*x+450*x^2);// in W/m^2
+E=q1-q2;// in W/m^2
+disp(E,"Heat energy stored per unit area in W/m^2")