Nghiên cứu lựa chọn phương án thích hợp để sản xuất hới quá nhiệt từ các dòng khí thải của phân xưởng RFCC trong nhà máy lọc dầu dung quất

ĐẠI HỌC QUỐC GIA TP HỒ CHÍ MINH TRƯỜNG ĐẠI HỌC BÁCH KHOA - THỚI THANH TUẤN NGHIÊN CỨU LỰA CHỌN PHƯƠNG ÁN THÍCH HP ĐỂ SẢN XUẤT HƠI QUÁ NHIỆT TỪ CÁC DÒNG KHÍ THẢI CỦA PHÂN XƯỞNG RFCC TRONG NHÀ MÁY LỌC DẦU DUNG QUẤT CHUYÊN NGÀNH: CÔNG NGHỆ HÓA HỌC MÃ SỐ NGÀNH: 2.10.00 LUẬN VĂN THẠC SĨ TP HỒ CHÍ MINH, tháng năm 2006 CÔNG TRÌNH ĐÃ ĐƯC HOÀN THÀNH TẠI TRƯỜNG ĐẠI HỌC BÁCH KHOA ĐẠI HỌC QUỐC GIA TP HỒ CHÍ MINH Cán hướng dẫn khoa học : PGS.TSKH LÊ XUÂN HẢI Cán chấm nhận xét : Cán chấm nhận xét : Luận văn Thạc só bảo vệ HỘI ĐỒNG CHẤM BẢO VỆ LUẬN VĂN THẠC SĨ TRƯỜNG ĐẠI HỌC BÁCH KHOA, ngày tháng năm TRƯỜNG ĐẠI HỌC BÁCH KHOA PHÒNG ĐÀO TẠO SĐH -oOo - CỘNG HÒA XÃ HỘI CHỦ NGHĨA VIỆT NAM ĐỘC LẬP – TỰ DO – HẠNH PHÚC -oOo Tp HCM, ngày tháng naêm NHIỆM VỤ LUẬN VĂN THẠC SĨ Họ tên học viên : THỚI THANH TUẤN Ngày, tháng, năm sinh : 30/11/1978 Chuyên ngành : CÔNG NGHỆ HÓA HỌC Phái : Nam Nơi sinh : Quảng Ngãi MSHV : CNHH13-043 I- TÊN ĐỀ TÀI : NGHIÊN CỨU LỰA CHỌN PHƯƠNG ÁN THÍCH HP ĐỂ SẢN XUẤT HƠI QUÁ NHIỆT TỪ CÁC DÒNG KHÍ THẢI CỦA PHÂN XƯỞNG RFCC TRONG NHÀ MÁY LỌC DẦU DUNG QUẤT II- NHIỆM VỤ VÀ NỘI DUNG : - Nghiên cứu phương án sản xuất nhiệt - Lập tiêu chí đánh giá phương án công nghệ - Mô hình hóa trình thiết kế tính toán máy tính - Đánh giá lựa chọn phương án thích hợp - Xác định sơ thông số vận hành III- NGÀY GIAO NHIỆM VỤ: IV- NGÀY HOÀN THÀNH NHIỆM VỤ: V- HỌ VÀ TÊN CÁN BỘ HƯỚNG DẪN : PGS.TSKH LÊ XUÂN HẢI CB HƯỚNG DẪN PGS.TSKH LÊ XUÂN HẢI CHỦ NHIỆM NGÀNH BỘ MÔN QL CHUYÊN NGÀNH PGS.TS MAI HỮU KHIÊM Nội dung đề cương luận văn thạc só Hội Đồng Chuyên Ngành thông qua PHÒNG ĐÀO TẠO SĐH Ngày tháng năm KHOA CÔNG NGHỆ HÓA HỌC LỜI CẢM ƠN Trước hết, xin tỏ lòng biết ơn chân thành PGS TSKH Lê Xuân Hải, người thầy dìu dắt bước đầu nghiên cứu khoa học Nhờ hướng dẫn tận tình động viên, khích lệ thầy lúc khó khăn, hoàn thành luận văn Con xin cám ơn ba mẹ người gia đình hỗ trợ cho tinh thần lẫn vật chất để có điều kiện thực luận văn Xin cám ơn vợ tôi, ThS Bùi Thu Hà, động viên lo chăm sóc nhỏ để có thời gian hoàn thành tốt luận văn Tôi xin cám ơn ThS Trần Hải Ưng - Khoa Công Nghệ Hóa Học, TS Nguyễn Văn Tuyên PGS.TS Trần Thanh Kỳ Trung tâm Nhiệt - Khoa Cơ Khí Trường Đại học Bách Khoa Tp Hồ Chí Minh truyền đạt kiến thức kinh nghiệm q báu thời gian làm luận văn Xin cảm ơn TS Trần Ngọc Hà, ông Vũ Văn Thư anh Vỹ, anh Bản, anh Thức, bạn Linh cán nhân viên Ban Quản lý dự án Nhà máy lọc dầu Dung Quất hỗ trợ nhiều trình thu thập liệu hướng dẫn cho nhiều kiến thức bổ ích Tôi xin gửi lời cám ơn đến anh Lê Anh Tuấn – Trưởng phòng Kỹ Thuật bạn đồng nghiệp Công ty Kurabe Industrial Việt Nam nhiệt tình giúp đỡ hỗ trợ công việc, tạo điều kiện thuận lợi cho thực tốt đề tài Và cuối xin cám ơn thầy cô phòng Đào Tạo Sau Đại Học giúp đỡ vấn đề học vụ thủ tục thời gian học Cao học -i- TÓM TẮT Mục tiêu đề tài vận dụng phương pháp phân tích tổng hợp hệ thống để giải vấn đề xây dựng phương án công nghệ phù hợp, tính toán thiết kế xác định quy trình vận hành tối ưu cho hệ thống sản xuất nhiệt Trên sở đó, luận văn trình bày nội dung sau: − Chương 1: Tổng quan phương pháp bảo toàn tiết kiệm lượng Nhà máy lọc dầu, phương án tiết kiệm lượng trình cracking xúc tác thiết bị sinh từ nhiệt lượng thu hồi, phương pháp phân tích tổng hợp hệ thống − Chương 2: Giới thiệu Nhà máy lọc dầu Dung Quất phân xưởng cracking xúc tác cặn tầng sôi (RFCC) phương pháp nghiên cứu − Chương 3: Nghiên cứu phương án tận dụng nhiệt từ dòng khí thải phân xưởng RFCC − Chương 4: Nghiên cứu đề xuất phương án sản xuất nhiệt − Chương 5: Lập tiêu chí đánh giá, mô trình sản xuất nhiệt, kiểm định mô hình, vận dụng phương pháp thoát ly vùng cấm để giải toán tối ưu đa mục tiêu, từ đánh giá phương án tìm nhiệt độ thải tối ưu − Chương 6: Xem xét trình vận hành phương án đïc chọn nghiên cứu trường hợp sử dụng khí nhiên liệu để đốt phụ trợ − Phần kết luận kiến nghị nghiên cứu tieáp theo - ii - ABSTRACT The aim of this thesis is to use system analysing and synthesizing approaches to choose a suitable alternative and to design, calculate and determine the optimal operation conditions of superheated steam production system The research content is composed of: − The first chapter presents the overview of conservation and economy methods of energy in refineries, energy economy projects in catalytic cracking process The heat recovery steam generator and system analysing and synthesizing method are also studied − The second chapter introduces the overview of Dung Quat Refinery and Residue Fluid Catalytic Cracking (RFCC) process and research methods − The heat recovery methods from the flue gases of RFCC process is covered in Chapter − Chapter introduces some methods for producing superheated steam from the flue gases − In Chapter 5, the evaluating criteria are established The production process of superheated steam is modeled and verified In this part, release forbidden area method is also applied to solve a problem of multi–objective optimization Then, the alternatives are evaluated so that the optimal eleminated temperature is chosen − In Chapter 6, operating case of the chosen alternative is examined and the case of using fuel gas for auxiliary combustion is also studied − Lastly, the conclusion and suggestion about this thesis are presented - iii - MỤC LỤC ĐẶT VẤN ĐỀ Chương TỔNG QUAN 1.1 CÁC PHƯƠNG PHÁP BẢO TOÀN VÀ TIẾT KIỆM NĂNG LƯNG TRONG NHÀ MÁY LỌC DẦU 1.1.1 Tiêu thụ lượng Nhà máy lọc dầu 1.1.2 Các phương pháp để bảo toàn lượng nhà máy 1.1.3 Tiết kiệm lượng trình 13 1.2 CÁC PHƯƠNG ÁN TIẾT KIỆM NĂNG LƯNG TRONG QUÁ TRÌNH CRACKING XÚC TÁC 17 1.2.1 Sử dụng thiết bị 17 1.2.2 Sử dụng thiết bị giãn nở thu hồi lượng 21 1.2.3 Tối ưu hóa thiết bị 23 1.3 THIẾT BỊ SINH HƠI TỪ NHIỆT LƯNG THU HỒI (HRSG) 24 1.3.1 Giới thiệu chung 24 1.3.2 Cấu tạo HRSG 25 1.3.3 Sơ đồ trao đổi nhiệt với HRSG 31 1.4 PHÂN TÍCH VÀ TỔNG HP HỆ THỐNG CÔNG NGHỆ 33 1.4.1 Hệ thống 33 1.4.2 Cấu trúc phân tầng hệ thoáng 33 1.4.3 Phân tích hệ thống tổng hợp hệ thống 34 1.4.4 Moâ hình hóa mô tính toán máy tính 35 Chương GIỚI THIỆU VỀ ĐỐI TƯNG CÔNG NGHỆ VÀ PHƯƠNG PHÁP NGHIÊN CỨU 37 2.1 NHÀ MÁY LỌC DẦU DUNG QUẤT 37 2.1.1 Giới thiệu chung 37 2.1.2 Sô đồ tổng thể nhà máy 38 - iv - 2.1.3 Các phân xưởng công nghệ 40 2.1.4 Các công trình phụ trợ ngoại vi 41 2.2 PHÂN XƯỞNG CRACKING XÚC TÁC CẶN TẦNG SÔI 42 2.2.1 Giới thieäu chung 42 2.2.2 Các dòng khí thải 44 2.2.3 Các số liệu khác 46 2.3 GIỚI THIỆU VỀ CÁC PHƯƠNG PHÁP NGHIÊN CỨU 48 Chương NGHIÊN CỨU LỰA CHỌN PHƯƠNG ÁN TẬN DỤNG NHIỆT 49 3.1 PHƯƠNG ÁN GIA NHIỆT CHO DÒNG LƯU CHẤT KHÁC 49 3.2 PHƯƠNG ÁN SẢN XUẤT HƠI 50 3.3 PHƯƠNG ÁN SẢN XUẤT KẾT HP ĐIỆN VÀ HƠI 52 3.4 NHẬN XÉT CHUNG 55 Chương NGHIÊN CỨU XÁC ĐỊNH PHƯƠNG ÁN SẢN XUẤT HƠI QUÁ NHIEÄT 56 4.1 PHƯƠNG ÁN NHẬP CHUNG 57 4.2 PHƯƠNG ÁN SONG SONG 58 4.3 PHƯƠNG ÁN KẾT HP 59 4.4 NHÓM PHƯƠNG ÁN CÓ QUÁ TRÌNH TRAO ĐỔI NHIỆT NỐI TIẾP 60 4.5 ĐÁNH GIÁ CHUNG 62 Chương TÍNH TOÁN VÀ ĐÁNH GIÁ CÁC PHƯƠNG ÁN 63 5.1 CƠ SỞ TÍNH TOÁN 63 5.1.1 Tính toán trình cháy 63 5.1.2 Tính toán cân nhiệt 69 5.1.3 Tính toán trình truyền nhiệt ([4], [18], [24], [28]) 71 5.2 CÁC TIÊU CHÍ ĐÁNH GIÁ 80 5.2.1 Hiệu suất thu hồi nhiệt 80 -v- 5.2.2 Thời gian hoàn vốn hệ thống 81 5.2.3 Độ linh động hệ thoáng 83 5.3 PHƯƠNG PHÁP TÍNH TOÁN CHO CÁC PHƯƠNG ÁN 84 5.3.1 Phương pháp tính toán 84 5.3.2 Xây dựng lập trình để giải toán máy tính 85 5.3.3 Kiểm tra tương thích mô hình tính toán 88 5.3.4 Tính toán cho phương án thiết kế tiêu biểu 91 5.4 ĐÁNH GIÁ CÁC PHƯƠNG AÙN 95 5.4.1 Thiết lập toán tối ưu 95 5.4.2 Phương pháp thoát ly vùng cấm ([9]) 96 5.4.3 Đánh giá phương án 98 5.4.4 Tìm nhiệt độ thải tối ưu 100 Chương NGHIÊN CỨU QUÁ TRÌNH VẬN HÀNH 102 6.1 KHẢO SÁT CÁC TRƯỜNG HP THAY ÑOÅI 102 6.1.1 Lưu đồ tính toán 102 6.1.2 Thay đổi thành phần khí thải 104 6.1.3 Thay đổi nhiệt độ khí thải đầu vào 105 6.1.4 Thay đổi lượng không khí đốt cháy 106 6.1.5 Thay đổi khối lượng dòng khí thải 108 6.1.6 Thay đổi hệ số piromet 110 6.1.7 Thay đổi chế độ vận hành 112 6.2 TRƯỜNG HP SỬ DỤNG KHÍ NHIÊN LIỆU ĐỂ ĐỐT PHỤ TR 114 6.2.1 Tính toán đánh giá phương án 114 6.2.2 Khảo sát trình vận hành 119 KẾT LUẬN & KIẾN NGHỊ 120 TÀI LIỆU THAM KHẢO 122 PHUÏ LUÏC 125 - vi - CÁC BẢNG SỐ LIỆU Bảng 1.1: So sánh độ phức tạp với tiêu thụ lượng Bảng 1.2: Sự mát nhiệt tự nhiên Baûng 1.3: Năng lượng tiêu thụ theo đơn vị cal/g (áp suất cuối = atm) 14 Bảng 2.1: Các phân xưởng công nghệ nhà máy lọc dầu Dung Quất 41 Bảng 2.2: Tính chất dòng khí thải 45 Bảng 2.3: Tính chất dòng khí thải 45 Bảng 2.4: Thành phần khí thải 45 Bảng 2.5: Lượng nước lò cao áp cung cấp cho hệ thống sản xuất nhiệt 46 Bảng 5.1: Thành phần khí thải sau tuabin khí 89 Baûng 5.2: Kết kiểm tra BRPP1 BRPP2 91 Bảng 5.3: Các thông số thiết kế cho chế độ HHMG 92 Bảng 5.4: Kết tính toán chung cho phương án 93 Bảng 5.5: Kết thiết kế HHMG cho phương án song song COB & WHB 93 Bảng 5.6: Kết thiết kế HHMG cho phương án kết hợp CW 94 Bảng 5.7: Kết tính toán hàm mục tiêu R cho phương án trường hợp đốt phụ trợ vận hành tất chế độ 100 Bảng 6.1: Kết tính toán trình vận hành thay đổi thành phần khí thải chế độ BHMG 104 Baûng 6.2: Kết tính toán trình vận hành thay đổi nhiệt độ đầu vào dòng khí thải chế độ HHMG 106 Bảng 6.3: Kết tính toán trình vận hành thay đổi lượng không khí đốt cháy ứng với chế độ BHMD 107 Bảng 6.4: Kết tính toán trình vận hành thay đổi khối lượng dòng khí thải ứng với chế độ HHMD 109 Baûng 6.5: Kết tính toán trình vận hành thay đổi hệ số piromet ứng với chế độ HHMG 111 Bảng 6.6: Kết tính toán trình vận hành thay đổi chế độ vận hành 113 Bảng 6.7: So sánh khối lượng nhiệt đốt phụ trợ nhu cầu phân xưởng RFCC 114 Bảng 6.8: Kết tính toán hàm mục tiêu R cho phương án trường hợp có đốt phụ trợ vận hành tất chế độ 118 Bảng 6.9: Kết tính toán khối lượng khí nhiên liệu thay đổi chế độ vận hành trường hợp có đốt phụ trợ 119 - 18 - PHUÏ LUÏC D: HƯỚNG DẪN SỬ DỤNG PHẦN MỀM TÍNH TOÁN Yêu cầu cấu hình Để sử dụng phần mềm tính toán,máy tính nên có cấu hình phần mềm sau: − CPU: Pentium III trở lên − HDD: Ổ cứng trống 1GB − RAM: Ít 128 MB − Hệ điều hành WIN 2K / XP − Microsoft Office 2K / XP Hướng dẫn sử dụng − Copy file vào thư mục My Documents − Mở Microsoft Excel − Chọn menu Tool \ Macro \ Security, tab Security Level, đánh dấu chọn Low, xong nhấn OK − Chọn menu File \ Open để mở file tính toán − Tùy theo nhu cầu sử dụng mà thực theo hướng dẫn sau: 2.1 Làm việc với liệu phân xưởng RFCC Nhà máy lọc dầu Dung Quất Ứng với chế độ vận hành BHMG, BHMD, HHMG, HHMD 2.1.1 Quá trình thiết kế - 19 - − Chọn thông số điều khiển cho trình thiết kế Đối với thông số bên trái nhấn dấu tương ứng lựa chọn thông số theo yêu cầu Đối với thông số bên phải nhập trực tiếp từ bàn phím − Trong ô “Mục đích”, nhấn chọn option “Thiết kế” − Chọn thông số thiết kế kết cấu thiết kế trình khác phần “Chọn thông số thiết kế” − Nhấn nút “TÍNH TOÁN”, máy tính tiến hành tính toán Khi hình lên hình ảnh vài thông số “chạy” chương trình tính − Nhấn nút “XEM KẾT QUẢ” để xem kết tính toán chung Sau nhấn tiếp nút “XEM PHƯƠNG ÁN COB & WHB” nút “XEM PHƯƠNG ÁN CW” để xem kết tính toán cho phương án − Nhấn nút “TRỞ LẠI TÍNH TOÁN” để tính toán tiếp cần 2.2.2 Quá trình vận hành Thực tương tự trình thiết kế, nhiên ô Mục đích, nhấn chọn option “Vận hành” 2.2 Làm việc với liệu khác Ứng với chế độ vận hành: OTHER Cũng thực làm việc với liệu phân xưởng RFCC Tuy nhiên, trước hết phải tiến hành nhập liệu dòng khí thải, dòng nước dòng khí nhiên liệu Có thể sử dụng phần mềm IAPWS IF97 kèm theo để tìm thông số nước / nước cần - 20 - PHỤ LỤC E: CODE CỦA CHƯƠNG TRÌNH TÍNH TOÁN Sub LoopRange(C1 As String, C2 As String) Do Range(C1).Value = Round(Range(C2).Value + 0.5) Loop Until Abs(Range(C1).Value - Range(C2).Value) < End Sub Sub Button29_Click() Dim colTo As Integer colTo = Range("CP1").Column Range("CP1:IS9").Clear If Range("A7").Value = Then EvaluateSystem CopyResult colTo Else For i = Range("CM3") To Range("CM2") Step Range("CM4") Cells(Range("A7").Value + 1, Range("G2").Column) = i EvaluateSystem Cells(1, colTo) = i CopyResult colTo colTo = colTo + Next i End If End Sub Sub CopyResult(ByVal colTo As Integer) For r = To Cells(r, colTo) = Cells(r, Range("CN1").Column) Next r End Sub Sub EvaluateSystem() If Range("A5").Value = Then Range("G7").Value = LoopRange "d12", "H12" LoopRange "d13", "H13" LoopRange "d14", "H14" LoopRange "d19", "H19" LoopRange "d20", "H20" LoopRange "d25", "H25" LoopRange "d26", "H26" LoopRange "d27", "H27" - 21 - LoopRange "d28", "H28" LoopRange "c59", "c60" LoopRange "d59", "d60" LoopRange "e59", "e60" LoopRange "f59", "f60" LoopRange "g59", "g60" LoopRange "h59", "h60" LoopRange "i59", "i60" LoopRange "j59", "j60" LoopRange "k59", "k60" LoopRange "c61", "c62" LoopRange "d61", "d62" LoopRange "e61", "e62" LoopRange "f61", "f62" LoopRange "g61", "g62" LoopRange "h61", "h62" LoopRange "i61", "i62" LoopRange "j61", "j62" LoopRange "k61", "k62" LoopRange "d12", "H12" LoopRange "d13", "H13" LoopRange "d14", "H14" LoopRange "d19", "H19" LoopRange "d20", "H20" LoopRange "d25", "H25" LoopRange "d26", "H26" LoopRange "d27", "H27" LoopRange "d28", "H28" LoopRange "c59", "c60" LoopRange "d59", "d60" LoopRange "e59", "e60" LoopRange "f59", "f60" LoopRange "g59", "g60" LoopRange "h59", "h60" LoopRange "i59", "i60" LoopRange "j59", "j60" LoopRange "k59", "k60" LoopRange "c61", "c62" LoopRange "d61", "d62" LoopRange "e61", "e62" LoopRange "f61", "f62" LoopRange "g61", "g62" - 22 - LoopRange "h61", "h62" LoopRange "i61", "i62" LoopRange "j61", "j62" LoopRange "k61", "k62" If Range("D11").Value < 850 And Range("H12").Value > 850 Then If MsgBox("Vi nhiet chay tinh toan > 850 C nen phai chon che dot phu tro", vbExclamation + vbYesNo) = VbMsgBoxResult.vbYes Then End End If Else Range("G7").Value = Do Range("G7").Value = Range("G7").Value + 0.05 LoopRange "d12", "H12" LoopRange "d13", "H13" LoopRange "d14", "H14" LoopRange "d19", "H19" LoopRange "d20", "H20" LoopRange "d25", "H25" LoopRange "d26", "H26" LoopRange "d27", "H27" LoopRange "d28", "H28" LoopRange "c59", "c60" LoopRange "d59", "d60" LoopRange "e59", "e60" LoopRange "f59", "f60" LoopRange "g59", "g60" LoopRange "h59", "h60" LoopRange "i59", "i60" LoopRange "j59", "j60" LoopRange "k59", "k60" LoopRange "c61", "c62" LoopRange "d61", "d62" LoopRange "e61", "e62" LoopRange "f61", "f62" LoopRange "g61", "g62" LoopRange "h61", "h62" LoopRange "i61", "i62" LoopRange "j61", "j62" LoopRange "k61", "k62" LoopRange "d12", "H12" LoopRange "d13", "H13" - 23 - LoopRange "d14", "H14" LoopRange "d19", "H19" LoopRange "d20", "H20" LoopRange "d25", "H25" LoopRange "d26", "H26" LoopRange "d27", "H27" LoopRange "d28", "H28" LoopRange "c59", "c60" LoopRange "d59", "d60" LoopRange "e59", "e60" LoopRange "f59", "f60" LoopRange "g59", "g60" LoopRange "h59", "h60" LoopRange "i59", "i60" LoopRange "j59", "j60" LoopRange "k59", "k60" LoopRange "c61", "c62" LoopRange "d61", "d62" LoopRange "e61", "e62" LoopRange "f61", "f62" LoopRange "g61", "g62" LoopRange "h61", "h62" LoopRange "i61", "i62" LoopRange "j61", "j62" LoopRange "k61", "k62" Loop Until Range("H17").Value >= 100 End If If Range("A6").Value = Then Range("B144").Select Range("AS5").Value = Range("AT5").Value = Range("AU5").Value = Do Range("AU5").Value = Range("AU5").Value + Do Range("AT5").Value = Range("AT5").Value + Do Range("AS5").Value = Range("AS5").Value + Range("C43").Value = Do Range("C43").Value = Range("C43").Value + - 24 - Range("C41").Value = Round(Range("AS3").Value * Range("C39").Value, 0) Do Range("C41").Value = Round(Range("C41").Value + 1, 0) Loop Until Range("C56").Value Range("AS4").Value * Range("C39").Value Loop Until Range("C56").Value Range("AS6").Value Loop Until Range("C56").Value Range("C57").Value Range("D43").Value = Do Range("D41").Value = Range("C41").Value Range("D43").Value = Range("D43").Value + Loop Until Range("D56").Value Range("AT6").Value Loop Until Range("D56").Value Range("D57").Value Range("E43").Value = Do Range("E41").Value = Range("C41").Value Range("E43").Value = Range("E43").Value + Loop Until Range("E56").Value Range("AU6").Value Loop Until Range("E56").Value Range("E57").Value Range("AV5").Value = Range("AW5").Value = Range("AX5").Value = Do Range("AX5").Value = Range("AX5").Value + Do Range("AW5").Value = Range("AW5").Value + Do Range("AV5").Value = Range("AV5").Value + Range("F43").Value = Do Range("F43").Value = Range("F43").Value + Range("F41").Value = Round(Range("AV3").Value * Range("F39").Value, 0) - 25 - Do Range("F41").Value = Round(Range("F41").Value + 1, 0) Loop Until Range("F56").Value Range("AV4").Value * Range("F39").Value Loop Until Range("F56").Value Range("AV6").Value Loop Until Range("F56").Value Range("F57").Value Range("G43").Value = Do Range("G41").Value = Range("F41").Value Range("G43").Value = Range("G43").Value + Loop Until Range("G56").Value Range("AW6").Value Loop Until Range("G56").Value Range("G57").Value Range("H43").Value = Do Range("H41").Value = Range("F41").Value Range("H43").Value = Range("H43").Value + Loop Until Range("H56").Value Range("AX6").Value Loop Until Range("H56").Value Range("H57").Value Range("AY5").Value = Range("AZ5").Value = Range("BA5").Value = Do Range("BA5").Value = Range("BA5").Value + Do Range("AZ5").Value = Range("AZ5").Value + Do Range("AY5").Value = Range("AY5").Value + Range("I43").Value = Do Range("I43").Value = Range("I43").Value + Range("I41").Value = Round(Range("AY3").Value * Range("I39").Value, 0) Do Range("I41").Value = Round(Range("I41").Value + 1, 0) - 26 - Loop Until Range("I56").Value Range("AY4").Value * Range("I39").Value Loop Until Range("I56").Value Range("AY6").Value Loop Until Range("I56").Value Range("I57").Value Range("J43").Value = Do Range("J41").Value = Range("I41").Value Range("J43").Value = Range("J43").Value + Loop Until Range("J56").Value Range("AZ6").Value Loop Until Range("J56").Value Range("J57").Value Range("K43").Value = Do Range("K41").Value = Range("I41").Value Range("K43").Value = Range("K43").Value + Loop Until Range("K56").Value Range("BA6").Value Loop Until Range("K56").Value Range("K57").Value If Range("C56").Value > 10 Or Range("D56").Value > 10 Or Range("E56").Value > 10 Or Range("F56").Value > 10 Or _ Range("G56").Value > 10 Or Range("H56").Value > 10 Or Range("I56").Value > 10 Or Range("J56").Value > 10 Or _ Range("K56").Value > 10 Then _ If MsgBox("Can xem lai qua trinh thiet ke!", vbExclamation + vbYesNo) = VbMsgBoxResult.vbYes Then End Else Range("C41").Value = Range("C34").Value Range("D41").Value = Range("D34").Value Range("E41").Value = Range("E34").Value Range("F41").Value = Range("F34").Value Range("G41").Value = Range("G34").Value Range("H41").Value = Range("H34").Value Range("I41").Value = Range("I34").Value Range("J41").Value = Range("J34").Value Range("K41").Value = Range("K34").Value - 27 - Range("C43").Value = Range("C35").Value Range("D43").Value = Range("D35").Value Range("E43").Value = Range("E35").Value Range("F43").Value = Range("F35").Value Range("G43").Value = Range("G35").Value Range("H43").Value = Range("H35").Value Range("I43").Value = Range("I35").Value Range("J43").Value = Range("J35").Value Range("K43").Value = Range("K35").Value If Range("A1").Value = Or Range("A1").Value = Or Range("A1").Value = Or Range("A1").Value = Then Range("B192").Select Range("BL6").Value = Range("BR4").Value Do Range("BL6").Value = Range("BL6").Value + Range("BL7").Value Range("BL5").Value = Do Range("BL5").Value = Range("BL5").Value + Range("BL4").Value Loop Until Range("CD6").Value < Range("CD7").Value And Range("CD5").Value > Range("CD2").Value Or Range("BL5").Value > * Range("CD3").Value Loop Until Range("CD6").Value < Range("CD7").Value And Range("CD5").Value > Range("CD2").Value Or Range("BL6").Value > * Range("CD4").Value Range("BM6").Value = Range("BS4").Value Do Range("BM6").Value = Range("BM6").Value + Range("BL7").Value Range("BM5").Value = Do Range("BM5").Value = Range("BM5").Value + Range("BL4").Value Loop Until Range("CE6").Value < Range("CE7").Value And Range("CE5").Value > Range("CE2").Value Or Range("BM5").Value > * Range("CE3").Value Loop Until Range("CE6").Value < Range("CE7").Value And Range("CE5").Value > Range("CE2").Value Or Range("BM6").Value > * Range("CE4").Value - 28 - Range("BN6").Value = Range("BT4").Value Do Range("BN6").Value = Range("BN6").Value + Range("BL7").Value Range("BN5").Value = Do Range("BN5").Value = Range("BN5").Value + Range("BL4").Value Loop Until Range("CF6").Value < Range("CF7").Value And Range("CF5").Value > Range("CF2").Value Or Range("BN5").Value > * Range("CF3").Value Loop Until Range("CF6").Value < Range("CF7").Value And Range("CF5").Value > Range("CF2").Value Or Range("BN6").Value > * Range("CF4").Value Range("BO6").Value = Range("BR4").Value Do Range("BO6").Value = Range("BO6").Value + Range("BL7").Value Range("BO5").Value = Do Range("BO5").Value = Range("BO5").Value + Range("BL4").Value Loop Until Range("CG6").Value < Range("CG7").Value And Range("CG5").Value > Range("CG2").Value Or Range("BO5").Value > * Range("CG3").Value Loop Until Range("CG6").Value < Range("CG7").Value And Range("CG5").Value > Range("CG2").Value Or Range("BO6").Value > * Range("CG4").Value Range("BP6").Value = Range("BS4").Value Do Range("BP6").Value = Range("BP6").Value + Range("BL7").Value Range("BP5").Value = Do Range("BP5").Value = Range("BP5").Value + Range("BL4").Value Loop Until Range("CH6").Value < Range("CH7").Value And Range("CH5").Value > Range("CH2").Value Or Range("BP5").Value > * Range("CH3").Value Loop Until Range("CH6").Value < Range("CH7").Value And Range("CH5").Value > Range("CH2").Value Or Range("BP6").Value > * Range("CH4").Value Range("BQ6").Value = Range("BT4").Value - 29 - Do Range("BQ6").Value = Range("BQ6").Value + Range("BL7").Value Range("BQ5").Value = Do Range("BQ5").Value = Range("BQ5").Value + Range("BL4").Value Loop Until Range("CI6").Value < Range("CI7").Value And Range("CI5").Value > Range("CI2").Value Or Range("BQ5").Value > * Range("CI3").Value Loop Until Range("CI6").Value < Range("CI7").Value And Range("CI5").Value > Range("CI2").Value Or Range("BQ6").Value > * Range("CI4").Value Range("BR6").Value = Range("BR4").Value Do Range("BR6").Value = Range("BR6").Value + Range("BL7").Value Range("BR5").Value = Do Range("BR5").Value = Range("BR5").Value + Range("BL4").Value Loop Until Range("CJ6").Value < Range("CJ7").Value And Range("CJ5").Value > Range("CJ2").Value Or Range("BR5").Value > * Range("CJ3").Value Loop Until Range("CJ6").Value < Range("CJ7").Value And Range("CJ5").Value > Range("CJ2").Value Or Range("BR6").Value > * Range("CJ4").Value Range("BS6").Value = Range("BS4").Value Do Range("BS6").Value = Range("BS6").Value + Range("BL7").Value Range("BS5").Value = Do Range("BS5").Value = Range("BS5").Value + Range("BL4").Value Loop Until Range("CK6").Value < Range("CK7").Value And Range("CK5").Value > Range("CK2").Value Or Range("BS5").Value > * Range("CK3").Value Loop Until Range("CK6").Value < Range("CK7").Value And Range("CK5").Value > Range("CK2").Value Or Range("BS6").Value > * Range("CK4").Value Range("BT6").Value = Range("BT4").Value Do - 30 - Range("BT6").Value = Range("BT6").Value + Range("BL7").Value Range("BT5").Value = Do Range("BT5").Value = Range("BT5").Value + Range("BL4").Value Loop Until Range("CL6").Value < Range("CL7").Value And Range("CL5").Value > Range("CL2").Value Or Range("BT5").Value > * Range("CL3").Value Loop Until Range("CL6").Value < Range("CL7").Value And Range("CL5").Value > Range("CL2").Value Or Range("BT6").Value > * Range("CL4").Value If Range("CD6").Value > 10 Or Range("CE6").Value > 10 Or Range("CF6").Value > 10 Or Range("CG6").Value > 10 Or _ Range("CH6").Value > 10 Or Range("CI6").Value > 10 Or Range("CJ6").Value > 10 Or Range("CK6").Value > 10 Or _ Range("CL6").Value > 10 Then If MsgBox("Can xem lai qua trinh van hanh!", vbExclamation + vbYesNo) = VbMsgBoxResult.vbYes Then End End If End If End If If Range("K11").Value >= Range("L14").Value Then Range("K13").Value = Range("M14").Value Else Range("K13").Value = Range("K11").Value Do Range("K13").Value = Range("K13").Value + 0.05 Loop Until Abs(Range("K12").Value - Range("K11").Value) 50 End If If Range("L11").Value >= Range("L14").Value Then Range("L13").Value = Range("M14").Value Else Range("L13").Value = Range("L11").Value Do Range("L13").Value = Range("L13").Value + 0.05 Loop Until Abs(Range("L12").Value - Range("L11").Value) 50 End If - 31 - If Range("M11").Value >= Range("L14").Value Then Range("M13").Value = Range("M14").Value Else Range("M13").Value = Range("M11").Value Do Range("M13").Value = Range("M13").Value + 0.05 Loop Until Abs(Range("M12").Value - Range("M11").Value) 50 End If If Range("N11").Value >= Range("L14").Value Then Range("N13").Value = Range("M14").Value Else Range("N13").Value = Range("N11").Value Do Range("N13").Value = Range("N13").Value + 0.05 Loop Until Abs(Range("N12").Value - Range("N11").Value) 50 End If End Sub TOÙM TẮT LÝ LỊCH TRÍCH NGANG Họ tên học viên : THỚI THANH TUẤN Phái : Nam Ngày, tháng, năm sinh : 30/ 11/ 1978 Nơi sinh : Quảng Ngãi Địa liên lạc : A23/15 Quốc lộ 50, xã Bình Hưng, huyện Bình Chánh, Tp HCM QUÁ TRÌNH ĐÀO TẠO : - Từ 9/1996 đến 5/2001 : học Đại học Đại học Quốc gia TP HCM Trường Đại học Kỹ Thuật, khoa Công nghệ hóa học dầu khí - Từ 9/2002 đến 2005 : học Cao học chuyên ngành Công nghệ Hóa học Đại học Quốc gia TP HCM - Trường Đại học Bách Khoa QUÁ TRÌNH CÔNG TÁC : - Từ 8/2001 đến nay: làm việc Công ty Kurabe Industrial Việt Nam, Khu công nghiệp Việt Nam-Singapore, huyện Thuận An, tỉnh Bình Dương ... : NGHIÊN CỨU LỰA CHỌN PHƯƠNG ÁN THÍCH HP ĐỂ SẢN XUẤT HƠI QUÁ NHIỆT TỪ CÁC DÒNG KHÍ THẢI CỦA PHÂN XƯỞNG RFCC TRONG NHÀ MÁY LỌC DẦU DUNG QUẤT II- NHIỆM VỤ VÀ NỘI DUNG : - Nghiên cứu phương án sản. .. dụng nhiệt từ dòng khí thải phân xưởng RFCC để sản xuất nhiệt đặt cho tận dụng nhiệt nhiều mà đảm bảo thời gian hoàn vốn thấp Vì luận văn ? ?Nghiên cứu lựa chọn phương án thích hợp để sản xuất nhiệt. .. xuất nhiệt từ dòng khí thải phân xưởng RFCC Nhà máy lọc dầu Dung Quất? ?? nghiên cứu để giải vấn đề Mục tiêu luận văn: − Xác định phương án công nghệ cho phép tận dụng nhiệt cách sản xuất nhiệt − Thiết