TeXgraph# {version 1.98} Cmd Window(-4.75+3.5*i, 5.25-3*i, 1+i); Margin(0, 0, 0, 0); Border(0); [OriginalCoord(1), IdMatrix()]; [theta:=0.5236, phi:=1.0472, IdMatrix3D(), ModelView(ortho)]; [GrayScale(0), ComptGraph:=1]; Var MouseVer = 0.1; Include "Mouse.mac"; Mac SelectName = Mcourbe1; SelectBody = ["[NbPoints:=NbPoints*(",Nops(controles)+lineclosed-1,"),Curve(Map(c(z),z,",controles, "),",lineclosed,")]"]; ctrldot = [-2.53968253968254+2.51322751322751*i,1.05820105820106+2.59259259259259*i,0.925925925925926+1.95767195767196*i, -2.32804232804233+1.9047619047619*i,-2.53968253968254+1.05820105820106*i,-1.16402116402116+0.740740740740741*i, -1.26984126984127+0.238095238095238*i,-3.01587301587302+0.502645502645503*i,-3.5978835978836+1.37566137566138*i, 3.5978835978836+2.08994708994709*i,3.2010582010582+0.608465608465608*i,-1.26984126984127+0.158730158730159*i, -1.05820105820106+0.899470899470899*i,2.56613756613757+1.05820105820106*i,2.61904761904762+1.95767195767196*i, 1.11111111111111+2.03703703703704*i,1.16402116402116+2.64550264550265*i]; laliste = [10,7+2*i,2*i,0,16777215*i,0,10+i,3*i,-5+5*i,50,1,0,1,i,10,11,12,13,14,15,16,17,jump, 1,7+i,2*i,0,16777215*i,0,10+i,3*i,-5+5*i,50,1,0,1,i,1,2,3,4,5,6,7,8,9,jump]; dotstate = [1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]; Init = [C1:=0, C2:=0, C3:=0, C4:=0, C5:=0, C6:=0, C7:=2, C8:=0, C9:=0, C10:=0, C11:=0, C12:=0, C13:=0, C14:=0, C15:=0, C16:=0, NbCtrlDot:=17, CtrlDot:=ctrldot(), LaListe:=laliste() , DotState:=dotstate(), ShowRef:=0, ShowLabel:=0, SLabelEnCours:=0, flechage:=fleches() , ReCalc() ]; Cmd [tMin:=-5,tMax:=5,DotScale:=1+i]; Graph etat = Nil; Cmd [Width:=2,MouseCode:=1,NbPoints:=10]; Graph Mcourbe1 = [NbPoints:=NbPoints*(9),Curve(Map(c(z),z,[1,2,3,4,5,6,7,8,9]),1)]; Cmd [MouseCode:=10]; Graph Mcourbe2 = [NbPoints:=NbPoints*(8),Curve(Map(c(z),z,[10,11,12,13,14,15,16,17]),1)]; Cmd [MouseCode:=-1]; Graph Controles = ShowCtrl(); Graph Selection = ShowSelect(); Cmd [Width:=4,NbPoints:=50]; Graph objet1 = [ Width:=6, Droite(-2*i,-2*i+1), Arrows:=1, LabelSize:=footnotesize, LabelSeg(4.5+i,4.5-i,"$f$",rotation:=0), Label(-4.3-1.75*i,"$Y$",-3.5+2.5*i,"$A_{1}$",3.6+2.5*i,"$A_{2}$"), A0:=Get(Mcourbe1), L0:=Get(Mcourbe2), A:=min(A0),B:=max(A0), L:=min(L0),M:=max(L0), C:=Intersec(Droite(-2*i,-2*i+1),Droite(A,A+i)), D:=Intersec(Droite(-2*i,-2*i+1),Droite(B,B+i)), N:=Intersec(Droite(-2*i,-2*i+1),Droite(L,L+i)), P:=Intersec(Droite(-2*i,-2*i+1),Droite(M,M+i)), Arrows:=0, LineStyle:=dashed, Width:=4, Seg(A,C-i),Seg(B,D-i), Seg(L,N-1.5*i),Seg(M,P-1.5*i), LineStyle:=solid, Width:=12, ];