summaryrefslogtreecommitdiff
path: root/1073/CH2/EX2.23/2_23.sce
blob: c8dd64665682ae41f04a242fa84745f662d4a593 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
clc;
//Example 2.23
T1=913     //[K]
T=513     //[K]
T2=313      //[K]
//Q=(T1-T)/(x/(k*A))
//Q=(T-T2)/(1/(h*A))
//x=2k/h
//Q=(T1-T2)/(x/(kA)+1/(h*A))
//Therefore,Q=hA/3*(T1-T2)
//With increase in thickness(100%)
//x1=4*k/h
//Q2=(T1-T2)/(x1/k*A+1/(h*A))
//Q2=(h*A)/5)*(T1-T2)
//Now
h=1;    //Assume
A=1;    //Assume for calculation
Q1=(h*A/3)*(T1-T2)
Q2=((h*A)/5)*(T1-T2)
percent=(Q1-Q2)*100/Q1      //Percent reduction in heat loss
printf("\nTherefore,Percentage reduction in heat loss is %d percent",percent);