3876/CH13/EX13.1/Ex13_1.sce


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

//Chapter 13 Thermodynamics Entropy and Free Energy

clc;
clear;

//Initialisation of Variables
H= 540 //cal per gram
m= 9 //gms
T= 100 //C

//CALCULATIONS
S= H*m/(273+T)

//RESULTS
mprintf("Entropy change = %.2f E.U",S)