TeXgraph# {version 1.95-beta-11} Cmd [Fenetre(-5+5.5*i,5-1.5*i,1.5+1.5*i), Marges(0,0,0,0), Border(0)]; [OriginalCoord(1),IdMatrix()]; [theta:=0.5236, phi:=1.0472, IdMatrix3D(), ModelView(ortho)]; [GrayScale(0), ComptGraph:=14]; Var A = 0; B = 4; C = 5*exp(2*i*pi/3); pos1 = -1000; lambda = 17; mu = 21; pos2 = -1000; alpha = 15; beta = 9; gamma = 9; tau = 31; pos3 = -1000; clr = 255; instrumentsDessinver = 0.2; numA = 1; numB = 1; numC = 1; numD = 1; numE = 1; Include "instrumentsDessin.mac"; "MacrosAnim.mac"; "Animation.mac"; Mac MakeFrame = [{code pour dessiner la frame n° %1} if %1>1 And %1<20 then pos1:=A, Inc(lambda,1), ReCalc(segAB) elif %1>=20 And %1<42 then pos1:=-1000, pos2:=C, Inc(mu,1), ReCalc(segAB,segAC), elif %1>=42 And %1<45 then pos2:=-1000, ReCalc(segAC) elif %1>=45 And %1<61 then Inc(alpha,1), ReCalc(arc1) elif %1>=61 And %1<71 then Inc(beta,1), ReCalc(arc2) elif %1>=71 And %1<81 then Inc(gamma,1), ReCalc(arc3) elif %1>=81 And %1<113 then pos3:=A, Inc(tau,1), ReCalc(bissectrice) elif %1>=113 And %1<120 then pos3:=-1000, clr:=red, ReCalc(bissectrice, fin) fi ]; OnBeginAnim = [{exécutée au lancement de l'animation} ]; OnEndAnim = [{exécutée à la fin de l'animation} ]; Initialiser = [{valeurs par défaut de vos paramètres} pos1:=-1000, lambda:=-1, pos2:=-1000, mu:=-1, alpha:=-1, beta:=-1, gamma:=-1, tau:=-1, pos3:=-1000, clr:=white, ReCalc() ]; Tempo = 150; NbFrames = 120; Nom = "D:\Logiciels_de_geometrie\TeXgraph1.94\TeXgraph\bissectrice"; Cmd [Color:=12632256,IsVisible:=0,DotScale:=1+i]; Graph objet2 = Grille(0,0.25+0.25*i); Cmd [Color:=0]; Graph objet3 = Axes(0,1+i,2+2*i); Cmd [IsVisible:=1]; Graph depart = [ Width:=8, DotStyle:=cross, LabelDot(A,"A","SO",1), LabelDot(B,"B","S",1), LabelDot(C,"C","O",1), ]; Cmd [tMin:=-4]; Graph fin = [ Width:=8, Color:=clr, Path([2, 0, 2*exp(i*pi/3), 1, arc],0), Path([2*exp(i*pi/3),0,2*exp(2*i*pi/3) , 1.25, arc],0), markangle(2, 0, 2*exp(i*pi/3),1, 2, 0.1, 0.25), markangle(2*exp(i*pi/3),0,2*exp(2*i*pi/3),1.25, 2, 0.1, 0.25), ]; Graph segAB = [ Width:=8, regle(pos1, [dir:=1, long:=10, fond:=blue]), if lambda=-1 then crayon(-1000, [dir:=1+i, long:=4, mine:=black]), elif lambda>=0 And lambda<=16 then crayon(A+0.25*lambda, [dir:=1+i, long:=4, mine:=black]), Path([A, A+.25*lambda, line],0 ) elif lambda=17 then Seg(A,B), crayon(-1000, [dir:=1+i, long:=4, mine:=black]), fi, ]; Graph segAC = [ Width:=8, regle(pos2, [dir:=-exp(2*i*pi/3), long:=10, fond:=blue]), if mu=-1 then crayon(-1000, [dir:=1+i, long:=4, mine:=black]), elif mu>=0 And mu<=20 then crayon(.25*mu*exp(2*i*pi/3), [dir:=1+i, long:=4, mine:=black]), Path([A, .25*mu*exp(2*i*pi/3), line],0 ) elif mu=21 then Seg(A,C), crayon(-1000, [dir:=1+i, long:=4, mine:=black]), fi, ]; Graph arc1 = [ Width:=8, LineStyle:=dashed, Color:=forestgreen, if alpha=-1 then compas(-1000, [dir:=exp(-i*pi/18), long:=3, mine:=forestgreen]) elif alpha>=0 And alpha<=14 then compas(A, [dir:=exp(-i*(1-alpha)*pi/18), long:=3, mine:=forestgreen]), Path([2*exp(-i*pi/17.99),A,exp(-i*(1-alpha)*pi/18),2,arc],0) elif alpha>=15 then compas(-1000, [dir:=exp(-i*pi/18), long:=3, mine:=forestgreen]), Path([2*exp(-i*pi/18),A,exp(i*pi*13/18),2,arc],0) fi ]; Graph arc2 = [ Width:=8, LineStyle:=dashed, Color:=navy, if beta=-1 then compas(-1000, [dir:=i, long:=6.75, mine:=navy]) elif beta>=0 And beta<=8 then compas(2, [dir:=exp(3*i*pi/8+i*beta*pi/32), long:=6.75, mine:=navy]), Path([2+4.5*exp(i*3*pi/8.01),2,2+exp(3*i*pi/8+i*beta*pi/32),4.5,arc],0) elif beta>=9 then compas(-1000, [dir:=exp(-i*pi/18), long:=6.75, mine:=navy]), Path([2+4.5*exp(3*i*pi/8),2,2+exp(i*5*pi/8),4.5,arc],0) fi ]; Graph arc3 = [ Width:=8, LineStyle:=dashed, Color:=navy, if gamma=-1 then compas(-1000, [dir:=i, long:=6.75, mine:=navy]) elif gamma>=0 And gamma<=8 then compas(2*exp(i*2*pi/3), [dir:=exp(i*pi*(1/18+gamma/45)), long:=6.75, mine:=navy]), Path([2*exp(2*i*pi/3)+4.5*exp(i*pi/18.01), 2*exp(2*i*pi/3), 2*exp(2*i*pi/3)+exp(i*pi*(1/18+gamma/45)),4.5,arc],0) elif gamma>=9 then compas(-1000, [dir:=exp(-i*pi/18), long:=6.75, mine:=navy]), Path([2*exp(2*i*pi/3)+4.5*exp(i*pi/18), 2*exp(2*i*pi/3), 2*exp(2*i*pi/3)+exp(i*5*pi/18),4.5,arc],0) fi, ]; Graph bissectrice = [ Width:=8, Color:=red, regle(pos3, [dir:=exp(i*pi/3), long:=12, fond:=blue]), if tau=-1 then crayon(-1000, [dir:=1+2*i, long:=4, mine:=red]), elif tau>=0 And tau<=30 then crayon(0.25*tau*exp(i*pi/3), [dir:=1+i, long:=4, mine:=red]), Path([A, A+0.25*tau*exp(i*pi/3), line],0 ) elif tau=31 then crayon(-1000, [dir:=1+i, long:=4, mine:=red]), Path([A, A+0.25*30*exp(i*pi/3), line],0 ) fi, ];