summaryrefslogtreecommitdiff
path: root/3718/CH3/EX3.13/Ex3_13.sce
blob: 66fcd25d4425ee642292c660cbaeefe9f1b6349c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
//Chapter 3: Thermodynamic and Chemical Equilibrium
//Problem: 13
clc;

//Declaration of Constants
l_v = 101            //in cal /g, Latent headt of vap.
mwt = 78            // molecular weight of benzene

//Declaration of Variable
m = 2
Tb = 80.2          // C, boiling point of benzene

// Solution
Tb = Tb + 273      // K
d_h = l_v * mwt
d_s = d_h / Tb
d_g = d_h - Tb * d_s

mprintf("d_s = %.2f cal / K\n",d_s)
mprintf(" d_g = d_a = %d", d_g)