blob: d9fed16002a546110856c880cf1cf7c43046ec8e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
//example 11.2
//page 420
clc; funcprot(0);
//initialisation of variable
T1=15+273;//temperature
T2=90+273;//temperature
P1=40+101.3;//pressure
P2=360+101.3;//pressure
Cv=0.171;//heat constant
k=1.4;
W=10;
H=W*0.171*log((T2/T1)^1.4*(P2/P1)^-0.4);
disp(H,"Change in Enthalpy(kcal)=");
clear
|
