how i do plot a point connecting 5 points and how i name the end point and centre point with letters

how i can draw the graph and name the end points with letters?

[darova]

Did you try plot and text functions?

Answer 1

[Meg Noah]

Here's a solution

% your data
x = [20 25 30 35 45];
y = [40 15 10 50 30];
x0 = 30;
y0 = 30;

figure('color','white');
xlim([20 45]); ylim([10 50]);
hold on;
for ipt = 1:length(x)
    plot([x(ipt) x0],[y(ipt) y0],'color',[0 0 1]);
    myChar = char(64+ipt);
    text(x(ipt)+0.5,y(ipt)+0.75,myChar);
end
plot(x,y,'o','markerfacecolor','k','markeredgecolor','none', ...
    'markersize',4);
plot(x0,y0,'o','markerfacecolor','k','markeredgecolor','none', ...
    'markersize',4);
text(x0+0.5,y0+0.75,'O');
set(gca,'xtick',[20:2:44]);
set(gca,'ytick',[10:10:50]);
set(gca,'XMinorTick','on');
set(gca,'YMinorTick','on');
xlabel('x');
ylabel('y');

[jakaria babar]

thank you. i am searching for a point 'O' for which total length OA+OB+OC+OD+OE minimum. i get the point by the code below

x=input('enter the value of x:');

y=input('enter the value of y:');

xint=x;

yint=y;

u=(x-15)/sqrt((x-15)^2+(y-25)^2)+(x-40)/sqrt((x-40)^2+(y-10)^2)+(x-10)/sqrt((x-20)^2+(y-2)^2);

v=(y-25)/sqrt(( x-15)^2+(y-25)^2)+(y-10)/sqrt((x-40)^2+(y-10)^2)+(y-5)/sqrt((x-20)^2+(y-2)^2);

while sqrt(u^2+v^2)>.001

%x=x-.01*u/sqrt(u^2+v^2);

%y=y-.01*v/sqrt(u^2+v^2);

u=(x-15)/sqrt((x-15)^2+(y-25)^2)+(x-40)/sqrt((x-40)^2+(y-10)^2)+(x-10)/sqrt((x-20)^2+(y-2)^2);

v=(y-25)/sqrt(( x-15)^2+(y-25)^2)+(y-10)/sqrt((x-40)^2+(y-10)^2)+(y-5)/sqrt((x-20)^2+(y-2)^2);

end;

[xint yint]

[x y]

final [x,y]= 31.0612 27.6222

how can i animate above plot

[Meg Noah]

This is how to find the point. What do you mean by 'animate' it? Are you looking for an animated gif output? or mp4?

fun = @(p) sum(sqrt((p(1)-x).^2 + (p(2)-y).^2));
p0 = [x0 y0];
[p] = fminsearch(fun,p0);
disp(['minimized O = [' num2str(p(1)) ',' num2str(p(2))]);

[jakaria babar]

yes . i want to make an animated mp4 for the graph.

thank you