clc
clear all
disp ('wykreslanie wielokatow'
zakres=input('Podaj zakres osi [xmin xmax ymin ymax]=';
Lb=input('Liczba bokow=';
disp ('wierzcholki 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)
Obwod= sum(dl)
text(zakres(1)+1, zakres(4)-3, strcat('Obwod=', sprintf('%7.2f', Pole)))
nie dziala obwod
clear all
disp ('wykreslanie wielokatow'
zakres=input('Podaj zakres osi [xmin xmax ymin ymax]='
;Lb=input('Liczba bokow='
;disp ('wierzcholki 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)
Obwod= sum(dl)
text(zakres(1)+1, zakres(4)-3, strcat('Obwod=', sprintf('%7.2f', Pole)))
nie dziala obwod