% TeXgraph version 1.95-beta-1 % Fenetre Xmin Xmax Ymin Ymax Xscale Yscale 100#15#30#0#5#0.53333333333333#1.5## % 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 Variables Globales 15#distance#1.25## 15#style#6## % Déclaration des Macros 16#moustache#{ moustache( [options générales], serie1, [options1], serie2, [options2], ... )} [ SaveAttr(), $L:=Args(), $m:=min(L), $M:=max(L), grid:=0, distance:=1, style:=vertical, $options:=%1, $x1:=0, $x2:= (Nargs()/2+0.5)*distance , $y1:= Ent(m), $y2:=Ent(M)+1, $pas:= (y2-y1)/5, if pas>1 then pas:=Ent(pas) fi, if style=vertical then view(x1,x2,y1,y2), Marges(1,0.5,0.5,0.5), $X:=0, $dX:=distance, if grid then $oldcolor:=Color, $oldwidth:=Width, Color:=lightgray, Width:=2, Grille(x1+i*y1,distance+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:=-distance, if grid then $oldcolor:=Color, $oldwidth:=Width, Color:=lightgray, Width:=2, Grille(i*x1+y1,i*distance+pas/4),Color:=$oldcolor, Width:=$oldwidth fi fi, size(9,0), Arrows:=1, if style=vertical 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 labels:=0, 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)