Welcome to this blog
Advantages of bloggers:Blog content should be as thoughtful and logical as possible for the convenience of readers.
Motto:He who travels a hundred miles is half as good as ninety.
The directory of this article is as follows:
Table of Contents
1 Overview
2 Operation results
3 References
4 Matlab code and literature
1 Overview
literature:
Summary
The purpose of this study was to investigate the performance of R417A, R422A, R422D and R438A refrigerants as alternatives to R22 in commercial refrigeration systems. To this end, the cooling capacity and coefficient of performance (COP) values of all refrigerants used in the experimental device were first calculated. Then, two methods, Pearson correlation similarity analysis (PCSA) and surface temperature-based COP (COPST), are proposed to evaluate the success of each alternative refrigerant and R22 using infrared image analysis, respectively. The COP values obtained by mathematical methods are R22 4.07, R438A 3.88, R417A 3.63, R422D 3.37 and R422A 3.18. Both the COP value and the PCSA value (R438A 0.9425, R417A 0.9343, R422D 0.9167 and R422A 0.9080) show how close R22 refrigerant is to other refrigerants. Likewise, the COPST method showed values of R22 6.8865, R438A 5.9539, R417A 5.3273, R422D 4.9898 and R422A 4.3057, and in the same order as the other two methods, proving its operability in performance testing applications and through infrared images The remote performance analysis was successfully processed. The sequence of experimental results obtained from the PCSA and COPST methods and the consistency with the COP calculation method demonstrate the efficacy of infrared imaging to successfully perform remote performance analysis of refrigeration systems.
Keywords: Ozone depletion potential (ODP) · Global warming potential (GWP) · Infrared image processing · Pearson correlation similarity analysis · Coefficient of performance (COP)
2 Running results
Part of the code:
% Read in a demo image.
originalRGBImage = imread(fullFileName);
% Display the image.
subplot(2, 3, 1);
imshow(originalRGBImage, []);
axis on;
caption = sprintf('Original Pseudocolor Image, %s', baseFileName);
title(caption, 'FontSize', fontSize, 'Interpreter', 'None');
xlabel('Column', 'FontSize', fontSize, 'Interpreter', 'None');
ylabel('Row', 'FontSize', fontSize, 'Interpreter', 'None');
drawnow;
grayImage = min(originalRGBImage, [], 3); % Useful for finding image and color map regions of image.
%================================================== ================================================== ======
% Need to crop out the image and the color bar separately.
% First crop out the image.
imageRow1 = 1;
imageRow2 = 240;
imageCol1 = 1;
imageCol2 = 307;
% Crop off the surrounding clutter to get the RGB image.
rgbImage = originalRGBImage(imageRow1 : imageRow2, imageCol1 : imageCol2, :);
% imcrop(originalRGBImage, [20, 40, 441, 259]);
% Next, crop out the colorbar.
colorBarRow1 = 31;
colorBarRow2 = 180;
colorBarCol1 = 307;
colorBarCol2 = 314;
% Crop off the surrounding clutter to get the colorbar.
colorBarImage = originalRGBImage(colorBarRow1 : colorBarRow2, colorBarCol1 : colorBarCol2, :);
b = colorBarImage(:,:,3);
%================================================== ================================================== ======
% Display the pseudocolored RGB image.
subplot(2, 3, 2);
imshow(rgbImage, []);
axis on;
caption = sprintf('Cropped Pseudocolor Image');
title(caption, 'FontSize', fontSize, 'Interpreter', 'None');
xlabel('Column', 'FontSize', fontSize, 'Interpreter', 'None');
ylabel('Row', 'FontSize', fontSize, 'Interpreter', 'None');
drawnow;
hp = impixelinfo();
% Display the colorbar image.
subplot(2, 3, 3);
imshow(colorBarImage, []);
axis on;
caption = sprintf('Cropped Colorbar Image');
title(caption, 'FontSize', fontSize, 'Interpreter', 'None');
xlabel('Column', 'FontSize', fontSize, 'Interpreter', 'None');
ylabel('Row', 'FontSize', fontSize, 'Interpreter', 'None');
drawnow;
% Set up figure properties:
% Enlarge figure to full screen.
set(gcf, 'Units', 'Normalized', 'OuterPosition', [0 0 1 1]);
% Get rid of tool bar and pulldown menus that are along top of figure.
% set(gcf, 'Toolbar', 'none', 'Menu', 'none');
% Give a name to the title bar.
set(gcf, 'Name', 'Demo by ImageAnalyst', 'NumberTitle', 'Off')
% Read in a demo image.
originalRGBImage = imread(fullFileName);
% Display the image.
subplot(2, 3, 1);
imshow(originalRGBImage, []);
axis on;
caption = sprintf(‘Original Pseudocolor Image, %s’, baseFileName);
title(caption, ‘FontSize’, fontSize, ‘Interpreter’, ‘None’);
xlabel(‘Column’, ‘FontSize’, fontSize, ‘Interpreter’, ‘None’);
ylabel(‘Row’, ‘FontSize’, fontSize, ‘Interpreter’, ‘None’);
drawnow;
grayImage = min(originalRGBImage, [], 3); % Useful for finding image and color map regions of image.
%================================================== ================================================== ======
% Need to crop out the image and the color bar separately.
% First crop out the image.
imageRow1 = 1;
imageRow2 = 240;
imageCol1 = 1;
imageCol2 = 307;
% Crop off the surrounding clutter to get the RGB image.
rgbImage = originalRGBImage(imageRow1 : imageRow2, imageCol1 : imageCol2, :);
% imcrop(originalRGBImage, [20, 40, 441, 259]);
% Next, crop out the colorbar.
colorBarRow1 = 31;
colorBarRow2 = 180;
colorBarCol1 = 307;
colorBarCol2 = 314;
% Crop off the surrounding clutter to get the colorbar.
colorBarImage = originalRGBImage(colorBarRow1 : colorBarRow2, colorBarCol1 : colorBarCol2, :);
b = colorBarImage(:,:,3);
%================================================== ================================================== ======
% Display the pseudocolored RGB image.
subplot(2, 3, 2);
imshow(rgbImage, []);
axis on;
caption = sprintf(‘Cropped Pseudocolor Image’);
title(caption, ‘FontSize’, fontSize, ‘Interpreter’, ‘None’);
xlabel(‘Column’, ‘FontSize’, fontSize, ‘Interpreter’, ‘None’);
ylabel(‘Row’, ‘FontSize’, fontSize, ‘Interpreter’, ‘None’);
drawnow;
hp = impixelinfo();
% Display the colorbar image.
subplot(2, 3, 3);
imshow(colorBarImage, []);
axis on;
caption = sprintf(‘Cropped Colorbar Image’);
title(caption, ‘FontSize’, fontSize, ‘Interpreter’, ‘None’);
xlabel(‘Column’, ‘FontSize’, fontSize, ‘Interpreter’, ‘None’);
ylabel(‘Row’, ‘FontSize’, fontSize, ‘Interpreter’, ‘None’);
drawnow;
% Set up figure properties:
% Enlarge figure to full screen.
set(gcf, ‘Units’, ‘Normalized’, ‘OuterPosition’, [0 0 1 1]);
% Get rid of tool bar and pulldown menus that are along top of figure.
% set(gcf, ‘Toolbar’, ‘none’, ‘Menu’, ‘none’);
% Give a name to the title bar.
set(gcf, ‘Name’, ‘Demo by ImageAnalyst’, ‘NumberTitle’, ‘Off’)
3 References
Some of the content in the article is quoted from the Internet. The source will be indicated or cited as a reference. It is inevitable that there will be some unfinished information. If there is anything inappropriate, please feel free to contact us to delete it.
[1]Katircio?lu, F., Cingiz, Z., ?ay, Y., Gürel, A. E., & Kolip, A. (2021). Performance Assessment of a Refrigeration System Charged with Different Refrigerants Using Infrared Image Processing Techniques. Arabian Journal for Science and Engineering, 46(12), 12009-12028.