% TeXgraph version 1.95-beta-1 % Fenetre Xmin Xmax Ymin Ymax Xscale Yscale 100#15#30#0#4#0.53333333333333#1.875## % Marges gauche droite haut bas cadre gestion_couleur comptgraph 101#0.5#0.5#0.5#1#0#1#1## % Affectation des Variables theta et phi et type de perspective 18##[theta:=0.5236, phi:=1.0472,OriginalCoord(1),IdMatrix(),IdMatrix3D(), ModelView(ortho)]## % Déclaration des Macros 16#moustache#{ moustache( type "H" ou "V", serie1, [options1], serie2, [options2], ... )} [ grid:=0, SaveAttr(), $L:=Args(), $m:=min(L), $M:=max(L), $x1:=0, $x2:=Nargs()/2+0.5, $y1:= Ent(m), $y2:=Ent(M)+1, $pas:= (y2-y1)/5, if pas>1 then pas:=Ent(pas) fi, if StrComp(%1,"V") then view(x1,x2,y1,y2), Marges(1,0.5,0.5,0.5), $X:=0, $dX:=1, if grid then $oldcolor:=Color, $oldwidth:=Width, Color:=lightgray, Width:=2, Grille(x1+i*y1,1+i*pas/4),Color:=$oldcolor, Width:=$oldwidth fi else view(y1,y2,x1,x2),Marges(0.5,0.5,0.5,1), $X:=x2, $dX:=-1, if grid then $oldcolor:=Color, $oldwidth:=Width, Color:=lightgray, Width:=2, Grille(i*x1+y1,i+pas/4),Color:=$oldcolor, Width:=$oldwidth fi fi, size(9,0), Arrows:=1, if StrComp(%1,"V") then axeY([i*y1,1], pas, 2) else axeX([y1,1], pas , 2) fi, Arrows:=0, RestoreAttr(), for $k from 2 to Nargs() step 2 do L:=Args(k), Sort(L), Inc(X,dX), SetStr("boiteTitre",""), SaveAttr(), $options:=Args(k+1), L:=for $z in L do if Im(z)=0 then z else for $k from 1 to Im(z) do Re(z) fi od od, $N:=Nops(L), $m:=L[1], $M:=L[N], $x:=Ent(N/4+0.75), q1:=L[x], $x:=N/2, if Ent(x)