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