PHƯƠNG PHÁP SỐ
TRONG CÔNG NGHỆ HÓA
HỌC
Mã học phần: CH3454
TS. Nguyễn Đặng Bình Thành
BM:Máy & TBCN Hóa chất
Numerical Methods in Chemical Engineering
Tuần 3
Ứng dụng nội suy trong tính toán số đĩa lý
thuyết và chiều cao tháp chưng luyện
Chương trình
Program chungluyen_1;
uses crt;
type
mX = array [1..50] of real;
var
X,Y:mX;
F,P,W,xF,xP,xW,R:real;
NLT,NLTC,NLTL,n,i,k:integer;
{Các ch ng trình conươ }
Ứng dụng nội suy trong tính toán số đĩa lý
thuyết và chiều cao tháp chưng luyện
Chương trình
Program chungluyen_1;
…
{Các ch ng trình conươ }
Procedure NOSUY(xs:real;VAR ys:real;Y,X:mX);
Begin
k:=0;
Repeat
k:=k+1;
Until xs<x[k];
ys:=y[k-1]+ (y[k]-y[k-1])*(xs-x[k-1])
/(x[k]-x[k-1]);
End;
Ứng dụng nội suy trong tính toán số đĩa lý
thuyết và chiều cao tháp chưng luyện
Chương trình
Program chungluyen_1;
…
{Các ch ng trình conươ }
Function DLVL(xs:real):real;
Begin
DLVL:=R/(R+1)*xs+xP/(R+1);
End;
Function DLVC(xs:real):real;
Begin
DLVC:=(R+F/P)*xs/(R+1)+(1-F/P)/(R+1)*xW;
End;
Ứng dụng nội suy trong tính toán số đĩa lý
thuyết và chiều cao tháp chưng luyện
Chương trình
Program chungluyen_1;
…
{Ch ng trình chính}ươ
BEGIN
clrscr;
{s li u đ u}ố ệ ầ
write (‘Nh p s đi m th c nghi m n = ’);ậ ố ể ự ệ
readln(n);
{Nh p các giá tr th c nghi m}ậ ị ự ệ