Etsimme nyt kolmen pisteen painopisteen kirjoittamalla seuraavat rivit syöttökenttään ja painamalla Enter-näppaintä kunkin rivin lopussa. Voit tietysti käyttää myös hiirtä tämän piirroksen tekemiseen työvälinepalkin toimintotiloja käyttäen (katso Toiminnot).
A = (-2, 1)
B = (5, 0)
C = (0, 5)
M_a = Keskipiste[B, C]
M_b = Keskipiste[A, C]
s_a = Suora[A, M_a]
s_b = Suora[B, M_b]
S = Leikkauspiste[s_a, s_b]
Vaihtoehtoisesti voit laskea painopisteen suoraan S1 = (A + B + C) / 3 ja verrata tuloksia komennolla Suhde[S, S1].
Voit siis kokeilla, onko S = S1 totta pisteiden
A, B ja C muillekin paikoille. Valitse siis toiminto Siirrä hiirellä ja siirrä pisteitä.
Muuta aiheeseen liittyvää