problem in creating animation plot 2D

Question

jakaria babar 2020-2-12

0
链接

此问题的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/505017-problem-in-creating-animation-plot-2d

编辑： Shivaraj Durairaj 2020-2-12

I am getting huge number of figure.but not the animation plot.What is the problem in my code? Can you please help me?

%% Animation of a graph a point P(x,y) which is variable connected to three fixed point A(6,9),B(20,38),C(49,25).
clc
clear
close all
M=5000;
x=6:.01:49;                   % domain x.
y=9:.01:38;                   % domain y.
for i=1:length(x)
    for j=1:length(y)
        L=sqrt((x(i)-6)^2+(y(j)-9)^2)+sqrt((x(i)-20)^2+(y(j)-38)^2)+sqrt((x(i)-49)^2+(y(j)-25)^2);
        if L<M
            M=L;
            a=x(i);
            b=y(j);
            p = [6 20 49];                % x coordinates of three fixed points A, B, and C.
            q = [9 38 25];                % y coordinates of three fixed points A, B, and C.
            figure('color','white');
            hold on;
            for n = 1:length(p)
                plot([p(n) a],[q(n) b],'color',[0 0 1]);
                myChar = char(64+n);
                text(p(n)+1,q(n),myChar);
            end
            plot(p,q,'o','markerfacecolor','k','markeredgecolor','none', ...
                'markersize',4);
            plot(a,b,'o','markerfacecolor','k','markeredgecolor','none', ...
                'markersize',8);
            text(a+0.5,b+0.75,'P');
            xlabel('x');
            ylabel('y');
            drawnow
            pause = .01;
        end
    end
end

0 个评论
显示 -2更早的评论隐藏 -2更早的评论

请先登录，再进行评论。

请先登录，再回答此问题。

Answer 1

Bhaskar R 2020-2-12

1
链接

此回答的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/505017-problem-in-creating-animation-plot-2d#answer_415150

编辑：Bhaskar R 2020-2-12

在 MATLAB Online 中打开

Put figure out side of the for loops

figure('color','white');

2 个评论
显示无隐藏无

jakaria babar 2020-2-12

Thank you very much.

jakaria babar 2020-2-12

在 MATLAB Online 中打开

Can you tell me please What's wrong in the code below?

clc
clear
close all
M=5000;
x=6:1:49;
y=9:1:38;
for i=1:length(x)
    for j=1:length(y)
        clf
        L=sqrt((x(i)-6)^2+(y(j)-9)^2)+sqrt((x(i)-20)^2+(y(j)-38)^2)+sqrt((x(i)-49)^2+(y(j)-25)^2);
        if L<M
            M=L;
            a=x(i);
            b=y(j);
            p = [6 20 49];
            q = [9 38 25];
            hold on;
            for n = 1:length(p)
                plot([p(n) a],[q(n) b],'color',[0 0 1]);
                myChar = char(64+n);
                text(p(n)+1,q(n),myChar);
            end
            plot(p,q,'o','markerfacecolor','k','markeredgecolor','none', ...
                'markersize',4);
            plot(a,b,'o','markerfacecolor','r','markeredgecolor','none', ...
                'markersize',8);
            text(a+0.5,b+0.75,'P');
            steiner = getframe;
        end
    end
end
mywriter = videowriter('figure');
mywriter.framerate = 20;
open(mywriter);
writevideo(mywriter, steiner)
close(mywriter)
%% command window return following:
Cannot find an exact (case-sensitive) match for 'videowriter'
The closest match is: VideoWriter in F:\Matlab Alx\toolbox\matlab\audiovideo\@VideoWriter\VideoWriter.m
Error in animate_figure (line 32)
mywriter = videowriter('figure');

请先登录，再进行评论。

Answer 2

Shivaraj Durairaj 2020-2-12

1
链接

此回答的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/505017-problem-in-creating-animation-plot-2d#answer_415161

在 MATLAB Online 中打开

You must create the figure window outside the for loops.

Use hold on after every plot function except the last plot function to retain the plots for the current frame of the animation. Use hold off after the last plot function to clear the current frame and add plots to the next frame of the animation.

%% Animation of a graph a point P(x,y) which is variable connected to three fixed point A(6,9),B(20,38),C(49,25).
clc
clear
close all
M=5000;
x=6:.1:49;                   % domain x.
y=9:.1:38;                   % domain y.
figure('color','white');     % Create figure window
for i=1:length(x)
    for j=1:length(y)
        L=sqrt((x(i)-6)^2+(y(j)-9)^2)+sqrt((x(i)-20)^2+(y(j)-38)^2)+sqrt((x(i)-49)^2+(y(j)-25)^2);
        if L<M
            M=L;
            a=x(i);
            b=y(j);
            p = [6 20 49];                % x coordinates of three fixed points A, B, and C.
            q = [9 38 25];                % y coordinates of three fixed points A, B, and C.
            for n = 1:length(p)
                plot([p(n) a],[q(n) b],'color',[0 0 1]);
                hold on                   % hold on
                myChar = char(64+n);
                text(p(n)+1,q(n),myChar);
            end
            plot(p,q,'o','markerfacecolor','k','markeredgecolor','none', ...
                'markersize',4);
            hold on                      % hold on
            plot(a,b,'o','markerfacecolor','k','markeredgecolor','none', ...
                'markersize',8);
            hold off                     % hold off
            text(a+0.5,b+0.75,'P');
            xlabel('x');
            ylabel('y');
            drawnow
            pause = .01;
        end
    end
end

2 个评论
显示无隐藏无

jakaria babar 2020-2-12

编辑：jakaria babar 2020-2-12

在 MATLAB Online 中打开

Thank you so much. What is wrong the code below? Can you tell me please?

clc
clear
close all
M=5000;
x=6:1:49;
y=9:1:38;
for i=1:length(x)
    for j=1:length(y)
        clf
        L=sqrt((x(i)-6)^2+(y(j)-9)^2)+sqrt((x(i)-20)^2+(y(j)-38)^2)+sqrt((x(i)-49)^2+(y(j)-25)^2);
        if L<M
            M=L;
            a=x(i);
            b=y(j);
            p = [6 20 49];
            q = [9 38 25];
            hold on;
            for n = 1:length(p)
                plot([p(n) a],[q(n) b],'color',[0 0 1]);
                myChar = char(64+n);
                text(p(n)+1,q(n),myChar);
            end
            plot(p,q,'o','markerfacecolor','k','markeredgecolor','none', ...
                'markersize',4);
            plot(a,b,'o','markerfacecolor','r','markeredgecolor','none', ...
                'markersize',8);
            text(a+0.5,b+0.75,'P');
            steiner = getframe;
        end
    end
end
mywriter = videowriter('figure');
mywriter.framerate = 20;
open(mywriter);
writevideo(mywriter, steiner)
close(mywriter)

Command window return the following:

Cannot find an exact (case-sensitive) match for 'videowriter'
The closest match is: VideoWriter in F:\Matlab Alx\toolbox\matlab\audiovideo\@VideoWriter\VideoWriter.m
Error in animate_figure (line 32)
mywriter = videowriter('figure');

Shivaraj Durairaj 2020-2-12

编辑：Shivaraj Durairaj 2020-2-12

I assume that you want to create a video file from this animation. You can do that by following the steps in the Create AVI File from Animation example.

请先登录，再进行评论。