Phương pháp số trong công nghệ hóa học - Chương 1 - Tuần 3

Mô tả bằng toán học các quá trình và và thiết bị trong công nghệ hóa học. Tính toán thiết kế các quá trình và thiết bị hoạt động trong lĩnh vực kỹ thuật hóa học. Tính toán tối ưu hóa các điều kiện làm việc và kết cấu các thiết bị hóa chất.
Nội dung trích xuất từ tài liệu:
Phương pháp số trong công nghệ hóa học - Chương 1 - Tuần 3 Tuần3 PHƯƠNGPHÁPSỐ TRONGCÔNGNGHỆHÓA HỌC Mãhọcphần:CH3454 TS.NguyễnĐặngBìnhThành BM:Máy&TBCNHóachất NumericalMethodsinChemicalEngineering Ứngdụngnộisuytrongtínhtoánsốđĩalýthuyếtvàchiềucaothápchưngluyện ChươngtrìnhProgram 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}Ứngdụngnộisuytrongtínhtoánsốđĩalýthuyếtvàchiềucaothápchưngluyện ChươngtrìnhProgram 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Ứngdụngnộisuytrongtínhtoánsốđĩalýthuyếtvàchiềucaothápchưngluyện ChươngtrìnhProgram 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;Ứngdụngnộisuytrongtínhtoánsốđĩalýthuyếtvàchiềucaothápchưngluyện ChươngtrìnhProgram 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}Ứngdụngnộisuytrongtínhtoánsốđĩalýthuyếtvàchiềucaothápchưngluyện ChươngtrìnhProgram chungluyen_1;… BEGIN … {Nhập các giá trị thực nghiệm} For i:=1 to n do Begin write (‘X[’,i,‘] = ’);readln(x[i]); End;Ứngdụngnộisuytrongtínhtoánsốđĩalýthuyếtvàchiềucaothápchưngluyện ChươngtrìnhProgram chungluyen_1;… BEGIN … {Nhập các giá trị thực nghiệm} For i:=1 to n do Begin write (‘Y[’,i,‘] = ’);readln(Y[i]); End;Ứngdụngnộisuytrongtínhtoánsốđĩalýthuyếtvàchiềucaothápchưngluyện ChươngtrìnhProgram chungluyen_1;… BEGIN … {Nhập các số liệu yêu cầu} write (‘Nhập F = ’);readln(F); write (‘Nhập xF = ’);readln(xF); write (‘Nhập xP = ’);readln(xP); write (‘Nhập xW = ’);readln(xF); write (‘Nhập R = ’);readln(R);Ứngdụngnộisuytrongtínhtoánsốđĩalýthuyếtvàchiềucaothápchưngluyện Cầncócânbằngchấtchotoàn Chươngtrình tháp:Program chungluyen_1; F=P+W P:=F*(xP-xF)/(xP-xW);… F.xF=P.xP+W.xW BEGIN W:=F-P; … {Tính toán số đĩa lý thuyết đoạn luyện} ys:=xP; NLTL:=0; Repeat NOISUY(ys,xs,X,Y); ys:=DLVL(xs); NLTL:=NLTL+1; Until xs Ứngdụngnộisuytrongtínhtoánsốđĩalýthuyếtvàchiềucaothápchưngluyện ChươngtrìnhProgram chungluyen_1;… BEGIN … {Tính toán số đĩa lý thuyết đoạn chưng} yf:=DLVC(xf); ys:=yf; NLTC:=0; Repeat NOISUY(ys,xs,X,Y); ys:=DLVC(xs); NLTC:=NLTC+1; Until xs Ứngdụngnộisuytrongtínhtoánsốđĩalýthuyếtvàchiềucaothápchưngluyện ChươngtrìnhProgram chungluyen_1;… BEGIN … {Hiển thị kết quả} writeln (‘NLTL = ’,NLTL); writeln (‘NLTC = ’,NLTC); {Xác định số đĩa lý thuyết cho toàn tháp} NLT = NLTL + NLTC; writeln (‘NLT = ’,NLT); readln; END.Ứngdụngnộisuytrongtínhtoánsốđĩalýthuyếtvàchiềucaothápchưngluyện ChươngtrìnhTrongmộtsốchươngtrìnhviệcxácđịnhsốđĩalýthuyếtcầnphảilặpđilặplạinhiềulần.Dođó:Nênxâydựngchươngtrìnhconxácđịnhsốđĩalýthuyết.Ứngdụngnộisuytrongtínhtoánsốđĩalýthuyếtvàchiềucaothápchưngluyện ChươngtrìnhProcedure DiaLT(R:real; var NLT:integer); Begin {Xác định số đĩa lý thuyết đoạn luyện} … {Xác định số đĩa lý thuyết đoạn chưng} … NLT:= NLTL+NLTC; End;Ứngdụngnộisuytrongtínhtoánsốđĩalýthuyếtvàchiềucaothápchưngluyện PhươngphápxácđịnhchỉsốhồilưuthíchhợpPhươngtrìnhđườnglàmviệcđoạnluyện R xPyL = x+ R +1 R +1 Điềugì xảyrakhi R∞ ?Ứngdụngnộisuytrongtínhtoánsốđĩalýthuyếtvàchiềucaothápchưngluyện Phươngphápxácđịnhchỉsốhồilưuthíchhợp VàkhinàothìRmin? xP − y F * Rmin = * y F − xFỨngdụngnộisuytrongtínhtoánsốđĩalýthuyếtvàchiềucaothápchưngluyện Phươngphápxácđịnhchỉsốhồilưuthíchhợp Source:Richardson&Coulson.ChemicalEngineering,vol.2Ứngdụngnộisuytrongtínhtoánsốđĩalýthuyếtvàchiềucaothápchưngluyện Phươngphápxácđịnhchỉsốhồilưuthíchhợp Source:Richardson&Coulson.Chem ...