blob: 00bcd65819c948a85b605994eb40f805c04155e6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
clc
clear
printf("example 6.16 page number 264\n\n")
//to find the percentage extraction of nicotine
x=0.01; //% of nicotine
X0 = x/(1-x);
w=150 //weight of nicotine water solution
A0=w*(1-X0);
B0=250; //kg keroscene
X1 = A0*X0/(A0+B0*0.798);
printf("final concentration of nicotine = %f",X1)
c=A0*(X0-X1);
printf("\n\namount of nicotine removed = %f kg",c)
percentage = (c*100)/(A0*x);
printf("\n\npercentage recovery = %f percent",percentage)
|
