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