informa

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

  PRZEJDŹ NA FORUM