blob: 3802726612ba2b5500659f514551c57590852e30 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
clc
clear
//INPUT
l=80;//latent heat of fusion in cal
j=4.2*10^7;//joules constant in ergs/cal
w=-0.092*10^6;//work done in changing phase change in ergs
//CALCULATIONS
q=l*j;//heat added in ergs
du=q-w;//internal energy in ergs
//OUTPUT
mprintf('the change in internal energy is %3.2f ergs',du)
|
