Kolmion keskipisteen laskenta.

 

clear all  % Tyhjennetään kaikki vanhat tiedot.

close all  % Suljetaan kaikki ikkunat, jotka ennestään on auki.

% Pisteiden A,B ja C koordinaatit

A=[0,0]

B=[5,2]

C=[4,4]

% Lasketaan keskipisteen x koordinaatti

keski(1) = (A(1)+B(1)+C(1))/3 

% Lasketaan keskipisteen y koordinaatti

keski(2)= (A(2)+B(2)+C(2))/3

%Tulostetaan viiva pisteiden A, B välille.

plot([A(1),B(1)],[A(2),B(2)], "r",'linewidth',1)

% hold on päälle, niin edellistä kuvaa ei pyyhitä pois, kun uusi piirretään.

hold on

%Tulostetaan viiva pisteiden C, B välille.

plot([C(1),B(1)],[C(2),B(2)], "r",'linewidth',1)

%Tulostetaan viiva pisteiden A, C välille.

plot([A(1),C(1)],[A(2),C(2)], "r",'linewidth',1)

%tulostetaan pallura kolmion keskipisteen kohdalle.

plot ([keski(1)], [keski(2)], "ro")

% hold pistetään pois päältä

hold off

Tulostaa alla näkyvän kuvan ja laskee kolmion keskipisteen.