luận án tiến sĩ nghiên cứu tăng cường làm mát cho cánh phun cao áp của động cơ tuabin khí tàu thủy

BỘ GIÁO DỤC VÀ ĐÀO TẠO BỘ QUỐC PHÒNG HỌC VIỆN KỸ THUẬT QUÂN SỰ VŨ ĐỨC MẠNH NGHIÊN CỨU TĂNG CƯỜNG LÀM MÁT CHO CÁNH PHUN CAO ÁP CỦA ĐỘNG CƠ TUABIN KHÍ TÀU THỦY LUẬN ÁN TIẾN SĨ KỸ THUẬT HÀ NỘI – NĂM 2021 BỘ GIÁO DỤC VÀ ĐÀO TẠO BỘ QUỐC PHÒNG HỌC VIỆN KỸ THUẬT QUÂN SỰ VŨ ĐỨC MẠNH NGHIÊN CỨU TĂNG CƯỜNG LÀM MÁT CHO CÁNH PHUN CAO ÁP CỦA ĐỘNG CƠ TUABIN KHÍ TÀU THỦY Chun ngành: Cơ khí – Động lực Mã số: 9.52.01.16 LUẬN ÁN TIẾN SĨ KỸ THUẬT NGƯỜI HƯỚNG DẪN KHOA HỌC: PGS.TS Nguyễn Trung Kiên GS.TS Đào Trọng Thắng HÀ NỘI – NĂM 2021 i LỜI CAM ĐOAN Tôi xin cam đoan luận án công trình nghiên cứu của riêng tôi, bản thân thực hiện Các số liệu, kết quả nêu luận án hoàn toàn trung thực chưa công bố công trình khác Tác giả luận án VŨ ĐỨC MẠNH ii LỜI CẢM ƠN Lời đầu tiên, xin gửi lời cảm ơn chân thành tới Ban Giám đốc Học viện Kỹ thuật Quân sự, Phòng Sau Đại học, Khoa Động lực, Bộ môn Động cho phép thực hiện luận án tại Học viện Kỹ thuật Quân Tôi xin chân thành cảm ơn PGS.TS Nguyễn Trung Kiên GS.TS Đào Trọng Thắng hướng dẫn hết sức chu đáo tận tình để có thể thực hiện hoàn thành luận án cách tốt Tôi xin bày tỏ lòng biết ơn sâu sắc đến thầy thuộc Bộ môn Động cơ, Khoa Động lực, Học viện KTQS chuyên gia lĩnh vực Cơ khí - Động lực ngồi Học viện đóng góp nhiều ý kiến quý báu cho Nghiên cứu sinh suốt trình thực hiện Luận án Tôi cũng xin chân thành cảm ơn cán bộ, giáo viên, nhân viên Phòng thí nghiệm Nhiệt/Bộ mơn Nhiệt Thủy Khí, Phòng thí nghiệm Động lực/Khoa Động lực hỗ trợ về trang thiết bị, nhân lực, tạo điều kiện để tơi hồn thành q trình nghiên cứu thực nghiệm Cuối cùng xin chân thành cảm ơn gia đình, bạn đồng nghiệp, bạn be những người quan tâm, động viên, giúp đỡ suốt thời gian nghiên cứu thực hiện công trình khoa học Nghiên cứu sinh Vũ Đức Mạnh iii MỤC LỤC Trang LỜI CAM ĐOAN i LỜI CẢM ƠN ii MỤC LỤC iii DANH MỤC CÁC KÝ HIỆU VÀ CHỮ VIẾT TẮT v DANH MỤC CÁC BẢNG BIỂU ix DANH MỤC CÁC HÌNH VẼ, ĐỜ THI x MỞ ĐẦU TỔNG QUAN VỀ VẤN ĐỀ NGHIÊN CỨU 1.1 Đặc điểm của động tuabin khí tàu thủy cần thiết tăng cường làm mát cánh phun tuabin cao áp 1.2 Các biện pháp tăng cường làm mát cho cánh tuabin hiệu ứng tăng cường hệ số trao đổi nhiệt màng phân phối 11 1.3 Các phương pháp nghiên cứu 20 1.4 Các công trình nghiên cứu liên quan đặt vấn đề nghiên cứu 25 1.5 Kết luận Chương 34 CƠ SỞ LÝ THUYẾT TRONG BÀI TOÁN TRAO ĐỔI NHIỆT CHO CÁNH PHUN TUABIN 35 2.1 Mô hình trao đổi nhiệt cho cánh phun tuabin lựa chọn phần mềm mô phỏng 35 2.2 Lý thuyết dòng chảy trao đổi nhiệt phần mềm ANSYS-CFX 37 2.3 Lý thút tính tốn điều kiện biên cho dòng khí chảy qua mạng cánh phun tuabin cao áp 45 2.4 Lý thuyết đồng dạng toán trao đổi nhiệt 59 2.5 Kết luận Chương 62 XÂY DỰNG MƠ HÌNH TRAO ĐỔI NHIỆT CHO CÁNH PHUN TUABIN CAO ÁP ĐỘNG CƠ DR76 63 3.1 Các mô hình trao đổi nhiệt 63 3.2 Xây dựng mô hình trao đổi nhiệt cho cánh phun tuabin cao áp động DR76 ANSYS 64 3.3 Xây dựng mô hình tính tốn hệ số trao đổi nhiệt cho kênh dẫn khơng khí phía lưng cánh mơ hình đồng dạng 77 iv 3.4 Kết luận Chương 91 GIẢI PHÁP TĂNG CƯỜNG LÀM MÁT CÁNH PHUN TUABIN CAO ÁP ĐỘNG CƠ DR76 92 4.1 Khảo sát phân bố nhiệt độ ứng suất nhiệt cánh phun tuabin cao áp động DR76 phương pháp mô phỏng 93 4.2 Nghiên cứu lựa chọn thông số hình học hợp lý mô hình đồng dạng 102 4.3 Nghiên cứu lựa chọn phương án thay đổi kết cấu màng phân phối cho cánh phun tuabin cao áp động DR76 109 4.4 Đánh giá hiệu quả tăng cường làm mát cánh phun tuabin cao áp động DR76 của phương án màng phân phối phương pháp mô phỏng 113 4.5 Kết luận Chương 121 KẾT LUẬN VÀ HƯỚNG PHÁT TRIỂN 123 DANH MỤC CÁC CÔNG TRÌNH ĐÃ CƠNG BỐ CỦA TÁC GIẢ LIÊN QUAN ĐẾN LUẬN ÁN TIẾN SĨ 125 TÀI LIỆU THAM KHẢO 126 PHỤ LỤC 140 v DANH MỤC CÁC KÝ HIỆU VÀ CHỮ VIẾT TẮT Chữ viết tắt: Viết tắt CFD CC COM CPCA CT DES DC ĐCTBK DNS EXP FVM FEM FDM HC HT IR camera LC LES LNS LT MILES PDNS PT RANS SGS TLC TN vi TOIRT URANS VLES Ký hiệu: Ký hiệu a a 0, a c0, c1, c2, c3 C p , Cv D Dl E Eu f F Fo GA Gc gc ge Gf gf Gg Gr h H H/D int k 13 Với hệ số a b xác định phương trình sau [37]: (PL 3.5) a=− Ở ta thấy thời gian trễ tdelay phụ thuộc vào phần cứng của đen (τ) độ dài chu kỳ (P) Do khó xác định số τ nên để xác định thời gian tdelay cần tiến hành thực nghiệm đo đạc độ trễ pha loại, mặt bị cách nhiệt hoàn toàn (h=0) Khi h=0 thì ψ=0, đó theo phương trình (3.8) góc trễ lý thuyết không có độ trễ đen φ t_delay=0 tính theo phương trình sau: tanϕ Ta đo giá trị trễ pha thực Δφdelay, tức là: (PL 3.6)  c1 c3  z =δ tổng của trễ phaϕ ∆ϕ (PL 3.7) Trong trường hợp này, tác giả sử dụng phương pháp TOIRT, xác định thời gian trễ của đen halogen 500W tdelay=0,205 s, giá trị tương đối phù hợp với kết quả công bố công trình [37], [87], [88]  2ξ  +  2ξγ c  + c − tan ϕ Trong đó = a δλω (PL 3.8) 14 PHỤ LỤC CODE XỬ LÝ DỮ LIỆU THỰC NGHIỆM TRONG PHẦN MỀM MATLAB Đọc xử lý số liệu từ ảnh kỹ thuật số 10 11 12 13 14 15 %% Clear Workplace close all; clear all; clc; %% Chọn kích thước khung ảnh xmax= 170; %số lượng pixel theo trục x ymax= 231; % số lượng pixel theo trục y imax=810; % số lượng frame %% Vòng lặp đọ c ảnh for i=1:imax; % Khai báo tên ảnh s1='TN ('; s2=')'; s3='.jpg'; name=strcat(s1,int2str(i),s2,s3); 16 J = imread(name); %Đọc ảnh 17 J=imcrop(J,[458 843 xmax-1 ymax-1]);%Cắt ảnh theo kích thước định sẵn 18 J = rgb2gray(J); %Chuyển sang dạng Grayscale 19 A(:,:,i)=J(:,:); %Lưu ma trận cường độ sáng ảnh 20 end 21 %% Convert sang ảnh gốc camera nhiệt 22 A = double(A); 23 A=0.8549*A+0.3054; 24 name='IRDataFileName' 25 save 'A' name A; 26 for i=1:imax; 27 T_max=53; 28 T_min= 37; 29 int_min=17.5; 30 int_max=230; 31 T_gap=(T_max-T_min)/(int _max-int_min); 32 T0=T_min-T_gap*int_min; 33 % Convert sang liệu nhiệt độ 34 m(:,:,i)=T0+T_gap*A(:,:,i); %Hàm tuyến tính từ cường độ sáng thành nhiệt độ 35 end 36 m=1.2455*m-10.963; %Hàm calip nhiệt độ 37 %% Lưu liệu nhiệt độ 38 name='IRDataFileName' 39 save 'm' name m ; Bù trôi liệu 40 41 42 43 %% Clear Workplace close all; clear all; clc; 44 45 46 47 48 49 load('m.mat'); [xmax, ymax, imax] = size(m); p=30; %Độ dài chu kỳ tính theo s dt = 1/9; %Bước ảnh tdelay=0.205; %Độ trễ đèn halogen n = floor(imax*dt/p); %Số lượng chu kỳ 15 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 imax =n*p/dt i = 1:imax; %Số thứ tự ảnh drift = 1; LDC = 1; %Bù trơi nhiệt độ trung bình while drift^2 > 5*10^(-4) TmeanP = zeros(xmax,ymax,n); for pn = 1:n %độ rộng chu kỳ ip = floor((pn- 1)*p/dt+1:pn*p/dt); %Số thứ tự ảnh chu kỳ thứ n for x = 1:xmax for y = 1:ymax TmeanP(x,y,pn) = sum(squeeze(m(x,y,ip)))/p*dt; %Nhiệt độ trung bình chu kỳ end end end Tmean = sum(TmeanP,3)/n; %Nhiệt độ trung bình chung drift = (mean(mean(TmeanP(:,:,n)))-mean(mean(TmeanP(:,:,1))))/n; %Độ bù trung bình chu kỳ %Tuyến tính bù trôi if LDC >= Tdrift = single(zeros(xmax,ymax,imax)); for pn = 1:n for ip = 1:round(p/dt) %Số thứ tự ảnh chu kỳ thứ n if (pn == 1) Tdrift(:,:,ip) = ((TmeanP(:,:,pn+1) - TmeanP(:,:,pn)))*((ip1)/p*dt)+TmeanP(:,:,pn)-Tmean; elseif (pn==n) Tdrift(:,:,ip+(n-1)*round(p/dt)) = ((TmeanP(:,:,pn)-TmeanP(:,:,pn1)))*((ip-1)/p*dt)+TmeanP(:,:,pn)-Tmean; else Tdrift(:,:,ip+(pn-1)*round(p/dt)) = ((TmeanP(:,:,pn+1)TmeanP(:,:,pn-1))/2)*((ip-1)/p*dt)+TmeanP(:,:,pn)-Tmean; end; end end m = m - Tdrift; if LDC == Tdrifttotal = squeeze(Tdrift(:,:,imax)-Tdrift(:,:,1)); end; LDC = LDC + 1; end; if LDC == break ; end; end; clear TmeanP Tdrift; m = m - min(min(min(m))); % Chia tỷ lệ liệu cách loại bỏ phần không đổi mmean(i) =squeeze(mean(mean(m(:,:,i)))); Đồng thời gian cực trị liệu 94 95 96 97 98 99 for lrange = 1:2 maxphase(1:n) = 0; minphase(1:n) = 0; for pn = 1:n ip = floor((pn-1)*p/dt+1:pn*p/dt-floor(pn/n)); warning(''); 16 100 maxindices(pn) =find(diff(mmean(ip))== min(diff(mmean(ip))))+round((pn-1)*p/dt-lrange+1); 101 102 103 %Tìm số thứ tự ảnh có nhiệt độ đạt cực tiểu mỗ i chu kỳ if maxindices(pn)-6 > && maxindices(pn)+3 && minindices(pn)+3 minindices(pn) 135 minphase(pn) = 2*pi/p*((minindex(pn)-1)*dt); 136 end 137 if minphase(pn) > pi 138 minphase(pn) = minphase(pn) - 2*pi; 139 140 141 142 143 end end end end nullphase = meansqwt(nonzeros([maxphase minphase])); 17 144 145 %Lấy giá trị trung bình có trọng số từ tất giá trị sps_quality = [std(nonzeros([maxphase minphase]))/2/pi*p; numel(nonzeros([maxphase minphase]))]; 146 if sps_quality(1)/p > 0.01 warning('Phase Sync Error >1%!'); end; 147 if (sps_quality(2)/n >= && sps_quality(1)/dt < 0.333) break; end; 148 end 149 nullphase=0; Phân tích Fourier tìm φ 150 151 152 153 154 155 156 157 158 159 160 a = b = t = for zeros(xmax,ymax); %hệ số fourier thứ zeros(xmax,ymax); % hệ số fourier thứ hai (i-1).*dt; x=1:xmax for y=1:ymax a(x,y)= 2*sum(squeeze(m(x,y,i))'.*cos(2*pi/p.*t))/imax; b(x,y) = 2*sum(squeeze(m(x,y,i))'.*sin(2*pi/p.*t))/imax; end end amp = sqrt(a.^2+b.^2); phi = min(max(atan2(a,b)+nullphase+tdelay/p*2*pi, -pi/2),0); %độ trễ pha nằm dải -pi/2 < phi = 167 subplot(4,1,4), imagesc(Tdrifttotal), colorbar, title('Drift'); 168 end 169 set(gcf,'Position',[200,50,600,850]); 170 evalareax=(1+0:xmax-0); 171 evalareay=(1+0:ymax-0); 172 phi_full = phi; 173 phi = phi(evalareax,evalareay); 174 phi_ave = mean(mean(phi)); 175 stdev = mean(std(phi)); 176 save 'phi' name phi phi_full p; 177 name='IRDataFileName' 178 phi_result = [phi_ave; stdev] Giải phương trình để tìm hệ số trao đổi nhiệt 179 180 181 182 183 184 185 186 187 188 %% Clear Workplace close all; clear all; clc; %% Tính tốn hệ s ố trao đổi nhiệt load('phi.mat'); phi=-phi; [xmax, ymax] = size(phi); d=0.001; %Độ dày tính theo m w=2*pi/p; 189 190 191 192 193 % Thông số vật lý vật liệu dens=7810; % Khối lượng riêng, kg/m^3 cp=500; % Nhiệt dung riêng, J/kg.K k=15; % Hệ số dẫn nhiệt, W/mK a=k/(dens*cp); % Độ khuếch tán nhiệt, m^2/s 18 194 xi=d*sqrt(w/(2*a)); % Độ dày không thứ nguyên tấm, dải xi