summaryrefslogtreecommitdiff
path: root/1019/CH6/EX6.7/Example_6_7.sce
blob: ed4c8fe09147d888d2e1733a4c20bce1b1c57b52 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Example 6.7
clear;
clc;

//Given
NA=6.023*(10^23);//avogadros number
W=6;//number of orientations
n=1;//moles present
N=NA;//number of particles
R=8.314;//gas constant in J mol^-1 K^-1

//To determine the residual entropy of a crystal in which the molecules can adapt 6 orientations of equal energy at 0 K
S=R*log(W);//residual entropy in J K^-1 mol^-1
mprintf('the residual entropy of a crystal in which the molecules can adapt 6 orientations of equal energy at 0 K = %f J K^-1 mol^-1',S);
//end