blob: 3483c47fb6ac2da8665f415781f08d684d4ca585 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
//Chapter 13 Thermodynamics Entropy and Free Energy
clc;
clear;
//Initialisation of Variables
T= 25 //C
H= -94.05 //kcal
H1= -26.42 //kcal
S= 51.06 //cal per degree
S1= -47.3 //cal per degree
S2= -24.5 //cal per degree
//CALCULATIONS
dH= (H-H1)*1000
dS= S+S1+S2
F= dH-(273+T)*dS
//RESULTS
mprintf("Value of F = %.0f cal",F)
|
