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
CuuDuongThanCong.com https://fb.com/tailieudientucntt
Ứ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}
CuuDuongThanCong.com https://fb.com/tailieudientucntt
Ứ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;
CuuDuongThanCong.com https://fb.com/tailieudientucntt
Ứ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;
CuuDuongThanCong.com https://fb.com/tailieudientucntt
Ứ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}
CuuDuongThanCong.com https://fb.com/tailieudientucntt