clc
close all
clear
% создать серию изображений
for i = 1:10
    % Создать данные изображения (пример)
    img = rand(100, 100);
    
    % показать изображение
    imshow(img);
    
    % сохранить изображение
    filename = sprintf('frame_%d.png', i);
    imwrite(img, filename);
    
    % пауза на некоторое время
    pause(0.5);
end

% синтез GIF динамические картинки
frames = cell(1,10);
for i = 1:10
    filename = sprintf('frame_%d.png', i);
    frames{i} = imread(filename);
end
imwrite(frames{1}, 'animation.gif', 'DelayTime', 0.5, 'LoopCount', inf);
for i = 2:10
    imwrite(frames{i}, 'animation.gif', 'DelayTime', 0.5, 'WriteMode', 'append');
end

% создать серию изображения (с эффектом размытия)
for i = 1:10
    % Создать данные изображения (пример)
    img = rand(100, 100);
    
    % Добавить спецэффекты размытия
    blurred_img = imgaussfilt(img, 2); % 2 это радиус размытия
    
    % показать изображение
    imshow(blurred_img);
    
    % сохранить изображение
    filename = sprintf('frame_blurred_%d.png', i);
    imwrite(blurred_img, filename);
    
    % пауза на некоторое время
    pause(0.5);
end

% синтез GIF динамические картинки (с эффектом размытия)
frames_blurred = cell(1,10);
for i = 1:10
    filename = sprintf('frame_blurred_%d.png', i);
    frames_blurred{i} = imread(filename);
end
imwrite(frames_blurred{1}, 'animation_blurred.gif', 'DelayTime', 0.5, 'LoopCount', inf);
for i = 2:10
    imwrite(frames_blurred{i}, 'animation_blurred.gif', 'DelayTime', 0.5, 'WriteMode', 'append');
end

% создать новое графическое окно
figure;

% Установить динамический диапазон
x_min = 0;
x_max = 10;
y_min = 0;
y_max = 10;

% Инициализировать коллекцию исторических точек
history_x = [];
history_y = [];

% Установить диапазон оси
xlim([x_min x_max]);
ylim([y_min y_max]);

% Циклическое обновление точек данных
for t = 1:100
    % Генерировать координаты случайных точек
    x = x_min + (x_max - x_min) * rand(1);
    y = y_min + (y_max - y_min) * rand(1);
    
    % Добавить новые точки в коллекцию исторических очков
    history_x = [history_x x];
    history_y = [history_y y];
    
    % Нарисуйте исторические точки
    plot(history_x, history_y, 'o-', 'MarkerSize', 10);
    
    % обновить изображение
    drawnow;
    
    % пауза на короткое время
    pause(0.1);
end