help-octave
[Top][All Lists]

## Re: Problems plotting the polygon of n-th complex roots

 From: Tobal Subject: Re: Problems plotting the polygon of n-th complex roots Date: Sat, 2 Nov 2013 11:08:54 -0700 (PDT)

Ok, I put here the final code

clf();
hold on; axis equal;
axis ([-1.5, 1.5,-1.5,1.5], 'square');
grid;
n=11;

for k =1:11
h(k)=0;
end

for k=0:10
x(k+1)=cos(((2*k+1)*pi)/n);
y(k+1)=sin(((2*k+1)*pi)/n);
if(x(k+1)>0 && y(k+1)>0 || x(k+1)>0 && y(k+1)<0)
h(k+1) = drawLabels(x(k+1)+0.1,y(k+1)+0.1,['\omega_'
num2str(k)]);
else
h(k+1) = drawLabels(x(k+1)-0.25,y(k+1)+0.1,['\omega_'
num2str(k)]);
end
end

for k = 8:11
delete(h(k));
end

drawLabels(x(8)-0.25,y(8),'\omega_{7}');
drawLabels(x(9),y(9)-0.1,'\omega_{8}');
drawLabels(x(10),y(10)-0.1,'\omega_{9}');
drawLabels(x(11)+0.1,y(11),'\omega_{10}');

p1 = [1 0];
p2 = [0 1];
p3 = [-1 0];
origin = [0 0];

circle = createCircle(p1, p2,p3);

drawCircle (circle,'r','LineWidth',2);
patch(x,y,'b','EdgeColor','b','Marker','o','MarkerFaceColor','flat','MarkerSize',8,'LineWidth',2,'FaceAlpha',0.15);

for k=0:10
edge = [0 0 x(k+1) y(k+1)];
drawEdge(edge, 'linewidth', 1.15,'color','b');
end

Bye

--
View this message in context:
http://octave.1599824.n4.nabble.com/Problems-plotting-the-polygon-of-n-th-complex-roots-tp4658678p4658745.html
Sent from the Octave - General mailing list archive at Nabble.com.