LR5 / LR5_2

% Чтение исходного изображения
I = imread('image.jpg');
I_gray = rgb2gray(I);  % Преобразование изображения в полутоновое

% Определение параметров, которые не исследуются
A = 8;     % Фиксированное количество плиток по горизонтали
C = 0.02;  % Фиксированный ClipLimit

% Вектор для разных значений B
B_values = [2, 4, 8, 16, 32];  % Исследуемые значения B
num_tests = length(B_values);

% Цикл по разным значениям B
for i = 1:num_tests
    B = B_values(i);
    
    % Применение ADAPTHISTEQ с текущим значением B
    J = adapthisteq(I_gray, 'NumTiles', [A B], 'ClipLimit', C);
    
    % Создание нового окна для изображения
    figure;
    imshow(J);
    title(sprintf('Image with B = %d', B));

    % Создание нового окна для гистограммы
    figure;
    imhist(J, 256);
    title(sprintf('Histogram with B = %d', B));
    
    % Сохранение результатов в файлы
    imwrite(J, sprintf('output_B_%d.jpg', B));
end