Forum Eks Grupy…

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)));