www.pudn.com > 3.rar > draw_initial_figure.m, change:2008-03-06,size:329b


function draw_initial_figure(A,symb) 
 
if symb 
    i=length(A); 
     
    plot(A(:, 1), A(:, 2), 'k.', 'MarkerSize', 25); 
    hold on; 
     
    for i=1:length(A)-1 
         plot([A(i,1) A(i+1,1)],[A(i,2) A(i+1,2)],'-k'); 
         hold on; 
     end 
       plot([A(length(A),1) A(1,1)],[A(length(A),2) A(1,2)],'-k'); 
end