summaryrefslogtreecommitdiff
path: root/2135/CH2/EX2.1/Exa_2_1.sce
blob: 00094b5b8f64fac1f9016e8def34c03a65709c13 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
//Exa 2.1
clc;
clear;
close;
format('v',7);

//Given Data : 
mc=10;//Kg
Cpc=0.4;//KJ/KgK
Cpw=4.187;//KJ/KgK(Specific heat of water)
tc=90;//degree_centigrade
Vw=0.35;//m^3
tw=30;//degree_centigrade
density_water=1000;//Kg/m^3
mw=Vw*density_water;//Kg
//mc*Cpc*(tc-t)=mw*Cpw*(t-tw)
t=(mw*Cpw*tw+mc*Cpc*tc)/(mw*Cpw+mc*Cpc);//degree_centigrade
disp(t,"Equillibrium temperature in degree_centigrade : ");