Рассмотрим последовательность точек:
N = 8 * 360; t = (0:9:N) + N / 4;
x = sqrt(t) .* cos(t * pi / 180);
y = sqrt(t) .* sin(t * pi / 180);
Затем визуализируйте путь, получите кадры и сделайте ролик:
f = figure('Position', [300 75 900 600]);
hold on
h_plot1 = plot(x(2:end), y(2:end), 'ob', 'MarkerEdgeColor', 'b', 'MarkerFaceColor', 'b', 'MarkerSize', 5);
h_plot2 = plot(x(1), y(1), 'o-r', 'MarkerEdgeColor', 'b', 'MarkerFaceColor', 'b', 'MarkerSize', 5, 'LineWidth', 3);
x_min = min(x); x_max = max(x); y_min = min(y); y_max = max(y);
x_w = x_max - x_min; y_w = y_max - y_min;
axis([x_min - x_w / 10 x_max + x_w / 10 y_min - y_w / 10 y_max + y_w / 10])
axis equal, axis off
set(f, 'Color', [1 1 .25])
set(gca, 'Color', [1 1 .25])
set(gca,'nextplot','replacechildren');
vid = VideoWriter('myveryheavymovie.avi');
vid.Quality = 100;
vid.FrameRate = 15;
open(vid);
for hh = 1:length(x)-1
hold on
set(h_plot1, 'XData', x((hh + 1):end), 'YData', y((hh + 1):end))
set(h_plot2, 'XData', x(1:(hh + 1)), 'YData', y(1:(hh + 1)))
tmp = plot(x(hh:hh+1), y(hh:hh+1), 'or', 'MarkerSize', 8, 'MarkerFaceColor', 'r');
writeVideo(vid, getframe(f));
delete(tmp)
writeVideo(vid, getframe(f));
end
close(vid);
Фильм 111,840 KB, неоправданно тяжелый - есть ли способ сжать фильм? Изображения представляют собой всего лишь несколько точек и линий: можно ли сжать фильм, скажем, до 1,000 KB?
ИЗМЕНИТЬ следующие ответы от A. Donda, chappjc и horchler
По-видимому, я не могу изменить профиль, и на данный момент я не пробовал стороннее программное обеспечение. Я попытался создать анимацию gif с помощью imwrite:
% Consider a sequence of points:
N = 8 * 360; t = (0:9:N) + N / 4;
x = sqrt(t) .* cos(t * pi / 180);
y = sqrt(t) .* sin(t * pi / 180);
x_min = min(x); x_max = max(x); y_min = min(y); y_max = max(y);
x_w = x_max - x_min; y_w = y_max - y_min;
% Create figure:
f = figure('Position', [300 75 900 600]);
set(f, 'Color', [1 1 .25])
h_plot1 = plot(x(2:end), y(2:end), 'ob', 'MarkerEdgeColor', 'b', 'MarkerFaceColor', 'b', 'MarkerSize', 3);
hold on
h_plot2 = plot(x(1), y(1), 'o-r', 'MarkerEdgeColor', 'b', 'MarkerFaceColor', 'b', 'MarkerSize', 3, 'LineWidth', 3);
axis([x_min - x_w / 10 x_max + x_w / 10 y_min - y_w / 10 y_max + y_w / 10])
axis equal, axis off
set(gca, 'nextplot','replacechildren', 'Visible','off');
% preallocate mov fo gif animation
nFrames = length(x)-1;
frame = getframe(gca);
[frame, map] = rgb2ind(frame.cdata, 256, 'nodither');
map = [map; 1 0 0];
mov = repmat(frame, [1 1 1 2*nFrames]);
% Visualize it, get the frames and save gif animation
for hh = 1:nFrames
set(h_plot1, 'XData', x((hh + 1):end), 'YData', y((hh + 1):end))
set(h_plot2, 'XData', x(1:(hh + 1)), 'YData', y(1:(hh + 1)))
hold on
tmp = plot(x(hh:hh+1), y(hh:hh+1), 'or', 'MarkerSize', 8, 'MarkerEdgeColor', 'r', 'MarkerFaceColor', 'r');
frame = getframe(gca);
mov(:, :, 1, 2*hh-1) = rgb2ind(frame.cdata, map, 'nodither');
delete(tmp)
frame = getframe(gca);
mov(:, :, 1, 2*hh) = rgb2ind(frame.cdata, map, 'nodither');
end
close(gcf)
imwrite(mov, map, 'mynotsoheavygif.gif', 'DelayTime', 0, 'LoopCount', inf)
Файл gif 4,420 KB - это не хорошо и не плохо, но лучше, чем файл avi.
VideoWriterс профилем'MPEG-4'? - person chappjc schedule 04.12.2013Motion JPEG AVIиUncompressed AVI. Работает на Matlab R2012b, на Windows. - person randomatlabuser schedule 04.12.2013