load (draw); anzahlbilder : 14; A : [0,0]; B : [3,1]; C : [4,5]; AB : B-A; AC : C-A; BC : C-B; /* Geraden in denen die Seiten liegen */ ag : B + pag * BC; bg : A + pbg * AC; cg : A + pcg * AB; /* Seitenlaengen */ a : sqrt(BC.BC); b : sqrt(AC.AC); c : sqrt(AB.AB); /* Seitenmittelpunkte */ Ma : B + 0.5 * BC; Mb : A + 0.5 * AC; Mc : A + 0.5 * AB; /* Seitenhalbierende */ sc : C + psc * ( C - Mc ); sa : A + psa * ( A - Ma ); sb : B + psb * ( B - Mb ); S : sa, solve (sa -sc, [psa, psc])[1]; xmax : lmax (map (lambda([x], x[1]), [A, B, C])); xmin : lmin (map (lambda([x], x[1]), [A, B, C])); ymax : lmax (map (lambda([x], x[2]), [A, B, C])); ymin : lmin (map (lambda([x], x[2]), [A, B, C])); bildbreite : lmax ([xmax - xmin, ymax - ymin]); xmax : xmin + bildbreite; ymax : ymin + bildbreite; bild : gr2d ( xaxis = false, xtics = false, yaxis = false, ytics = false, xrange = [xmin - 1, xmax + 1], yrange = [ymin - 1, ymax + 1], point_type = none, points_joined = true, /* Das Dreieck */ points ([A, B, C, A]), label ( ["A", A[1]-0.2, A[2]-0.2], ["B", B[1]+0.4, B[2]-0.4], ["C", C[1], C[2]+0.4] ), /* Seitenhalbierende */ points ([C, Mc]), label ( ["Mc", Mc[1], Mc[2]-0.8] ), line_width = 2, color = red, points ([C, A]), points ([A, Mc]), head_length = 0.5, vector (C, A-C), vector (A, Mc-A) )$ draw ( bild, delay = 50, dimensions = [200,200], file_name = "dreieckmitSeitenhalbierendensc", terminal = png );