blob: 2c66dc8878ca6af51a0cd3f1ef472504f7ee09a2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
//Chapter-4,Example 18,Page 97
clc();
close();
T1= 300 //temperature in Kelvin
T2= 363 //temperature in Kelvin
P1= 1 //pressure in atm
P2=7 //pressure in atm
Cv=5
R=2 //gas constant
Cp=Cv+R
delta_S= Cp*log(T2/T1)+R*log(P1/P2) //entropy change
printf('the entropy change is %.4f cal/deg ', delta_S)
|
