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