blob: 1256c353df00f867e8bef67be4898bf46c71659d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
//Chapter 13 Thermodynamics Entropy and Free Energy
clc;
clear;
//Initialisation of Variables
T= 25 //C
F= 1160 //cal
P= 0.1 //atm
P1= 1 //atm
R= 2 //cal/mole K
//CALCULATIONS
F1= F+R*(273+T)*log(P/P1**2)
F2= F+R*(273+T)*log(P1/P**2)
//RESULTS
mprintf("Value of F = %.0f cal",F1)
mprintf("\nValue of F = %.0f cal",F2)
|
