blob: 839c75bee7d62a7afbd4b14610a33c08555dea21 (
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 loss rate")
ti=350;// degree C
to=50;// degree C
k=1.5;// W/(m*C)
x=0.3;// m
l=4.5;//m
b=3.75;//m
h=3;//m
Ai=2*(l*b+l*h+b*h);//m^2
y=4*(l+b+h);// length of edges
Sfce=y;
Sfcc=0.15*x;
Am=Ai+Sfce*.54*x+8*Sfcc*x;
Am
disp("m^2")
Q=k*Am*(ti-to)/x;
disp("W",Q,"rate of heat loss Q =")
|
