summaryrefslogtreecommitdiff
path: root/1571/CH6/EX6.1/Chapter6_Example1.sce
blob: 73902c344767f12140adcfbe04bd2ed812d931ff (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
clc
clear

//INPUT
vl=1;//volume of water in cc
vs=1.0908;//volume of ice in cc
t=273;//temperature in k
p=76*13.6*981;//pressure in dynes/sq.cm
l=80;//latent heat of fusion in cal
j=4.2*10^7;//joules constant in erg/cal

//CALCULATIONS
v=vl-vs;//change in volume
T=(v*t*p)/(j*l);//change in melting point of water

//OUTPUT
mprintf('the change in melting point of water is %3.11f',T)