summaryrefslogtreecommitdiff
path: root/1301/CH9/EX9.14/ex9_14.sce
blob: c0b9779939ca7056aded2c8830ced9d30ec653a8 (plain)
1
2
3
4
5
6
7
8
9
clc;
m1=2;    //mass of water in kg
c=1;     //specific heat in kcal/kg.celcius
delT=20; //change in temp. in celcius
L=540;   //L in kcal/kg
Q1=m1*c*delT;     //calculating heat in kcal
Q2=500-Q1;        //calculating heat available to convert water at 100 celcius to steam
msteam=Q2/L;  //calculating mass of steam in kg
disp(msteam,"Steam produced in kg = ");  //displaying result.