summaryrefslogtreecommitdiff
path: root/2762/CH11/EX11.3.1/11_3_1.sce
blob: 49d52f9907142578626be909bd1ddc16bac6b43a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//Transport Processes and Seperation Process Principles
//Chapter 11
//Example 11.3-1
//Vapour Liquid Seperation Processes
//given data
//85 deg C
Pa1=116.9;
Pb1=46;
alpha1=Pa1/Pb1;
// 105 deg C
Pa2=204.2;
Pb2=86;
alpha2=Pa2/Pb2;
mprintf("alpha at 85 deg C = %f",alpha1);
mprintf(" alpha at 105 deg C = %f",alpha2);
p=((alpha1-alpha2)/alpha2)*100;
mprintf(" percentage variation=%f",p)