多段抽出 方程式解法ソフト
問題の記述
/*エタノールー水ーエチルエーテル 液液多段抽出 "EXTRAC2" */ VAR C(6), L(13), x(13,6) TABLE x=data(L,C) REV C=(1,2,3,4,5,6) L=(0,1,2,3,4,5,6,7,8,9,10,11,12) x=( 0.000, 0.940, 0.060, 0.000, 0.013, 0.987 ).. ( 0.067, 0.871, 0.062, 0.029, 0.021, 0.950 ).. ( 0.125, 0.806, 0.069, 0.067, 0.033, 0.900 ).. ( 0.159, 0.763, 0.078, 0.102, 0.048, 0.850 ).. ( 0.186, 0.726, 0.088, 0.136, 0.064, 0.800 ).. ( 0.204, 0.700, 0.096, 0.168, 0.082, 0.750 ).. ( 0.219, 0.675, 0.106, 0.196, 0.104, 0.700 ).. ( 0.231, 0.650, 0.119, 0.220, 0.130, 0.650 ).. ( 0.242, 0.625, 0.133, 0.241, 0.159, 0.600 ).. ( 0.256, 0.590, 0.154, 0.257, 0.193, 0.550 ).. ( 0.265, 0.552, 0.183, 0.269, 0.231, 0.500 ).. ( 0.274, 0.515, 0.211, 0.278, 0.272, 0.450 ).. ( 0.280, 0.470, 0.250, 0.282, 0.318, 0.400 ) F=0.05 ; xCF=(指定) ; S=0.1 F+E2=E1+R1 H1: F*xCF+E2*xCE2 = R1*xCR1+E1*xCE1 F*(1-xCF)+E2*xAE2 = R1*xAR1+E1*xAE1 xCE1=data(y1,4) ;xAE1=data(y1,5) xCR1=data(y1,1) ;xAR1=data(y1,2) RESET y1 #4 [0,10] by H1 R1+E3=E2+R2 H2: R1*xCR1+E3*xCE3 =R2*xCR2+E2*xCE2 R1*xAR1+E3*xAE3 = R2*xAR2+E2*xAE2 xCE2=data(y2,4) ;xAE2=data(y2,5) xCR2=data(y2,1) ;xAR2=data(y2,2) RESET y2 #2 [0, 5] by H2 R2+S =E3+R3 H3: R2*xCR2 = R3*xCR3+E3*xCE3 R2*xAR2 = R3*xAR3+E3*xAE3 xCE3=data(y3,4) ;xAE3=data(y3,5) xCR3=data(y3,1) ;xAR3=data(y3,2) RESET y3 #1 [0, 3] by H3
計算結果
F = 0.05 xCF = 0.25 S = 0.1 E2 = 0.1094043 E1 = 0.1136212 R1 = 0.04578317 xCE2 = 0.0476441 xCR1 = 0.1518944 xCE1 = 0.09468539 xAE2 = 0.02688761 xAR1 = 0.7719865 xAE1 = 0.04486517 y1 = 2.791011 E3 = 0.1045689 R2 = 0.04094768 xCE3 = 0.02072318 xCR2 = 0.09545679 xAE3 = 0.01871674 xAR2 = 0.8391088 y2 = 1.490634 R3 = 0.03637882 xCR3 = 0.0478777 xAR3 = 0.8906931 y3 = 0.7145925