clc
clear all
disp('wykreslanie wielokatow'
;
zakres=input('podaj zakres osi[xmin xmax ymin ymax]';
Lb=input('liczba bokow';
disp('wierzchlki zaznacz myszka';
close(gcf)
axis(zakres);
hold on
grid
pkt=ginput(Lb);
xp=pkt(:,1)';
yp=pkt(:,2)';
C=uisetcolor([1 1 0],'wybierz myszka kolor'
fill(xp,yp,C);
Pole=polyarea(xp,yp);
text(zakres(1)+1,zakres(4)-1, strcat('Pole=',sprintf('%7.2f',Pole)))
xpr=[xp,xp(1)];
ypr=[yp,yp(1)];
dx=diff(xpr);
dy=diff(ypr);
dl=(dx.^2+dy.^2).^0.5
obw=sum(dl)
text(zakres(1)+1, zakres(4)-3, strcat('obw=', sprintf('%7.2f',obw)));
pozdro dla przemka
clear all
disp('wykreslanie wielokatow'
;zakres=input('podaj zakres osi[xmin xmax ymin ymax]'
;Lb=input('liczba bokow'
;disp('wierzchlki zaznacz myszka'
;close(gcf)
axis(zakres);
hold on
grid
pkt=ginput(Lb);
xp=pkt(:,1)';
yp=pkt(:,2)';
C=uisetcolor([1 1 0],'wybierz myszka kolor'
fill(xp,yp,C);
Pole=polyarea(xp,yp);
text(zakres(1)+1,zakres(4)-1, strcat('Pole=',sprintf('%7.2f',Pole)))
xpr=[xp,xp(1)];
ypr=[yp,yp(1)];
dx=diff(xpr);
dy=diff(ypr);
dl=(dx.^2+dy.^2).^0.5
obw=sum(dl)
text(zakres(1)+1, zakres(4)-3, strcat('obw=', sprintf('%7.2f',obw)));
pozdro dla przemka