blob: 78d4bf674be1545dc5a1263698f75d62fb7ad7c7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
clc
clear
//INPUT
l=536;//latent heat of vapourisation in cal/gm
v1=1;//volume of 1 gm of water in cc
v2=1600;//volume of steam in cc
t=373;//boiling point of water in K
p=1;//pressure in cm of hg
d=13.6;//specific gravity of mercury
g=981;//gravitational constant in cm/sec^2s/cal
j=4.2*10^7;//joules constant in erg/cal
//CALCULATIONS
dt=(t*(v2-v1)*d*g)/(l*j);//change in temperature in deg.C
//OUTPUT
mprintf('change in temperature is %3.2f deg.C',dt)
|
