TeXgraph# {version 2.0} Cmd Window(-3.5+3.5*i, 3.5-4.6*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:=0]; Cmd [MouseCode:=0,tMin:=-5,tMax:=5,DotScale:=1+i]; Graph user_1 = [//command LabelSize:=footnotesize,Width:=3, D := Get([SaveWin(), view(-4,4,-8,8),Cartesian(1/4*(x+3)*(x+1)*(x-3.5)), RestoreWin()]), a := -5*i, M := [a-8, a+8] InterL D, SetMatrix([0,0.75,0.75*i]), draw("axeX",[0,1],[originpos :=right]), draw("axeY",[0,1],[originpos :=jump]), Width:=6, //draw("cartesian",(x+3)*(x+1)*(x-3.5)/4,[x:=[-4,4],discont:=0,nbdiv:=5]), Line(D), LineStyle:=dashed, draw("seg",[a,M[1]],[LineStyle:=dashed,marker:=[0.5,CParrow'],scale:=0.8]), draw("seg",[a,M[2]],[LineStyle:=dashed,marker:=[0.5,CParrow'],scale:=0.8]), draw("seg",[M[2],M[3]],[LineStyle:=dashed,marker:=[0.6,CParrow'],scale:=0.8]), draw("seg",[M[1],Re(M[1])],[LineStyle:=dashed,marker:=[0.6,CParrow'],scale:=0.8]), draw("seg",[M[2],Re(M[2])],[LineStyle:=dashed,marker:=[0.6,CParrow'],scale:=0.8]), draw("seg",[M[3],Re(M[3])],[LineStyle:=dashed,marker:=[0.6,CParrow'],scale:=0.8]), //DotSize:=5+5*i,DotStyle:=times, //LabelDot(a,"$\num{1,5}$","N",0,0.1), //LabelDot(M[2],"$M$","S",0,0.15), LabelDot(Re(M[1]),"$\num{-3,9}$","N",0,0.1), LabelDot(Re(M[3]),"$\num{2,4}$","N",0,0.1), ];