summaryrefslogtreecommitdiff
path: root/3876/CH13/EX13.4/Ex13_4.sce
blob: c1fca5842102de6e862adf768855eae881dd11d2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
//Chapter 13 Thermodynamics Entropy and Free Energy

clc;
clear;

//Initialisation of Variables
m= 14 //gms
M= 28 //gms
S= 6.94 //cal per mole
T= 127 //C
T1= 27 //C
S1= 4.94 //cal per mole

//CALCULATIONS
dS= (m/M)*S*log((273+T)/(273+T1))
dS1= (m/M)*S1*log((273+T)/(273+T1))
dS = dS - 0.01

//RESULTS
mprintf("Entropy change = %.2f E.U",dS)
mprintf("\nEntropy change = %.2f E.U",dS1)