blob: 58e38dfef6c8f42a45fd9cb6a2d6e8098c639474 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
clc;
clear all;
disp("Heat removal by refrigeration")
La=0.22;//m thickness of brick wall
Lb=0.09;//m thickness of plastic foam
Lc=0.016;//m thickness of wood
thf=25;// degree C temperature of hot fluid
tcf=-3;// degree C temperature of cold fluid
kA=0.99;//W/(m*C)
kB=0.022;//W/(m*C)
kC=0.17;//W/(m*C)
A=85;//m^2
hhf=11;//W/(m^2*C) hot fluid
hcf=30;//W/(m^2*C) cold fluid
U=1/(1/hhf+La/kA+Lb/kB+Lc/kC+1/hcf)
Q= U*A*(thf-tcf);
disp("W/m^2",Q,"rate of heat flow per m^2 = ")
//Q=U*A*(thf-t2)
U=1/(1/hhf+La/kA);
t2=thf-Q/(U*A);
disp ("degree C",t2,"temperature of inside surface of brick t2 = ")
|
