From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 965/CH2/EX2.25/25.sci | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 965/CH2/EX2.25/25.sci

(limited to '965/CH2/EX2.25/25.sci')

diff --git a/965/CH2/EX2.25/25.sci b/965/CH2/EX2.25/25.sci
new file mode 100644
index 000000000..6e23da513
--- /dev/null
+++ b/965/CH2/EX2.25/25.sci
@@ -0,0 +1,21 @@
+clc;
+clear all;
+disp("heat flux calculation")
+La=0.2;//m thickness of chrome bricks
+Lb=0.1;//m thickness of kaolin bricks
+Lc=0.1;//m thickness of masonary bricks
+kA=1.25;//W/(m*C) 
+kB=0.074;//W/(m*C) 
+kC=0.555;//W/(m*C) 
+hhf=74;//W/(m^2*C) 
+thf=1670;// degree C temperature of hot fluid
+t4=70;// temperature of outer surafce
+q= (thf-t4)/(1/hhf+La/kA+Lb/kB+Lc/kC); 
+disp("W/m^2",q,"rate of heat flow per m^2 = ")
+//q=(thf-t1)/(1/hhf)=(t1-t2)/(La/kA)=(t2-t3)/(Lb/kB)
+t1=thf-q/hhf;
+disp ("degree C",t1,"temperature t1 = ")
+t2=t1-q*La/kA;
+disp ("degree C",t2,"temperature t2 = ")
+t3=t2-q*Lb/kB;
+disp ("degree C",t3,"temperature t3 = ")
-- 
cgit