Le modèle graphes.mod

[P.Fradin]

Bonjour Joffrey,

Je tenvoie par mail une version 0.5 de graphes.mod pour que tu puisses tester (interface graphique et dans document LaTeX). J'ai ajouté une macro: DefTypeGraphe(0/1) (0=non orienté, 1=orienté), par défaut le graphe est non orienté, cette macro soit être utilisée au début, et non plus à la fin comme option de Dgraphe(), idéalement on devrait avoir (exemple):

Code: Tout sélectionner

\begin{texgraph}[...]
DefTypeGraphe(1), DefNbSommets(4),
DefMatrice(...)
...
\end{texgraph}


Désormais, lorsqu'on ajoute ou supprime une arête, la matrice est automatiquement "symétrisée" si le type de graphe est: non orienté...
J'ai ajouter deux macros:

• ListePoids() qui renvoie la liste des poids. Je ne vois pas son intérêt lorsqu'il y plusieurs arêtes entre deux sommets...


• ListeNoms() qui renvoie la liste des noms des sommets.

PS: n'ayant pas le source, je ne pourrai pas mettre la doc à jour.

[Joffrey]

Re,

ListePoids() qui renvoie la liste des poids. Je ne vois pas son intérêt lorsqu'il y plusieurs arêtes entre deux sommets...

par exemple :

graphe_TeXgraph.png (14.65 Kio) Consulté 137277 fois

[P.Fradin]

C'est un exemple de quoi???

[Joffrey]

C'est un exemple pour lequel le poids de l'arête de A à D n'est pas le même que le poids de l'arête de D à A.
ListePoids() peut servir par exemple pour chercher un plus court chemin, mais promis j'y viendrai dans pas longtemps, j'ai presque fini.

[P.Fradin]

C'est un exemple pour lequel le poids de l'arête de A à D n'est pas le même que le poids de l'arête de D à A.
ListePoids() peut servir par exemple pour chercher un plus court chemin, mais promis j'y viendrai dans pas longtemps, j'ai presque fini.

La macro ListePoids(), telle qu'elle est, ne renvoie pas tous les poids lorsque plusieurs arêtes partent d'un même sommet.

[Joffrey]

Mais elle renvoie un coeff pour le chemin de A à D dans a_{1,4} et un coeff pour le chemin de D à A dans a_{4,1}.

[P.Fradin]

Mais elle renvoie un coeff pour le chemin de A à D dans a_{1,4} et un coeff pour le chemin de D à A dans a_{4,1}.

J'ai dit lorsque deux arêtes partent d'un même sommet

[P.Fradin]

Mise à jour du modèle graphes.mod version 0.5.
Cette mise à jour est accessible seulement par l'interface graphique (menu: Aide/Mises à jour/Modèles) car non compatible avec la version stable actuelle de TeXgraph.

[Joffrey]

Bonsoir,

J'ai ajouté une petite modifications sur le dessin des sommets afin d'obtenir ceci :

Code: Tout sélectionner

TeXgraph#
{version 1.964 (beta)}
Cmd
   Fenetre(-4.5+5*i, 6.25-2*i, 1+i);
   Marges(0, 0, 0, 0);
   Border(0);
   [OriginalCoord(1), IdMatrix()];
   [theta:=0.5236, phi:=1.0472, IdMatrix3D(), ModelView(ortho)];
   [GrayScale(0), ComptGraph:=3];

Var
    graphesVer = 0.5;

Include
   "graphes.mac";

Mac
    poids1_1 = "";
    poids1_2 = "";
    poids1_3 = "";
    poids1_4 = "";
    poids1_5 = "";
    poids2_1 = "";
    poids2_2 = "";
    poids2_3 = "";
    poids2_4 = "";
    poids2_5 = "";
    poids3_1 = "";
    poids3_2 = "";
    poids3_3 = "";
    poids3_4 = "";
    poids3_5 = "";
    poids4_1 = "";
    poids4_2 = "";
    poids4_3 = "";
    poids4_4 = "";
    poids4_5 = "";
    poids5_1 = "";
    poids5_2 = "";
    poids5_3 = "";
    poids5_4 = "";
    poids5_5 = "";
    Sommet1 = "$A$";
    Sommet2 = "$B$";
    Sommet3 = "$C$";
    Sommet4 = "$D$";
    Sommet5 = "$E$";
    poids1_6 = "";
    poids1_7 = "";
    poids1_8 = "";
    poids1_9 = "";
    poids1_10 = "";
    poids1_11 = "";
    poids1_12 = "";
    poids1_13 = "";
    poids1_14 = "";
    poids1_15 = "";
    poids1_16 = "";
    poids2_6 = "";
    poids2_7 = "";
    poids2_8 = "";
    poids2_9 = "";
    poids2_10 = "";
    poids2_11 = "";
    poids2_12 = "";
    poids2_13 = "";
    poids2_14 = "";
    poids2_15 = "";
    poids2_16 = "";
    poids3_6 = "";
    poids3_7 = "";
    poids3_8 = "";
    poids3_9 = "";
    poids3_10 = "";
    poids3_11 = "";
    poids3_12 = "";
    poids3_13 = "";
    poids3_14 = "";
    poids3_15 = "";
    poids3_16 = "";
    poids4_6 = "";
    poids4_7 = "";
    poids4_8 = "";
    poids4_9 = "";
    poids4_10 = "";
    poids4_11 = "";
    poids4_12 = "";
    poids4_13 = "";
    poids4_14 = "";
    poids4_15 = "";
    poids4_16 = "";
    poids5_6 = "";
    poids5_7 = "";
    poids5_8 = "";
    poids5_9 = "";
    poids5_10 = "";
    poids5_11 = "";
    poids5_12 = "";
    poids5_13 = "";
    poids5_14 = "";
    poids5_15 = "";
    poids5_16 = "";
    poids6_1 = "";
    poids6_2 = "";
    poids6_3 = "";
    poids6_4 = "";
    poids6_5 = "";
    poids6_6 = "";
    poids6_7 = "";
    poids6_8 = "";
    poids6_9 = "";
    poids6_10 = "";
    poids6_11 = "";
    poids6_12 = "";
    poids6_13 = "";
    poids6_14 = "";
    poids6_15 = "";
    poids6_16 = "";
    poids7_1 = "";
    poids7_2 = "";
    poids7_3 = "";
    poids7_4 = "";
    poids7_5 = "";
    poids7_6 = "";
    poids7_7 = "";
    poids7_8 = "";
    poids7_9 = "";
    poids7_10 = "";
    poids7_11 = "";
    poids7_12 = "";
    poids7_13 = "";
    poids7_14 = "";
    poids7_15 = "";
    poids7_16 = "";
    poids8_1 = "";
    poids8_2 = "";
    poids8_3 = "";
    poids8_4 = "";
    poids8_5 = "";
    poids8_6 = "";
    poids8_7 = "";
    poids8_8 = "";
    poids8_9 = "";
    poids8_10 = "";
    poids8_11 = "";
    poids8_12 = "";
    poids8_13 = "";
    poids8_14 = "";
    poids8_15 = "";
    poids8_16 = "";
    poids9_1 = "";
    poids9_2 = "";
    poids9_3 = "";
    poids9_4 = "";
    poids9_5 = "";
    poids9_6 = "";
    poids9_7 = "";
    poids9_8 = "";
    poids9_9 = "";
    poids9_10 = "";
    poids9_11 = "";
    poids9_12 = "";
    poids9_13 = "";
    poids9_14 = "";
    poids9_15 = "";
    poids9_16 = "";
    poids10_1 = "";
    poids10_2 = "";
    poids10_3 = "";
    poids10_4 = "";
    poids10_5 = "";
    poids10_6 = "";
    poids10_7 = "";
    poids10_8 = "";
    poids10_9 = "";
    poids10_10 = "";
    poids10_11 = "";
    poids10_12 = "";
    poids10_13 = "";
    poids10_14 = "";
    poids10_15 = "";
    poids10_16 = "";
    poids11_1 = "";
    poids11_2 = "";
    poids11_3 = "";
    poids11_4 = "";
    poids11_5 = "";
    poids11_6 = "";
    poids11_7 = "";
    poids11_8 = "";
    poids11_9 = "";
    poids11_10 = "";
    poids11_11 = "";
    poids11_12 = "";
    poids11_13 = "";
    poids11_14 = "";
    poids11_15 = "";
    poids11_16 = "";
    poids12_1 = "";
    poids12_2 = "";
    poids12_3 = "";
    poids12_4 = "";
    poids12_5 = "";
    poids12_6 = "";
    poids12_7 = "";
    poids12_8 = "";
    poids12_9 = "";
    poids12_10 = "";
    poids12_11 = "";
    poids12_12 = "";
    poids12_13 = "";
    poids12_14 = "";
    poids12_15 = "";
    poids12_16 = "";
    poids13_1 = "";
    poids13_2 = "";
    poids13_3 = "";
    poids13_4 = "";
    poids13_5 = "";
    poids13_6 = "";
    poids13_7 = "";
    poids13_8 = "";
    poids13_9 = "";
    poids13_10 = "";
    poids13_11 = "";
    poids13_12 = "";
    poids13_13 = "";
    poids13_14 = "";
    poids13_15 = "";
    poids13_16 = "";
    poids14_1 = "";
    poids14_2 = "";
    poids14_3 = "";
    poids14_4 = "";
    poids14_5 = "";
    poids14_6 = "";
    poids14_7 = "";
    poids14_8 = "";
    poids14_9 = "";
    poids14_10 = "";
    poids14_11 = "";
    poids14_12 = "";
    poids14_13 = "";
    poids14_14 = "";
    poids14_15 = "";
    poids14_16 = "";
    poids15_1 = "";
    poids15_2 = "";
    poids15_3 = "";
    poids15_4 = "";
    poids15_5 = "";
    poids15_6 = "";
    poids15_7 = "";
    poids15_8 = "";
    poids15_9 = "";
    poids15_10 = "";
    poids15_11 = "";
    poids15_12 = "";
    poids15_13 = "";
    poids15_14 = "";
    poids15_15 = "";
    poids15_16 = "";
    poids16_1 = "";
    poids16_2 = "";
    poids16_3 = "";
    poids16_4 = "";
    poids16_5 = "";
    poids16_6 = "";
    poids16_7 = "";
    poids16_8 = "";
    poids16_9 = "";
    poids16_10 = "";
    poids16_11 = "";
    poids16_12 = "";
    poids16_13 = "";
    poids16_14 = "";
    poids16_15 = "";
    poids16_16 = "";
    Sommet6 = "$F$";
    Sommet7 = "$G$";
    Sommet8 = "$H$";
    Sommet9 = "$I$";
    Sommet10 = "$J$";
    Sommet11 = "$K$";
    Sommet12 = "$L$";
    Sommet13 = "$M$";
    Sommet14 = "$N$";
    Sommet15 = "$O$";
    Sommet16 = "$P$";
    optionsSommet1 = "[backColor:=limegreen]";
    optionsSommet2 = "[rayon:=0.35, dotstyle:=1, backColor:=red]";
    optionsSommet3 = "[rayon:=0.35, dotstyle:=1, backColor:=red]";
    optionsSommet4 = "[rayon:=0.35, dotstyle:=1, backColor:=red]";
    optionsSommet5 = "[backColor:=limegreen]";
    optionsSommet6 = "[rayon:=0.35, dotstyle:=1, backColor:=red]";
    optionsSommet7 = "[rayon:=0.35, dotstyle:=1, backColor:=red]";
    optionsSommet8 = "[rayon:=0.35, dotstyle:=1, backColor:=red]";
    optionsSommet9 = "[rayon:=0.35, dotstyle:=1, backColor:=red]";
    optionsSommet10 = "[rayon:=0.35, dotstyle:=1, backColor:=red]";
    optionsSommet11 = "[rayon:=0.35, dotstyle:=1, backColor:=red]";
    optionsSommet12 = "[rayon:=0.35, dotstyle:=1, backColor:=red]";
    optionsSommet13 = "[rayon:=0.35, dotstyle:=1, backColor:=red]";
    optionsSommet14 = "[rayon:=0.35, dotstyle:=1, backColor:=red]";
    optionsSommet15 = "[rayon:=0.35, dotstyle:=1, backColor:=red]";
    optionsSommet16 = "[rayon:=0.35, dotstyle:=1, backColor:=red]";
    userOptions = "rayon:=0.25";
    Init = [ Matrice:=[0,1,0,0,1,1,0,0,0,0,0,0,0,0,0,0,1,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,
   0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,
   0,0,0,0,1,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,1,
   0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,
   1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1,0,0,0,0,0,0,0,
   0,0,0,0,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,1,0,1,0,1,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,0,0,
   0,0,0,0,0,0,0,0,1,0,0,1,0,0,0,0],
    NbSommets:=16,
    PosSommets:=[-2+3*i,-2+2*i,-4,1.5*i,-4+3.5*i,0.5+4*i,-1.5+0.5*i,-4+1.5*i,2.5+4*i,
   2+2*i,0.5,6+2*i,5.5-0.5*i,3-0.5*i,4+1.5*i,5+3.5*i],
    typeGraphe:=-1,
    Rayon:=2,
    rayon:=0.25,
    bouclescale:=1,
    dotstyle:=-1,
    linesep:=0.5,
    arrowwidth:=8,
    angledep:=Nil,
    angledep:=Nil,
    arrowposboucle:=[0.265,0.765],
    arrowposarete:=[0.25,0.75],
    ReCalc() ];
    auxOptionsAretes = "[Color:=red, Width:=8]&";
    optionsArete1_5 = if CrtArete=1 then "[Color:=red, Width:=8]"
   fi;
    optionsArete1_2 = if CrtArete=1 then "[Color:=red, Width:=8]"
   fi;
    optionsArete2_4 = if CrtArete=1 then "[Color:=red, Width:=8]"
   fi;
    optionsArete4_6 = if CrtArete=1 then "[Color:=red, Width:=8]"
   fi;
    optionsArete6_9 = if CrtArete=1 then "[Color:=red, Width:=8]"
   fi;
    optionsArete9_16 = if CrtArete=1 then "[Color:=red, Width:=8]"
   fi;
    optionsArete12_16 = if CrtArete=1 then "[Color:=red, Width:=8]"
   fi;
    optionsArete12_13 = if CrtArete=1 then "[Color:=red, Width:=8]"
   fi;
    optionsArete13_14 = if CrtArete=1 then "[Color:=red, Width:=8]"
   fi;
    optionsArete11_14 = if CrtArete=1 then "[Color:=red, Width:=8]"
   fi;
    optionsArete7_11 = if CrtArete=1 then "[Color:=red, Width:=8]"
   fi;
    optionsArete3_7 = if CrtArete=1 then "[Color:=red, Width:=8]"
   fi;
    optionsArete11_15 = if CrtArete=1 then "[Color:=red, Width:=8]"
   fi;
    optionsArete10_15 = if CrtArete=1 then "[Color:=red, Width:=8]"
   fi;
    optionsArete2_8 = if CrtArete=1 then "[Color:=red, Width:=8]"
   fi;

Cmd   [tMin:=-5,tMax:=5,DotScale:=1+i];
Graph graphe = [
   Dgraphe()
   ];
Graph index = ShowIndex();
Cmd   [Color:=12632256,IsVisible:=0];
Graph objet2 = Grille(0,0.5+0.5*i);
Cmd   [Color:=0];
Graph objet3 = Axes(0,1+i,2+2*i);
Cmd   [IsVisible:=1];
Graph objet1 = [
   Fenetre(-4.5+5*i, 6.25-2*i, 1+i),
   Marges(0, 0, 0, 0),
   DefTypeGraphe(0),
   DefMatrice(
   0,1,0,0,1,1,0,0,0,0,0,0,0,0,0,0,
   1,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,
   0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,
   0,1,0,0,0,1,0,0,0,1,0,0,0,0,0,0,
   1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,
   1,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,
   0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,
   0,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,
   0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,
   0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,
   0,0,0,0,0,0,1,0,0,0,0,0,0,1,1,0,
   0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1,
   0,0,0,0,0,0,0,0,0,0,0,1,0,1,1,0,
   0,0,0,0,0,0,0,0,0,0,1,0,1,0,1,0,
   0,0,0,0,0,0,0,0,0,1,1,0,1,1,0,0,
   0,0,0,0,0,0,0,0,1,0,0,1,0,0,0,0),
   DefSommets(-2+3*i, -2+2*i, -4, 1.5*i, -4+3.5*i,
              0.5+4*i, -1.5+0.5*i, -4+1.5*i, 2.5+4*i,
              2+2*i, 0.5, 6+2*i, 5.5-0.5*i, 3-0.5*i,
              4+1.5*i, 5+3.5*i),
   DefLabels(
   "$A$","[backColor:=limegreen]",
   "$B$","[rayon:=0.35, dotstyle:=1, backColor:=red]",
   "$C$","[rayon:=0.35, dotstyle:=1, backColor:=red]",
   "$D$","[rayon:=0.35, dotstyle:=1, backColor:=red]",
   "$E$","[backColor:=limegreen]",
   "$F$","[rayon:=0.35, dotstyle:=1, backColor:=red]",
   "$G$","[rayon:=0.35, dotstyle:=1, backColor:=red]",
   "$H$","[rayon:=0.35, dotstyle:=1, backColor:=red]",
   "$I$","[rayon:=0.35, dotstyle:=1, backColor:=red]",
   "$J$","[rayon:=0.35, dotstyle:=1, backColor:=red]",
   "$K$","[rayon:=0.35, dotstyle:=1, backColor:=red]",
   "$L$","[rayon:=0.35, dotstyle:=1, backColor:=red]",
   "$M$","[rayon:=0.35, dotstyle:=1, backColor:=red]",
   "$N$","[rayon:=0.35, dotstyle:=1, backColor:=red]",
   "$O$","[rayon:=0.35, dotstyle:=1, backColor:=red]",
   "$P$","[rayon:=0.35, dotstyle:=1, backColor:=red]"),
   DefOptionsAretes([1,5,1,2,2,4,4,6,6,9,9,16,12,16,
   12,13,13,14,11,14,7,11,3,7,11,15,10,15,2,8],"[Color:=red, Width:=8]&"),
   Dgraphe(rayon:=0.25),
   a:=-4.5-1.5*i,
   FillStyle:=full, FillColor:=limegreen,
   Drectangle(a,a+13*0.75, a+13*0.75-0.5*i),
   for k from 0.75 to 9.75 step 0.75 do Ligne([a+k,a+k-0.5*i],0) od,
   Label(a+0.375-0.25*i,"$E$"),
   Label(a+1.125-0.25*i,"$A$"),
   Label(a+1.875-0.25*i,"$B$"),
   Label(a+2.625-0.25*i,"$ $"),
   Label(a+3.375-0.25*i,"$ $"),
   Label(a+4.125-0.25*i,"$ $"),
   Label(a+4.875-0.25*i,"$ $"),
   Label(a+5.625-0.25*i,"$ $"),
   Label(a+6.375-0.25*i,"$ $"),
   Label(a+7.125-0.25*i,"$ $"),
   Label(a+7.875-0.25*i,"$ $"),
   Label(a+8.625-0.25*i,"$ $"),
   Label(a+9.375-0.25*i,"$ $"),
   
   FillColor:=red,
   Drectangle(a+2*0.75,a+3*0.75, a+3*0.75-0.5*i),
   Label(a+0.375-0.25*i+2*0.75,"$ $"),
   ];


qui donne

Longueur59.png (13.3 Kio) Consulté 137154 fois

la modification est la suivante sur la macro Dsommet

Code: Tout sélectionner

Dsommet = [$k:=0,
   for $z in PosSommets do Inc(k,1),
      SaveAttr(),
      FillStyle:=full, FillColor:=white,
      Eval(GetStr(["optionsSommet",k])),
      if dotstyle=-1 then
         if StrLength(GetStr(["Sommet",k]))<=5 then
             Color:=circleColor, FillColor:=backColor, Rcercle(z,rayon),
                            Color:=labelColor, Label(z, GetStr(["Sommet",k]))
         else
             Color:=circleColor, FillColor:=backColor,
             Rellipse(z,rayon*StrLength(GetStr(["Sommet",k]))/3,rayon),
             Color:=labelColor, Label(z, GetStr(["Sommet",k]))
         fi
      elif dotstyle=1 then
         Color:=circleColor, FillColor:=backColor,
         Dcarre(z+rayon*exp(3*i*pi/4), z+rayon*exp(i*pi/4),-1 ),   
         Color:=labelColor, Label(z, GetStr(["Sommet",k]))         
      else
         DotStyle:=dotstyle, Point(z)
      fi,
      defautOptions(), Eval(@userOptions),
      RestoreAttr()
   od];

Bonne nuit !

[P.Fradin]

Bonsoir Joffrey,

Tu as choisi la valeur 1, mais cette valeur correspond déjà à dotcircle pour l'attribut DotStyle, je te conseille plutôt une valeur qui ne correspond à aucune valeur de DotStyle, comme -2 par exemple, et de donner un nom explicite à cette valeur par commodité pour l'utilisateur (square est déjà pris).

[Joffrey]

Bonjour,

Oui tu as raison j'ai fait ca rapido et je n'ai pas vérifier les valeurs.
Le nom m'importe peu, carre, square, square' sont deja pris as tu des preferences pour le nom ?

[Joffrey]

Bonsoir,

Je te propose squareV, V pour vertex en anglais qui est la traduction de sommet.

[P.Fradin]

Bonjour Joffrey,

Va pour squareV et -2 comme valeur.

[P.Fradin]

Mise à jour du modèle graphes.mod vers la version 0.6 (TeXgraph 1.963 ou plus).
La mise à jour peut se faire à partir de l'interface graphique (Menu Aide/Mise à jour/Modèles).

[Joffrey]

ok super !!
Le plus long c'est de mettre tous mes fichiers (environ 200) a jour avec la nouvelle version.

Merci

[P.Fradin]

Tu as voulu mettre l'option squareV dans tous tes fichiers?

[Joffrey]

Oui pour l instant j'en ai fait 40 avec systeme de copier coller dans gedit qui marche pas trop mal.
Je vais peut etre me pencher sur un script .

[Joffrey]

Bonjour Patrick,

Je suis en train de concevoir des graphes et je me demandais si on pouvais charger le modèle draw2d.mod avec graphes.mod pour avoir les différents style de flèche disponible dans le premier.

Bonne journée

Joffrey

[Joffrey]

Bonsoir (2) Patrick,

Je viens de remettre le nez dans graphes.mod afin de pouvoir utiliser les flèches du modèle draw2d.mod.
Il semble que la macro flecher() ne subisse pas le changement, dois-je tout reprendre afin d'adapter ?

Joffrey

[P.Fradin]

Bonsoir Joffrey,

La macro flecher est antérieure au modèle draw2d, donc il va falloir remettre le nez dedans...

[Joffrey]

Je m'en doutais

[P.Fradin]

Mise à jour vers la version 0.7.

[P.Fradin]

Mise à jour vers la version 0.8 dans le post initial.