1286/CH8/EX8.17/8_17.sce


1
2
3
4
5
6
7
8
9
10
11
12
13

clc
//initialisation of variabes
dp=(100-1)*1.01*10^5
L=24500//J
T=600//k
d2=11010
d1=10650
//CALCULATIONS
dv=(1/d2)-(1/d1)
dT=dp*T*dv/L
mp=T+(-dT)
//results
printf(' \n new melting point= % 1f c',mp)