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; for i : 0 while i < anzahlbilder do block ([], n1 : anzahlbilder / 2, n2 : anzahlbilder - anzahlbilder / 2, P3 : A, if (i < n1) then ( P1 : A, P2 : A + i / n1 * (B - A), P4 : A ) else ( P1 : B, P2 : B + (i-n1) /(n2-1) * (Mb - B), P4 : B ), bild[i] : 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 */ label ( ["Mb", Mb[1]-0.4, Mb[2]+0.4] ), /* Hier kommt der sich aendernde Teil */ line_width = 3, color = red, points ([P1, P2]), points ([P3, P4]) ) )$ bilder : [bild[0]]$ for i : 1 while i < anzahlbilder do bilder : append (bilder, [bild[i]])$ draw ( bilder, delay = 50, dimensions = [200,200], file_name = "dreieckmitSeitenhalbierendensb", terminal = 'animated_gif );