(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     24489,        744]
NotebookOptionsPosition[     21946,        661]
NotebookOutlinePosition[     22322,        677]
CellTagsIndexPosition[     22279,        674]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"(*", "        ", 
  RowBox[{"par", " ", "Marcel", " ", "D\[EAcute]l\[EGrave]ze"}], "    ", 
  "*)"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{"BeginPackage", "[", "\"\<Tableaux`\>\"", "]"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"fusionneColonnes", "::", "usage"}], "=", "\n", "\t", 
  "\"\<fusionneColonnes[a,b] assemble le tableau \
(\[NegativeThinSpace]\!\(\*GridBox[{
{a},
{b}
}]\)\[NegativeThinSpace]).\>\""}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"fusionneLignes", "::", "usage"}], "=", "\n", "\t", 
  "\"\<fusionneLignes[a,b] assemble le tableau \
(\[NegativeThinSpace]\!\(\*GridBox[{
{a, b}
}]\)\[NegativeThinSpace]).\>\""}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"fusionneTableaux", "::", "usage"}], "=", "\n", "\t", 
  "\"\<fusionneTableaux[a, b, c, d] assemble le tableau {{a, b}, {c, \
d}}.\>\""}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"afficheTableau", "::", "usage"}], "=", "\n", "\t", 
  "\"\<afficheTableau[l, c, t] affiche le tableau {{Null, c}, {l, t}} o\
\[UGrave]\\n     l est la liste  des en-t\[EHat]tes de lignes,\\n     c est \
la liste des en-t\[EHat]tes de colonnes et\\n     t est un tableau \
bidimensionnel.\\n\\nafficheTableau[l, c, t, f] affiche le tableau au format \
num\[EAcute]rique f.\>\""}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"afficheTableauTitre", "::", "usage"}], "=", 
  "\"\<afficheTableauTitre[e, l, c, t] affiche le tableau {{e, c}, {l, t}} o\
\[UGrave]\\n     e d\[EAcute]signe le titre du tableau,\\n     l est la liste \
des en-t\[EHat]tes de lignes,\\n     c est la liste des en-t\[EHat]tes de \
colonnes et\\n     t est un tableau \
bidimensionnel.\\n\\nafficheTableauTitre[e, l, c, t, f] affiche le tableau \
{{e, c}, {l, t}} au format num\[EAcute]rique f.\>\""}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"tableauGraph", "::", "usage"}], "=", "\n", "\t", 
  "\"\<tableauGraph[t] affiche le tableau bidimensionnel t tourn\[EAcute] \
d'un quart de tour;\\nafficheTableau[l, c, t] affiche le tableau {{Null, c}, \
{l, t}} tourn\[EAcute] d'un quart de tour o\[UGrave]\\n     l est la liste \
des en-t\[EHat]tes de lignes,\\n     c est la liste des en-t\[EHat]tes de \
colonnes et\\n     t est un tableau bidimensionnel.\>\""}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"arrondis", "::", "usage"}], "=", "\n", "\t", 
  "\"\<arrondis[x, f] arrondit le nombre (ou la liste) x \[AGrave] un nombre \
entier de fois f.\>\""}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"prodCart", "::", "usage"}], "=", "\n", "\t", 
  "\"\<prodCart[a, b] construit un tableau qui est le produit \
cart\[EAcute]sien\\n     des lignes de a et b.\>\""}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"prodCartTrans", "::", "usage"}], "=", "\n", "\t", 
  "\"\<prodCartTrans[a, b] construit un tableau qui est le produit\\n     \
cart\[EAcute]sien transpos\[EAcute] des lignes de a et b.\>\""}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{"Begin", "[", "\"\<`Private`\>\"", "]"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"fusionneColonnes", "[", 
   RowBox[{"a_List", ",", "b_List"}], "]"}], ":=", 
  RowBox[{"Join", "[", 
   RowBox[{"a", ",", "b"}], "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"fusionneColonnes", "[", 
   RowBox[{"a_List", ",", "b_List", ",", "c__List"}], "]"}], ":=", 
  RowBox[{"fusionneColonnes", "[", 
   RowBox[{
    RowBox[{"fusionneColonnes", "[", 
     RowBox[{"a", ",", "b"}], "]"}], ",", "c"}], "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"fusionneLignes", "[", 
   RowBox[{"a_List", ",", "b_List"}], "]"}], ":=", 
  RowBox[{"Transpose", "[", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", "a", "]"}], ",", 
     RowBox[{"Transpose", "[", "b", "]"}]}], "]"}], "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"fusionneLignes", "[", 
   RowBox[{"a_List", ",", "b_List", ",", "c__List"}], "]"}], ":=", 
  RowBox[{"fusionneLignes", "[", 
   RowBox[{
    RowBox[{"fusionneLignes", "[", 
     RowBox[{"a", ",", "b"}], "]"}], ",", "c"}], "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"fusionneTableaux", "[", 
   RowBox[{"a_List", ",", "b_List", ",", "c_List", ",", "d_List"}], "]"}], ":=",
   
  RowBox[{"fusionneColonnes", "[", 
   RowBox[{
    RowBox[{"fusionneLignes", "[", 
     RowBox[{"a", ",", "b"}], "]"}], ",", 
    RowBox[{"fusionneLignes", "[", 
     RowBox[{"c", ",", "d"}], "]"}]}], "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"arrondis", "[", 
    RowBox[{"Null", ",", "f_"}], "]"}], ":=", "Null"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"arrondis", "[", 
    RowBox[{"x_List", ",", "f_"}], "]"}], ":=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{"Function", "[", 
      RowBox[{"t", ",", 
       RowBox[{"arrondis", "[", 
        RowBox[{"t", ",", "f"}], "]"}]}], "]"}], ",", "x"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"arrondis", "[", 
   RowBox[{"x_", ",", "f_"}], "]"}], ":=", 
  RowBox[{"f", " ", 
   RowBox[{"Floor", "[", 
    RowBox[{
     RowBox[{"x", "/", "f"}], "+", 
     FractionBox["1", "2"]}], "]"}]}]}]}], "Input",
 InitializationCell->True],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"cellule", "[", "Null", "]"}], "=", 
   RowBox[{"ToBoxes", "[", "\"\<\>\"", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"cellule", "[", 
    RowBox[{"{", "}"}], "]"}], "=", 
   RowBox[{"ToBoxes", "[", "\"\<{}\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cellule", "[", "x_List", "]"}], ":=", 
   RowBox[{
    RowBox[{"GridBox", "[", 
     RowBox[{
      RowBox[{"Map", "[", 
       RowBox[{"cellule", ",", "x", ",", 
        RowBox[{"{", "2", "}"}]}], "]"}], ",", 
      RowBox[{"RowLines", "\[Rule]", "True"}], ",", 
      RowBox[{"ColumnLines", "\[Rule]", "True"}]}], "]"}], "/;", " ", 
    RowBox[{"SameQ", "[", 
     RowBox[{
      RowBox[{"Head", "[", 
       RowBox[{"x", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", "List"}], "]"}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"cellule", "[", "x_", "]"}], ":=", 
  RowBox[{"ToBoxes", "[", "x", "]"}]}]}], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"apparence", "[", "x_List", "]"}], ":=", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{"Function", "[", 
     RowBox[{"v", ",", 
      RowBox[{"StyleBox", "[", 
       RowBox[{
        RowBox[{"cellule", "[", "v", "]"}], ",", 
        RowBox[{"FontFamily", "\[Rule]", "\"\<Courier\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSlant", "\[Rule]", "\"\<Oblique\>\""}]}], "]"}]}], "]"}],
     ",", "x", ",", 
    RowBox[{"{", "1", "}"}]}], "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"form", "[", 
   RowBox[{"t_List", ",", "f_List"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "tt", "}"}], ",", 
    RowBox[{
     RowBox[{"tt", "=", 
      RowBox[{"Transpose", "[", "t", "]"}]}], ";", 
     RowBox[{"Transpose", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{"f", "[", 
           RowBox[{"[", "j", "]"}], "]"}], ",", 
          RowBox[{"tt", "[", 
           RowBox[{"[", "j", "]"}], "]"}], ",", 
          RowBox[{"{", "1", "}"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "1", ",", 
          RowBox[{"Length", "[", "tt", "]"}]}], "}"}]}], "]"}], "]"}]}]}], 
   "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"form", "[", 
   RowBox[{"t_List", ",", "f_"}], "]"}], ":=", 
  RowBox[{"Map", "[", 
   RowBox[{"f", ",", "t", ",", 
    RowBox[{"{", "2", "}"}]}], "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"formLigne", "[", 
   RowBox[{"t_List", ",", "f_List"}], "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Map", "[", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"[", "j", "]"}], "]"}], ",", 
      RowBox[{"t", "[", 
       RowBox[{"[", "j", "]"}], "]"}], ",", 
      RowBox[{"{", "1", "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", 
      RowBox[{"Length", "[", "t", "]"}]}], "}"}]}], "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"formLigne", "[", 
   RowBox[{"t_List", ",", "f_"}], "]"}], ":=", 
  RowBox[{"Map", "[", 
   RowBox[{"f", ",", "t", ",", 
    RowBox[{"{", "2", "}"}]}], "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"afficheTableau", "[", 
   RowBox[{"None", ",", " ", "None", ",", "t_List", ",", 
    RowBox[{"f_:", "Identity"}]}], "]"}], ":=", 
  RowBox[{
   RowBox[{"FrameBox", "[", 
    RowBox[{"GridBox", "[", 
     RowBox[{
      RowBox[{"Map", "[", 
       RowBox[{"cellule", ",", 
        RowBox[{"form", "[", 
         RowBox[{"t", ",", "f"}], "]"}], ",", 
        RowBox[{"{", "2", "}"}]}], "]"}], ",", 
      RowBox[{"RowLines", "\[Rule]", "True"}], ",", 
      RowBox[{"ColumnLines", "\[Rule]", "True"}]}], "]"}], "]"}], "//", 
   "DisplayForm"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"afficheTableau", "[", 
   RowBox[{"None", ",", " ", "c_List", ",", "t_List", ",", 
    RowBox[{"f_:", "Identity"}]}], "]"}], ":=", 
  RowBox[{
   RowBox[{"FrameBox", "[", 
    RowBox[{"GridBox", "[", 
     RowBox[{
      RowBox[{"fusionneColonnes", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"apparence", "[", "c", "]"}], "}"}], ",", 
        RowBox[{"Map", "[", 
         RowBox[{"cellule", ",", 
          RowBox[{"form", "[", 
           RowBox[{"t", ",", "f"}], "]"}], ",", 
          RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}], ",", 
      RowBox[{"RowLines", "\[Rule]", "True"}], ",", 
      RowBox[{"ColumnLines", "\[Rule]", "True"}]}], "]"}], "]"}], "//", 
   "DisplayForm"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"afficheTableau", "[", 
   RowBox[{"l_List", ",", " ", "None", ",", "t_List", ",", 
    RowBox[{"f_:", "Identity"}]}], "]"}], ":=", 
  RowBox[{
   RowBox[{"FrameBox", "[", 
    RowBox[{"GridBox", "[", 
     RowBox[{
      RowBox[{"fusionneLignes", "[", 
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{"apparence", "[", "l", "]"}], "}"}], "]"}], ",", 
        RowBox[{"Map", "[", 
         RowBox[{"cellule", ",", 
          RowBox[{"formLigne", "[", 
           RowBox[{"t", ",", "f"}], "]"}], ",", 
          RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}], ",", 
      RowBox[{"RowLines", "\[Rule]", "True"}], ",", 
      RowBox[{"ColumnLines", "\[Rule]", "True"}]}], "]"}], "]"}], "//", 
   "DisplayForm"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"afficheTableau", "[", 
   RowBox[{"l_List", ",", " ", "c_List", ",", "t_List", ",", 
    RowBox[{"f_:", "Identity"}]}], "]"}], ":=", 
  RowBox[{
   RowBox[{"FrameBox", "[", 
    RowBox[{"GridBox", "[", 
     RowBox[{
      RowBox[{"fusionneTableaux", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"{", "\"\<\>\"", "}"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"apparence", "[", "c", "]"}], "}"}], ",", 
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{"apparence", "[", "l", "]"}], "}"}], "]"}], ",", 
        RowBox[{"Map", "[", 
         RowBox[{"cellule", ",", 
          RowBox[{"form", "[", 
           RowBox[{"t", ",", "f"}], "]"}], ",", 
          RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}], ",", 
      RowBox[{"RowLines", "\[Rule]", "True"}], ",", 
      RowBox[{"ColumnLines", "\[Rule]", "True"}]}], "]"}], "]"}], "//", 
   "DisplayForm"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"afficheTableauTitre", "[", 
   RowBox[{"e_", ",", "l_List", ",", " ", "c_List", ",", "t_List", ",", 
    RowBox[{"f_:", "Identity"}]}], "]"}], ":=", 
  RowBox[{
   RowBox[{"FrameBox", "[", 
    RowBox[{"GridBox", "[", 
     RowBox[{
      RowBox[{"fusionneTableaux", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"StyleBox", "[", 
           RowBox[{
            RowBox[{"cellule", "[", "e", "]"}], ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Courier\>\""}], ",", 
            RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
            RowBox[{"FontSlant", "\[Rule]", "\"\<Oblique\>\""}]}], "]"}], 
          "}"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"apparence", "[", "c", "]"}], "}"}], ",", 
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{"apparence", "[", "l", "]"}], "}"}], "]"}], ",", 
        RowBox[{"Map", "[", 
         RowBox[{"cellule", ",", 
          RowBox[{"form", "[", 
           RowBox[{"t", ",", "f"}], "]"}], ",", 
          RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}], ",", 
      RowBox[{"RowLines", "\[Rule]", "True"}], ",", 
      RowBox[{"ColumnLines", "\[Rule]", "True"}]}], "]"}], "]"}], "//", 
   "DisplayForm"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"tableauGraph", "[", "tb_List", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "m", ",", "n", ",", "bLn", ",", "cLn", ",", "\[CapitalDelta]Col", ",", 
      "bCol", ",", "cCol", ",", "i", ",", "j", ",", "t"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"m", ",", "n"}], "}"}], "=", 
      RowBox[{"Dimensions", "[", 
       RowBox[{"tb", ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"t", "=", 
      RowBox[{"Map", "[", 
       RowBox[{"ToString", ",", "tb", ",", 
        RowBox[{"{", "2", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"bLn", "=", 
      RowBox[{"Range", "[", 
       RowBox[{"0", ",", "m"}], "]"}]}], ";", "\n", 
     RowBox[{"cLn", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"bLn", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "+", 
          RowBox[{"bLn", "[", 
           RowBox[{"[", 
            RowBox[{"i", "+", "1"}], "]"}], "]"}]}], "2"], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "m"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"\[CapitalDelta]Col", "=", 
      RowBox[{"3", "+", 
       RowBox[{"Map", "[", 
        RowBox[{"Max", ",", 
         RowBox[{"Map", "[", 
          RowBox[{"StringLength", ",", 
           RowBox[{"Transpose", "[", "t", "]"}], ",", 
           RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}]}], ";", "\n", 
     RowBox[{"bCol", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Apply", "[", 
         RowBox[{"Plus", ",", 
          RowBox[{"\[CapitalDelta]Col", "[", 
           RowBox[{"[", 
            RowBox[{"Range", "[", "j", "]"}], "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "0", ",", "n"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"cCol", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"bCol", "[", 
           RowBox[{"[", "j", "]"}], "]"}], "+", 
          RowBox[{"bCol", "[", 
           RowBox[{"[", 
            RowBox[{"j", "+", "1"}], "]"}], "]"}]}], "2"], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{"Graphics", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Thickness", "[", "0.001", "]"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"Line", "[", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"bLn", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], ",", 
                   RowBox[{"bCol", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"bLn", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], ",", 
                   RowBox[{"bCol", "[", 
                    RowBox[{"[", 
                    RowBox[{"n", "+", "1"}], "]"}], "]"}]}], "}"}]}], "}"}], 
               "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{"m", "+", "1"}]}], "}"}]}], "]"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"Line", "[", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"bLn", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                   RowBox[{"bCol", "[", 
                    RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"bLn", "[", 
                    RowBox[{"[", 
                    RowBox[{"m", "+", "1"}], "]"}], "]"}], ",", 
                   RowBox[{"bCol", "[", 
                    RowBox[{"[", "j", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"j", ",", "1", ",", 
                RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}]}], "}"}], ",", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Text", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"t", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "[", 
               RowBox[{"[", "j", "]"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"cLn", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ",", 
                RowBox[{"cCol", "[", 
                 RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", "0"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", "1"}], "}"}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", "m"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
        RowBox[{"ImageSize", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"18", " ", "m"}], ",", 
           RowBox[{"6", 
            RowBox[{"bCol", "[", 
             RowBox[{"[", 
              RowBox[{"n", "+", "1"}], "]"}], "]"}]}]}], "}"}]}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", 
         FractionBox[
          RowBox[{"6", 
           RowBox[{"bCol", "[", 
            RowBox[{"[", 
             RowBox[{"n", "+", "1"}], "]"}], "]"}]}], 
          RowBox[{"18", " ", "m"}]]}]}], "]"}], "]"}]}]}], "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"tableauGraph", "[", 
   RowBox[{"el_", ",", "ec_", ",", "ta_"}], "]"}], ":=", 
  RowBox[{"tableauGraph", "[", 
   RowBox[{"fusionneTableaux", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"{", "\"\<\>\"", "}"}], "}"}], ",", 
     RowBox[{"{", "ec", "}"}], ",", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", "el", "}"}], "]"}], ",", "ta"}], "]"}], "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"prodCart", "[", 
   RowBox[{"a_List", ",", "b_List"}], "]"}], ":=", 
  RowBox[{"Flatten", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"a", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"b", "[", 
         RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{"Length", "[", "a", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", 
        RowBox[{"Length", "[", "b", "]"}]}], "}"}]}], "]"}], ",", "1"}], 
   "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"prodCartTrans", "[", 
   RowBox[{"a_List", ",", "b_List"}], "]"}], ":=", 
  RowBox[{"Flatten", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"a", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"b", "[", 
         RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", 
        RowBox[{"Length", "[", "b", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{"Length", "[", "a", "]"}]}], "}"}]}], "]"}], ",", "1"}], 
   "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{"End", "[", "]"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{"EndPackage", "[", "]"}]], "Input",
 InitializationCell->True]
},
AutoGeneratedPackage->Automatic,
WindowSize->{901, 935},
WindowMargins->{{96, Automatic}, {-138, Automatic}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 162, 4, 31, "Input",
 InitializationCell->True],
Cell[733, 27, 108, 2, 31, "Input",
 InitializationCell->True],
Cell[844, 31, 257, 8, 63, "Input",
 InitializationCell->True],
Cell[1104, 41, 251, 7, 52, "Input",
 InitializationCell->True],
Cell[1358, 50, 209, 5, 52, "Input",
 InitializationCell->True],
Cell[1570, 57, 451, 8, 112, "Input",
 InitializationCell->True],
Cell[2024, 67, 521, 9, 112, "Input",
 InitializationCell->True],
Cell[2548, 78, 489, 8, 132, "Input",
 InitializationCell->True],
Cell[3040, 88, 222, 5, 52, "Input",
 InitializationCell->True],
Cell[3265, 95, 236, 5, 52, "Input",
 InitializationCell->True],
Cell[3504, 102, 264, 5, 72, "Input",
 InitializationCell->True],
Cell[3771, 109, 101, 2, 31, "Input",
 InitializationCell->True],
Cell[3875, 113, 209, 6, 31, "Input",
 InitializationCell->True],
Cell[4087, 121, 308, 8, 31, "Input",
 InitializationCell->True],
Cell[4398, 131, 323, 9, 31, "Input",
 InitializationCell->True],
Cell[4724, 142, 302, 8, 31, "Input",
 InitializationCell->True],
Cell[5029, 152, 392, 11, 31, "Input",
 InitializationCell->True],
Cell[5424, 165, 703, 24, 85, "Input",
 InitializationCell->True],
Cell[6130, 191, 1002, 31, 112, "Input",
 InitializationCell->True],
Cell[7135, 224, 572, 15, 52, "Input",
 InitializationCell->True],
Cell[7710, 241, 779, 24, 52, "Input",
 InitializationCell->True],
Cell[8492, 267, 227, 7, 31, "Input",
 InitializationCell->True],
Cell[8722, 276, 516, 16, 31, "Input",
 InitializationCell->True],
Cell[9241, 294, 232, 7, 31, "Input",
 InitializationCell->True],
Cell[9476, 303, 616, 17, 52, "Input",
 InitializationCell->True],
Cell[10095, 322, 775, 21, 72, "Input",
 InitializationCell->True],
Cell[10873, 345, 822, 22, 72, "Input",
 InitializationCell->True],
Cell[11698, 369, 979, 26, 72, "Input",
 InitializationCell->True],
Cell[12680, 397, 1320, 33, 132, "Input",
 InitializationCell->True],
Cell[14003, 432, 5963, 159, 328, "Input",
 InitializationCell->True],
Cell[19969, 593, 439, 12, 31, "Input",
 InitializationCell->True],
Cell[20411, 607, 677, 21, 31, "Input",
 InitializationCell->True],
Cell[21091, 630, 682, 21, 31, "Input",
 InitializationCell->True],
Cell[21776, 653, 78, 2, 31, "Input",
 InitializationCell->True],
Cell[21857, 657, 85, 2, 31, "Input",
 InitializationCell->True]
}
]
*)

(* End of internal cache information *)