(* 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[ 96515, 3370] NotebookOptionsPosition[ 87150, 3054] NotebookOutlinePosition[ 88431, 3096] CellTagsIndexPosition[ 88135, 3086] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[{ "Le package ", StyleBox["Tableaux", FontWeight->"Bold"], " offre des proc\[EAcute]dures pour afficher des tableaux." }], "Text"], Cell["Pour avoir acc\[EGrave]s au package :", "Text"], Cell[BoxData[ RowBox[{"<<", "Tableaux`"}]], "Input"], Cell["Fonctions disponibles :", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Names", "[", "\"\\"", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"afficheTableau\"\>", ",", "\<\"afficheTableauTitre\"\>", ",", "\<\"arrondis\"\>", ",", "\<\"fusionneColonnes\"\>", ",", "\<\"fusionneLignes\"\>", ",", "\<\"fusionneTableaux\"\>", ",", "\<\"prodCart\"\>", ",", "\<\"prodCartTrans\"\>", ",", "\<\"tableauGraph\"\>"}], "}"}]], "Output", CellChangeTimes->{3.4299371445399756`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Afficher un tableau vertical (sans en-t\[EHat]tes de lignes)\ \>", "Subsection"], Cell[TextData[{ "Lorsqu'il remplace la liste des en-t\[EHat]tes de lignes, l'argument ", StyleBox["None", FontSlant->"Italic"], " signifie que les lignes n'ont pas d'en-t\[EHat]tes." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"afficheTableau", "[", RowBox[{"None", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "10", ",", "11", ",", "12"}], "}"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ { StyleBox["\<\"a\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"b\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"c\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"d\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"]}, {"1", "2", "3", "4"}, {"5", "6", "7", "8"}, {"9", "10", "11", "12"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.4299371445589757`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Afficher un tableau horizontal (sans en-t\[EHat]tes de colonnes)\ \>", "Subsection"], Cell[TextData[{ "Lorsqu'il remplace la liste des en-t\[EHat]tes de colonnes, l'argument ", StyleBox["None", FontSlant->"Italic"], " signifie que les colonnes n'ont pas d'en-t\[EHat]tes." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"afficheTableau", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", "None", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "10", ",", "11", ",", "12"}], "}"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ { StyleBox["\<\"a\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "1", "2", "3", "4"}, { StyleBox["\<\"b\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "5", "6", "7", "8"}, { StyleBox["\<\"c\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "9", "10", "11", "12"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.4299371445759754`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Afficher un tableau avec en-t\[EHat]tes de lignes et de colonnes\ \>", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "afficheTableau"}]], "Input"], Cell[BoxData[ StyleBox["\<\"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.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.429937144807976*^9}, CellTags->"Info3429944344-4707179"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"afficheTableau", "[", RowBox[{ RowBox[{"Range", "[", "3", "]"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12", ",", "13", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "22", ",", "23", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "32", ",", "33", ",", "34"}], "}"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ {"", StyleBox["\<\"A\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"B\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"C\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"D\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"]}, { StyleBox["1", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "11", "12", "13", "14"}, { StyleBox["2", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "21", "22", "23", "24"}, { StyleBox["3", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "31", "32", "33", "34"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.4299371448479757`*^9}] }, Open ]], Cell[TextData[{ "Il faut donner dans l'ordre\n\tla liste des en-t\[EHat]tes de lignes \t\t\ {", Cell[BoxData[ FormBox[ SubscriptBox["l", "1"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["l", "2"], TraditionalForm]]], ", ..., ", Cell[BoxData[ FormBox[ SubscriptBox["l", "m"], TraditionalForm]]], "}\n\tla liste des en-t\[EHat]tes de colonnes\t{", Cell[BoxData[ FormBox[ SubscriptBox["c", "1"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["c", "2"], TraditionalForm]]], ", ..., ", Cell[BoxData[ FormBox[ SubscriptBox["c", "n"], TraditionalForm]]], "}\n\tle tableau bidimensionnel\t\t{{", Cell[BoxData[ FormBox[ SubscriptBox["t", "11"], TraditionalForm]]], ", ..., ", Cell[BoxData[ FormBox[ SubscriptBox["t", RowBox[{"1", "n"}]], TraditionalForm]]], "}, {", Cell[BoxData[ FormBox[ SubscriptBox["t", "21"], TraditionalForm]]], ", ..., ", Cell[BoxData[ FormBox[ SubscriptBox["t", RowBox[{"2", "n"}]], TraditionalForm]]], "}, ..., {", Cell[BoxData[ FormBox[ SubscriptBox["t", "m1"], TraditionalForm]]], ", ..., ", Cell[BoxData[ FormBox[ SubscriptBox["t", "mn"], TraditionalForm]]], "}}" }], "Text"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Tableau avec en-t\[EHat]tes de lignes et de colonnes et qui porte un titre\ \>", "Subsection"], Cell["\<\ Il est possible de donner un titre au tableau, dans la cellule \ sup\[EAcute]rieure gauche\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "afficheTableauTitre"}]], "Input"], Cell[BoxData[ StyleBox["\<\"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.\"\>", "MSG"]], "Print", \ "PrintUsage", CellChangeTimes->{3.4299371450519753`*^9}, CellTags->"Info3429944344-6037931"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"afficheTableauTitre", "[", RowBox[{"\"\\"", ",", RowBox[{"Range", "[", "3", "]"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12", ",", "13", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "22", ",", "23", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "32", ",", "33", ",", "34"}], "}"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ { StyleBox["\<\"Tableau\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"A\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"B\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"C\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"D\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"]}, { StyleBox["1", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "11", "12", "13", "14"}, { StyleBox["2", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "21", "22", "23", "24"}, { StyleBox["3", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "31", "32", "33", "34"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.4299371450989757`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Formatage des nombres r\[EAcute]els et arrondis\ \>", "Subsection"], Cell["\<\ Une fonction \[AGrave] un argument peut \[EHat]tre pass\[EAcute] comme quatri\ \[EGrave]me param\[EGrave]tre optionnel pour d\[EAcute]finir un format num\ \[EAcute]rique \tN, \tEngineeringForm \tScientificForm, \tAccountingForm\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"afficheTableau", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"N", "[", "\[Pi]", "]"}], ",", "45", ",", "56789"}], "}"}], ",", RowBox[{"{", RowBox[{"0.000545", ",", "123458.", ",", "987.12"}], "}"}]}], "}"}], ",", "EngineeringForm"}], "]"}]], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ {"", StyleBox["\<\"A\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"B\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"C\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"]}, { StyleBox["1", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], TagBox[ InterpretationBox["\<\"3.14159\"\>", 3.141592653589793, AutoDelete->True], EngineeringForm], TagBox[ InterpretationBox["\<\"45\"\>", 45, Editable->False], EngineeringForm], TagBox[ InterpretationBox["\<\"56789\"\>", 56789, Editable->False], EngineeringForm]}, { StyleBox["2", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], TagBox[ InterpretationBox[ RowBox[{"\<\"545.\"\>", "\[Times]", SuperscriptBox["10", "\<\"-6\"\>"]}], 0.000545, AutoDelete->True], EngineeringForm], TagBox[ InterpretationBox[ RowBox[{"\<\"123.458\"\>", "\[Times]", SuperscriptBox["10", "\<\"3\"\>"]}], 123458., AutoDelete->True], EngineeringForm], TagBox[ InterpretationBox["\<\"987.12\"\>", 987.12, AutoDelete->True], EngineeringForm]} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.4299371451229753`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"afficheTableau", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"N", "[", "\[Pi]", "]"}], ",", "45", ",", "56789"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0545", ",", "12345.", ",", "987.12"}], "}"}]}], "}"}], ",", "ScientificForm"}], "]"}]], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ {"", StyleBox["\<\"A\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"B\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"C\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"]}, { StyleBox["1", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], TagBox[ InterpretationBox["\<\"3.14159\"\>", 3.141592653589793, AutoDelete->True], ScientificForm], TagBox[ InterpretationBox["\<\"45\"\>", 45, Editable->False], ScientificForm], TagBox[ InterpretationBox["\<\"56789\"\>", 56789, Editable->False], ScientificForm]}, { StyleBox["2", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], TagBox[ InterpretationBox[ RowBox[{"\<\"5.45\"\>", "\[Times]", SuperscriptBox["10", "\<\"-2\"\>"]}], 0.0545, AutoDelete->True], ScientificForm], TagBox[ InterpretationBox[ RowBox[{"\<\"1.2345\"\>", "\[Times]", SuperscriptBox["10", "\<\"4\"\>"]}], 12345., AutoDelete->True], ScientificForm], TagBox[ InterpretationBox[ RowBox[{"\<\"9.8712\"\>", "\[Times]", SuperscriptBox["10", "\<\"2\"\>"]}], 987.12, AutoDelete->True], ScientificForm]} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.4299371451389756`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"afficheTableau", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"N", "[", "\[Pi]", "]"}], ",", "45", ",", "56789"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0545", ",", "12345.", ",", "987.12"}], "}"}]}], "}"}], ",", "AccountingForm"}], "]"}]], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ {"", StyleBox["\<\"A\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"B\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"C\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"]}, { StyleBox["1", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], TagBox[ InterpretationBox["\<\"3.14159\"\>", 3.141592653589793, AutoDelete->True], AccountingForm], TagBox[ InterpretationBox["\<\"45\"\>", 45, Editable->False], AccountingForm], TagBox[ InterpretationBox["\<\"56789\"\>", 56789, Editable->False], AccountingForm]}, { StyleBox["2", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], TagBox[ InterpretationBox["\<\"0.0545\"\>", 0.0545, AutoDelete->True], AccountingForm], TagBox[ InterpretationBox["\<\"12345.\"\>", 12345., AutoDelete->True], AccountingForm], TagBox[ InterpretationBox["\<\"987.12\"\>", 987.12, AutoDelete->True], AccountingForm]} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.4299371451569757`*^9}] }, Open ]], Cell[TextData[{ "L'utilisateur peut d\[EAcute]finir sa propre fonction de formatage.\nVoici \ quelques exemples o\[UGrave] on utilise les commandes ", StyleBox["Mathematica", FontSlant->"Italic"], " ", StyleBox["N", FontWeight->"Bold"], " et ", StyleBox["PaddedForm", FontWeight->"Bold"], " :" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "form", "]"}], ";", RowBox[{ RowBox[{"form", "[", "v_", "]"}], ":=", RowBox[{"N", "[", RowBox[{"v", ",", "4"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"x", "=", RowBox[{"Range", "[", "9", "]"}]}], ";", RowBox[{"y", "=", SqrtBox["x"]}], ";"}], "\n", RowBox[{"afficheTableau", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<\!\(\*SqrtBox[\(x\)]\)\>\""}], "}"}], ",", "None", ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "form"}], "]"}]}], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ { StyleBox["\<\"x\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "1.`3.9999999999999996", "2.`3.9999999999999996", "3.`4.000000000000001", "4.`3.9999999999999996", "5.`3.9999999999999996", "6.`4.000000000000001", "7.`3.9999999999999996", "8.`3.9999999999999996", "9.`4.000000000000001"}, { StyleBox["\<\"\\!\\(\\*SqrtBox[\\(x\\)]\\)\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "1.`3.9999999999999996", "1.4142135623730950488`3.9999999999999996", "1.7320508075688772935`4.000000000000001", "2.`3.9999999999999996", "2.2360679774997896964`4.000000000000001", "2.4494897427831780982`4.000000000000001", "2.6457513110645905905`4.000000000000001", "2.8284271247461900976`3.9999999999999996", "3.`4.000000000000001"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.4299371451939754`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "form", "]"}], ";", RowBox[{ RowBox[{"form", "[", "v_", "]"}], ":=", RowBox[{"PaddedForm", "[", RowBox[{ RowBox[{"N", "[", "v", "]"}], ",", RowBox[{"{", RowBox[{"5", ",", "4"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"x", "=", RowBox[{"Range", "[", "9", "]"}]}], ";", RowBox[{"y", "=", SqrtBox["x"]}], ";"}], "\n", RowBox[{"afficheTableau", "[", RowBox[{"None", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<\!\(\*SqrtBox[\(x\)]\)\>\""}], "}"}], ",", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "]"}], ",", "form"}], "]"}]}], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ { StyleBox["\<\"x\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"\\!\\(\\*SqrtBox[\\(x\\)]\\)\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"]}, { TagBox[ InterpretationBox["\<\" 1.0000\"\>", 1., AutoDelete->True], PaddedForm[#, {5, 4}]& ], TagBox[ InterpretationBox["\<\" 1.0000\"\>", 1., AutoDelete->True], PaddedForm[#, {5, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 2.0000\"\>", 2., AutoDelete->True], PaddedForm[#, {5, 4}]& ], TagBox[ InterpretationBox["\<\" 1.4142\"\>", 1.4142135623730951`, AutoDelete->True], PaddedForm[#, {5, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 3.0000\"\>", 3., AutoDelete->True], PaddedForm[#, {5, 4}]& ], TagBox[ InterpretationBox["\<\" 1.7321\"\>", 1.7320508075688772`, AutoDelete->True], PaddedForm[#, {5, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 4.0000\"\>", 4., AutoDelete->True], PaddedForm[#, {5, 4}]& ], TagBox[ InterpretationBox["\<\" 2.0000\"\>", 2., AutoDelete->True], PaddedForm[#, {5, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 5.0000\"\>", 5., AutoDelete->True], PaddedForm[#, {5, 4}]& ], TagBox[ InterpretationBox["\<\" 2.2361\"\>", 2.23606797749979, AutoDelete->True], PaddedForm[#, {5, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 6.0000\"\>", 6., AutoDelete->True], PaddedForm[#, {5, 4}]& ], TagBox[ InterpretationBox["\<\" 2.4495\"\>", 2.449489742783178, AutoDelete->True], PaddedForm[#, {5, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 7.0000\"\>", 7., AutoDelete->True], PaddedForm[#, {5, 4}]& ], TagBox[ InterpretationBox["\<\" 2.6458\"\>", 2.6457513110645907`, AutoDelete->True], PaddedForm[#, {5, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 8.0000\"\>", 8., AutoDelete->True], PaddedForm[#, {5, 4}]& ], TagBox[ InterpretationBox["\<\" 2.8284\"\>", 2.8284271247461903`, AutoDelete->True], PaddedForm[#, {5, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 9.0000\"\>", 9., AutoDelete->True], PaddedForm[#, {5, 4}]& ], TagBox[ InterpretationBox["\<\" 3.0000\"\>", 3., AutoDelete->True], PaddedForm[#, {5, 4}]& ]} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.4299371452109756`*^9}] }, Open ]], Cell[TextData[{ "On peut aussi utiliser la fonction \"", StyleBox["arrondis[x, f]", FontWeight->"Bold"], "\" de \"", StyleBox["Tableaux", FontWeight->"Bold"], "\" :" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "arrondis"}]], "Input"], Cell[BoxData[ StyleBox["\<\"arrondis[x, f] arrondit le nombre (ou la liste) x \[AGrave] un \ nombre entier de fois f.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.4299371454139757`*^9}, CellTags->"Info3429944345-5156272"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "form", "]"}], ";", RowBox[{ RowBox[{"form", "[", "v_", "]"}], ":=", RowBox[{"arrondis", "[", RowBox[{"v", ",", "0.0025"}], "]"}]}]}], "\n", RowBox[{ RowBox[{"x", "=", RowBox[{"Range", "[", "9", "]"}]}], ";", RowBox[{"y", "=", SqrtBox["x"]}], ";"}], "\n", RowBox[{"afficheTableau", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<\!\(\*SqrtBox[\(x\)]\)\>\""}], "}"}], ",", "None", ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "form"}], "]"}]}], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ { StyleBox["\<\"x\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "1.`", "2.`", "3.`", "4.`", "5.`", "6.`", "7.`", "8.`", "9.`"}, { StyleBox["\<\"\\!\\(\\*SqrtBox[\\(x\\)]\\)\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "1.`", "1.415`", "1.7325`", "2.`", "2.235`", "2.45`", "2.645`", "2.8275`", "3.`"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.4299371454719753`*^9}] }, Open ]], Cell[TextData[{ "Il est possible de donner une ", StyleBox["liste de formats", FontVariations->{"Underline"->True}], ".\nA l'exception du cas o\[UGrave] le tableau est horizontal, c'est ", StyleBox["\[AGrave] chaque colonne", FontVariations->{"Underline"->True}], " du tableau que correspond une fonction de formatage. Il faut que le nombre \ de formats soit \[GreaterEqual] au nombre de colonnes." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"afficheTableau", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Pi]", ",", "45", ",", "56789"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0545", ",", "12345.", ",", "987.12"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"N", ",", "EngineeringForm", ",", "ScientificForm"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ {"", StyleBox["\<\"A\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"B\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"C\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"]}, { StyleBox["1", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "3.141592653589793`", TagBox[ InterpretationBox["\<\"45\"\>", 45, Editable->False], EngineeringForm], TagBox[ InterpretationBox["\<\"56789\"\>", 56789, Editable->False], ScientificForm]}, { StyleBox["2", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "0.0545`", TagBox[ InterpretationBox[ RowBox[{"\<\"12.345\"\>", "\[Times]", SuperscriptBox["10", "\<\"3\"\>"]}], 12345., AutoDelete->True], EngineeringForm], TagBox[ InterpretationBox[ RowBox[{"\<\"9.8712\"\>", "\[Times]", SuperscriptBox["10", "\<\"2\"\>"]}], 987.12, AutoDelete->True], ScientificForm]} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.4299371455019755`*^9}] }, Open ]], Cell[TextData[{ "Le format ", StyleBox["Identity", FontWeight->"Bold"], " n'a aucun effet." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "form", "]"}], ";", RowBox[{ RowBox[{"form", "[", "v_", "]"}], ":=", RowBox[{"PaddedForm", "[", RowBox[{ RowBox[{"N", "[", "v", "]"}], ",", RowBox[{"{", RowBox[{"5", ",", "4"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"x", "=", RowBox[{"Range", "[", "9", "]"}]}], ";", RowBox[{"y", "=", SqrtBox["x"]}], ";"}], "\n", RowBox[{"afficheTableau", "[", RowBox[{"None", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<\!\(\*SqrtBox[\(x\)]\)\>\""}], "}"}], ",", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"Identity", ",", "form"}], "}"}]}], "]"}]}], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ { StyleBox["\<\"x\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"\\!\\(\\*SqrtBox[\\(x\\)]\\)\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"]}, {"1", TagBox[ InterpretationBox["\<\" 1.0000\"\>", 1., AutoDelete->True], PaddedForm[#, {5, 4}]& ]}, {"2", TagBox[ InterpretationBox["\<\" 1.4142\"\>", 1.4142135623730951`, AutoDelete->True], PaddedForm[#, {5, 4}]& ]}, {"3", TagBox[ InterpretationBox["\<\" 1.7321\"\>", 1.7320508075688772`, AutoDelete->True], PaddedForm[#, {5, 4}]& ]}, {"4", TagBox[ InterpretationBox["\<\" 2.0000\"\>", 2., AutoDelete->True], PaddedForm[#, {5, 4}]& ]}, {"5", TagBox[ InterpretationBox["\<\" 2.2361\"\>", 2.23606797749979, AutoDelete->True], PaddedForm[#, {5, 4}]& ]}, {"6", TagBox[ InterpretationBox["\<\" 2.4495\"\>", 2.449489742783178, AutoDelete->True], PaddedForm[#, {5, 4}]& ]}, {"7", TagBox[ InterpretationBox["\<\" 2.6458\"\>", 2.6457513110645907`, AutoDelete->True], PaddedForm[#, {5, 4}]& ]}, {"8", TagBox[ InterpretationBox["\<\" 2.8284\"\>", 2.8284271247461903`, AutoDelete->True], PaddedForm[#, {5, 4}]& ]}, {"9", TagBox[ InterpretationBox["\<\" 3.0000\"\>", 3., AutoDelete->True], PaddedForm[#, {5, 4}]& ]} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.4299371455499754`*^9}] }, Open ]], Cell["\<\ Dans le cas particulier o\[UGrave] le tableau est horizontal \ (c'est-\[AGrave]-dire si on donne les en-t\[EHat]tes des lignes mais pas \ celles des colonnes), c'est \[AGrave] chaque ligne que correspond chaque \ format:\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "form", "]"}], ";", RowBox[{ RowBox[{"form", "[", "v_", "]"}], ":=", RowBox[{"PaddedForm", "[", RowBox[{ RowBox[{"N", "[", "v", "]"}], ",", RowBox[{"{", RowBox[{"5", ",", "4"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"x", "=", RowBox[{"Range", "[", "9", "]"}]}], ";", RowBox[{"y", "=", SqrtBox["x"]}], ";"}], "\n", RowBox[{"afficheTableau", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<\!\(\*SqrtBox[\(x\)]\)\>\""}], "}"}], ",", "None", ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{"{", RowBox[{"Identity", ",", "form"}], "}"}]}], "]"}]}], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ { StyleBox["\<\"x\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "1", "2", "3", "4", "5", "6", "7", "8", "9"}, { StyleBox["\<\"\\!\\(\\*SqrtBox[\\(x\\)]\\)\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], TagBox[ InterpretationBox["\<\" 1.0000\"\>", 1., AutoDelete->True], PaddedForm[#, {5, 4}]& ], TagBox[ InterpretationBox["\<\" 1.4142\"\>", 1.4142135623730951`, AutoDelete->True], PaddedForm[#, {5, 4}]& ], TagBox[ InterpretationBox["\<\" 1.7321\"\>", 1.7320508075688772`, AutoDelete->True], PaddedForm[#, {5, 4}]& ], TagBox[ InterpretationBox["\<\" 2.0000\"\>", 2., AutoDelete->True], PaddedForm[#, {5, 4}]& ], TagBox[ InterpretationBox["\<\" 2.2361\"\>", 2.23606797749979, AutoDelete->True], PaddedForm[#, {5, 4}]& ], TagBox[ InterpretationBox["\<\" 2.4495\"\>", 2.449489742783178, AutoDelete->True], PaddedForm[#, {5, 4}]& ], TagBox[ InterpretationBox["\<\" 2.6458\"\>", 2.6457513110645907`, AutoDelete->True], PaddedForm[#, {5, 4}]& ], TagBox[ InterpretationBox["\<\" 2.8284\"\>", 2.8284271247461903`, AutoDelete->True], PaddedForm[#, {5, 4}]& ], TagBox[ InterpretationBox["\<\" 3.0000\"\>", 3., AutoDelete->True], PaddedForm[#, {5, 4}]& ]} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.4299371455749755`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Afficher un tableau tourn\[EAcute] d'un quart de tour\ \>", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "tableauGraph"}]], "Input"], Cell[BoxData[ StyleBox["\<\"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.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.4299371457839756`*^9}, CellTags->"Info3429944345-8418530"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"tableauGraph", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "14"}], "}"}]}], "}"}], "]"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"96", ",", "101325", ",", "143263"}], "}"}], ",", RowBox[{"{", RowBox[{"801098", ",", "5000", ",", "148"}], "}"}], ",", RowBox[{"{", RowBox[{"92703", ",", "172", ",", "153153"}], "}"}], ",", RowBox[{"{", RowBox[{"474395", ",", "112673", ",", "18310"}], "}"}], ",", RowBox[{"{", RowBox[{"77", ",", "116665", ",", "163620"}], "}"}], ",", RowBox[{"{", RowBox[{"513", ",", "10799", ",", "169050"}], "}"}], ",", RowBox[{"{", RowBox[{"75", ",", "125046", ",", "174644"}], "}"}], ",", RowBox[{"{", RowBox[{"935453", ",", "19403", ",", "78"}], "}"}], ",", RowBox[{"{", RowBox[{"9864", ",", "133912", ",", "75"}], "}"}], ",", RowBox[{"{", RowBox[{"757", ",", "8511", ",", "192335"}], "}"}]}], "}"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"96", ",", "101325", ",", "143263"}], "}"}], ",", RowBox[{"{", RowBox[{"801098", ",", "5000", ",", "148"}], "}"}], ",", RowBox[{"{", RowBox[{"92703", ",", "172", ",", "153153"}], "}"}], ",", RowBox[{"{", RowBox[{"474395", ",", "112673", ",", "18310"}], "}"}], ",", RowBox[{"{", RowBox[{"77", ",", "116665", ",", "163620"}], "}"}], ",", RowBox[{"{", RowBox[{"513", ",", "10799", ",", "169050"}], "}"}], ",", RowBox[{"{", RowBox[{"75", ",", "125046", ",", "174644"}], "}"}], ",", RowBox[{"{", RowBox[{"935453", ",", "19403", ",", "78"}], "}"}], ",", RowBox[{"{", RowBox[{"9864", ",", "133912", ",", "75"}], "}"}], ",", RowBox[{"{", RowBox[{"757", ",", "8511", ",", "192335"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.4299371458489757`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"formatNum", "[", RowBox[{"nbChiffres_", ",", "niveau_"}], "]"}], "[", "v_", "]"}], ":=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"PaddedForm", "[", RowBox[{"#", ",", "nbChiffres"}], "]"}], "&"}], ",", "v", ",", RowBox[{"{", "niveau", "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"tableauGraph", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "9"}], "]"}], ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", RowBox[{ RowBox[{"formatNum", "[", RowBox[{"6", ",", "2"}], "]"}], "[", "t", "]"}]}], "]"}], ";"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Afficher un tableau transpos\[EAcute] (\[EAcute]changer lignes-colonnes)\ \>", "Subsection"], Cell["\<\ Si on veut \[EAcute]changer les lignes et et colonnes, il faut \tintervertir les en-t\[EHat]tes des lignes et les en-t\[EHat]tes des \ colonnes et \ttransposer le tableau\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"afficheTableau", "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"Range", "[", "3", "]"}], ",", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12", ",", "13", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "22", ",", "23", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "32", ",", "33", ",", "34"}], "}"}]}], "}"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ {"", StyleBox["1", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["2", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["3", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"]}, { StyleBox["\<\"A\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "11", "21", "31"}, { StyleBox["\<\"B\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "12", "22", "32"}, { StyleBox["\<\"C\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "13", "23", "33"}, { StyleBox["\<\"D\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "14", "24", "34"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.4299371458819757`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Fusion de tableaux, tableaux embo\[IHat]t\[EAcute]s\ \>", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"a", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "25", ",", "26"}], "}"}]}], "}"}]}], ";", RowBox[{"TableForm", "[", "a", "]"}]}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"11", "12", "13"}, {"24", "25", "26"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.4299371459009757`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"b", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"31", ",", "32", ",", "33"}], "}"}], ",", RowBox[{"{", RowBox[{"44", ",", "45", ",", "46"}], "}"}]}], "}"}]}], ";", RowBox[{"TableForm", "[", "b", "]"}]}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"31", "32", "33"}, {"44", "45", "46"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.4299371459209757`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"c", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"51", ",", "52", ",", "53"}], "}"}], ",", RowBox[{"{", RowBox[{"64", ",", "65", ",", "66"}], "}"}]}], "}"}]}], ";", RowBox[{"TableForm", "[", "c", "]"}]}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"51", "52", "53"}, {"64", "65", "66"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.4299371459399757`*^9}] }, Open ]], Cell[TextData[{ StyleBox["fusionneLignes[a, b, ...] ", FontWeight->"Bold"], " assemble a, b, ... en un seul tableau o\[UGrave] a, b, ... sont dispos\ \[EAcute]s c\[OHat]te \[AGrave] c\[OHat]te, horizontalement, de gauche \ \[AGrave] droite.\nf", StyleBox["usionneLignes[a, b, ...]", FontWeight->"Bold"], " n\[EAcute]cessite que les tableaux a, b, ... aient le m\[EHat]me nombre \ de lignes." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"afficheTableau", "[", RowBox[{"None", ",", "None", ",", RowBox[{"fusionneLignes", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ {"11", "12", "13", "31", "32", "33", "51", "52", "53"}, {"24", "25", "26", "44", "45", "46", "64", "65", "66"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.429937145958976*^9}] }, Open ]], Cell[TextData[{ StyleBox["fusionneColonne[a, b, ...] ", FontWeight->"Bold"], "assemble a, b, ... en un seul tableau o\[UGrave] a, b, sont \ dispos\[EAcute]s l'un au-dessous de l'autre, de haut en bas, verticalement.\n\ ", StyleBox["f", FontWeight->"Bold"], StyleBox["usionneColonnes[a, b, ...]", FontWeight->"Bold"], " n\[EAcute]cessite que les tableaux a, b, ... aient le m\[EHat]me nombre \ de colonnes." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"afficheTableau", "[", RowBox[{"None", ",", "None", ",", RowBox[{"fusionneColonnes", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ {"11", "12", "13"}, {"24", "25", "26"}, {"31", "32", "33"}, {"44", "45", "46"}, {"51", "52", "53"}, {"64", "65", "66"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.4299371459769754`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Produit cart\[EAcute]sien de deux tableaux\ \>", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "prodCart"}]], "Input"], Cell[BoxData[ StyleBox["\<\"prodCart[a, b] construit un tableau qui est le produit cart\ \[EAcute]sien\\n des lignes de a et b.\"\>", "MSG"]], "Print", \ "PrintUsage", CellChangeTimes->{3.4299371461789756`*^9}, CellTags->"Info3429944345-1619558"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "prodCartTrans"}]], "Input"], Cell[BoxData[ StyleBox["\<\"prodCartTrans[a, b] construit un tableau qui est le produit\\n \ cart\[EAcute]sien transpos\[EAcute] des lignes de a et b.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.4299371464039755`*^9}, CellTags->"Info3429944346-9463482"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"a", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], "}"}], "]"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"b", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], "}"}], "]"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"prodCart", "[", RowBox[{"a", ",", "b"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"lundi\"\>", ",", "\<\"matin\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"lundi\"\>", ",", "\<\"midi\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"lundi\"\>", ",", "\<\"soir\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"mardi\"\>", ",", "\<\"matin\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"mardi\"\>", ",", "\<\"midi\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"mardi\"\>", ",", "\<\"soir\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"mercredi\"\>", ",", "\<\"matin\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"mercredi\"\>", ",", "\<\"midi\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"mercredi\"\>", ",", "\<\"soir\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"jeudi\"\>", ",", "\<\"matin\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"jeudi\"\>", ",", "\<\"midi\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"jeudi\"\>", ",", "\<\"soir\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"vendredi\"\>", ",", "\<\"matin\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"vendredi\"\>", ",", "\<\"midi\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"vendredi\"\>", ",", "\<\"soir\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"samedi\"\>", ",", "\<\"matin\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"samedi\"\>", ",", "\<\"midi\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"samedi\"\>", ",", "\<\"soir\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"dimanche\"\>", ",", "\<\"matin\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"dimanche\"\>", ",", "\<\"midi\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"dimanche\"\>", ",", "\<\"soir\"\>"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.429937146451976*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"10", " ", "i"}], "+", "j"}], ",", RowBox[{"{", RowBox[{"i", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "2"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "32"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.4299371464749756`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"100", " ", "i"}], "+", RowBox[{"10", "j"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "4"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"110", ",", "120", ",", "130", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"210", ",", "220", ",", "230", ",", "240"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.4299371465059757`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"prodCart", "[", RowBox[{"a", ",", "b"}], "]"}], "//", "TableForm"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"11", "12", "110", "120", "130", "140"}, {"11", "12", "210", "220", "230", "240"}, {"21", "22", "110", "120", "130", "140"}, {"21", "22", "210", "220", "230", "240"}, {"31", "32", "110", "120", "130", "140"}, {"31", "32", "210", "220", "230", "240"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.4299371465289755`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"prodCartTrans", "[", RowBox[{"a", ",", "b"}], "]"}], "//", "TableForm"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"11", "12", "110", "120", "130", "140"}, {"21", "22", "110", "120", "130", "140"}, {"31", "32", "110", "120", "130", "140"}, {"11", "12", "210", "220", "230", "240"}, {"21", "22", "210", "220", "230", "240"}, {"31", "32", "210", "220", "230", "240"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.4299371465709753`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Tableaux embo\[IHat]t\[EAcute]s", "Subsubsection"], Cell[TextData[{ "Chaque cellule du tableau ", StyleBox["afficheTableau", FontWeight->"Bold"], " peut \[EHat]tre un tableau, rectangulaire ou non." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"afficheTableau", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", "None", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"{", RowBox[{"{", RowBox[{"21", ",", "22"}], "}"}], "}"}], ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "71", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"{", RowBox[{"721", ",", "722"}], "}"}], "}"}], "}"}]}], "}"}], ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "10", ",", "11", ",", "12"}], "}"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ { StyleBox["\<\"a\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "1", GridBox[{ {"21", "22"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}], "3", "4"}, { StyleBox["\<\"b\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "5", "6", GridBox[{ {"71"}, {GridBox[{ {"721", "722"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}], "8"}, { StyleBox["\<\"c\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "9", "10", "11", "12"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.4299371465939755`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"afficheTableau", "[", RowBox[{"None", ",", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\\"", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], "}"}], "}"}]}], "}"}], ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"{", RowBox[{"{", RowBox[{"21", ",", "22"}], "}"}], "}"}], ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "71", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"{", RowBox[{"721", ",", "722"}], "}"}], "}"}], "}"}]}], "}"}], ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "10", ",", "11", ",", "12"}], "}"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ { StyleBox["\<\"a\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox[GridBox[{ {"\<\"b1\"\>", "\<\"b2\"\>"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}], FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox[GridBox[{ {"\<\"c1\"\>"}, {GridBox[{ {"\<\"c2\"\>", "\<\"c3\"\>"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}], FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"d\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"]}, {"1", GridBox[{ {"21", "22"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}], "3", "4"}, {"5", "6", GridBox[{ {"71"}, {GridBox[{ {"721", "722"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}], "8"}, {"9", "10", "11", "12"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.4299371466229753`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"afficheTableauTitre", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "\"\\"", "}"}], ",", RowBox[{"{", "\"\\"", "}"}]}], "}"}], ",", RowBox[{"Range", "[", "3", "]"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12", ",", "13", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "22", ",", "23", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "32", ",", "33", ",", "34"}], "}"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ { StyleBox[GridBox[{ {"\<\"Type \[RightArrow]\"\>"}, {"\<\"Num\[EAcute]ro \[DownArrow]\"\>"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}], FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"A\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"B\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"C\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"D\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"]}, { StyleBox["1", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "11", "12", "13", "14"}, { StyleBox["2", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "21", "22", "23", "24"}, { StyleBox["3", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "31", "32", "33", "34"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.429937146647976*^9}] }, Open ]], Cell[TextData[{ "Voici deux tableaux ", StyleBox["afficheTableau", FontWeight->"Bold"], " imbriqu\[EAcute]s" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"at", "=", RowBox[{"afficheTableau", "[", RowBox[{"None", ",", RowBox[{"{", RowBox[{"2001", ",", "2002", ",", "2001"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "22", ",", "23"}], "}"}]}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ { StyleBox["2001", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["2002", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["2001", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"]}, {"11", "12", "13"}, {"21", "22", "23"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.4299371466699753`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"afficheTableau", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", "None", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "at", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "10", ",", "11", ",", "12"}], "}"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ { StyleBox["\<\"a\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "1", "2", "3", "4"}, { StyleBox["\<\"b\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "5", TagBox[ FrameBox[GridBox[{ { StyleBox["2001", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["2002", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["2001", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"]}, {"11", "12", "13"}, {"21", "22", "23"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm], "7", "8"}, { StyleBox["\<\"c\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "9", "10", "11", "12"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.4299371466969757`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Compatibilit\[EAcute] avec TableForm", "Subsubsection"], Cell[TextData[{ "Chaque cellule du tableau ", StyleBox["afficheTableau", FontWeight->"Bold"], " peut \[EHat]tre un tableau ", StyleBox["TableForm", FontWeight->"Bold"] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"TableForm", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\\"", "}"}], ",", RowBox[{"{", "\"\<1\>\"", "}"}]}], "}"}], "]"}]}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"\<\"N\[Degree]\"\>"}, {"\<\"1\"\>"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.4299371467299757`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b", "=", RowBox[{"TableForm", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\\"", "}"}], ",", RowBox[{"{", "\"\<1\>\"", "}"}], ",", RowBox[{"{", "bis", "}"}]}], "}"}], "]"}]}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"\<\"N\[Degree]\"\>"}, {"\<\"1\"\>"}, {"bis"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.4299371467579756`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c", "=", RowBox[{"TableForm", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\\"", "}"}], ",", RowBox[{"{", "\"\<2\>\"", "}"}]}], "}"}], "]"}]}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"\<\"N\[Degree]\"\>"}, {"\<\"2\"\>"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.4299371467829757`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"afficheTableau", "[", RowBox[{"None", ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "11", ",", "12"}], "}"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ { StyleBox[ TagBox[GridBox[{ {"\<\"N\[Degree]\"\>"}, {"\<\"1\"\>"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]], FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox[ TagBox[GridBox[{ {"\<\"N\[Degree]\"\>"}, {"\<\"1\"\>"}, {"bis"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]], FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox[ TagBox[GridBox[{ {"\<\"N\[Degree]\"\>"}, {"\<\"2\"\>"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]], FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"]}, {"2", "3", "4"}, {"5", "7", "8"}, {"10", "11", "12"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.4299371468049755`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"titre", "=", RowBox[{"TableForm", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\<\>\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<\>\""}], "}"}]}], "}"}], "]"}]}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Type\"\>"}, {"\<\"Num\[EAcute]ro\"\>", "\<\"\"\>"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.4299371468289757`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"afficheTableauTitre", "[", RowBox[{"titre", ",", RowBox[{"Range", "[", "3", "]"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12", ",", "13", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "22", ",", "23", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "32", ",", "33", ",", "34"}], "}"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ { StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Type\"\>"}, {"\<\"Num\[EAcute]ro\"\>", "\<\"\"\>"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]], FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"A\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"B\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"C\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"D\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"]}, { StyleBox["1", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "11", "12", "13", "14"}, { StyleBox["2", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "21", "22", "23", "24"}, { StyleBox["3", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "31", "32", "33", "34"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.4299371468549757`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tf", "=", RowBox[{"TableForm", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"13", "*", "i"}], "+", "j"}], ",", RowBox[{"{", RowBox[{"i", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"TableSpacing", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}]}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"14", "15", "16", "17", "18"}, {"27", "28", "29", "30", "31"}, {"40", "41", "42", "43", "44"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[1.4]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$, TableSpacing -> {1, 2}]]]], "Output", CellChangeTimes->{3.4299371468759756`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"afficheTableau", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", "None", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "tf", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "10", ",", "11", ",", "12"}], "}"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ { StyleBox["\<\"a\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "1", "2", "3", "4"}, { StyleBox["\<\"b\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "5", TagBox[GridBox[{ {"14", "15", "16", "17", "18"}, {"27", "28", "29", "30", "31"}, {"40", "41", "42", "43", "44"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[1.4]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$, TableSpacing -> {1, 2}]]], "7", "8"}, { StyleBox["\<\"c\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "9", "10", "11", "12"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.4299371469039755`*^9}] }, Open ]], Cell[TextData[{ "Chaque cellule du tableau ", StyleBox["TableForm", FontWeight->"Bold"], " peut \[EHat]tre un tableau ", StyleBox[" afficheTableau", FontWeight->"Bold"] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"t1", "=", RowBox[{"afficheTableau", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", "None", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "10", ",", "11", ",", "12"}], "}"}]}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"t2", "=", RowBox[{"afficheTableau", "[", RowBox[{"None", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "10", ",", ",", "12"}], "}"}]}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{"TableForm", "[", RowBox[{"{", RowBox[{"{", RowBox[{"t1", ",", "t2"}], "}"}], "}"}], "]"}]}], "Input"], Cell[BoxData[ TagBox[GridBox[{ { TagBox[ FrameBox[GridBox[{ { StyleBox["\<\"a\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "1", "2", "3", "4"}, { StyleBox["\<\"b\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "5", "6", "7", "8"}, { StyleBox["\<\"c\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "9", "10", "11", "12"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm], TagBox[ FrameBox[GridBox[{ { StyleBox["\<\"w\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"x\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"y\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"z\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"]}, {"1", "2", "\<\"\"\>", "4"}, {"5", "6", "7", "8"}, {"9", "10", "\<\"\"\>", "12"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.4299371469289756`*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Correction des erreurs", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"afficheTableau", "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"Range", "[", "3", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12", ",", "13", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "22", ",", "23", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "32", ",", "33", ",", "34"}], "}"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"Transpose", "::", "\<\"nmtx\"\>"}], RowBox[{ ":", " "}], "\<\"The first two levels of the one-dimensional list \ \\!\\({\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)}\\) cannot be transposed. \\!\ \\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/Transpose\\\", ButtonNote -> \\\ \"Transpose::nmtx\\\"]\\)\"\>"}]], "Message", CellChangeTimes->{3.4299371471849756`*^9}], Cell[BoxData[ TagBox[ FrameBox[ RowBox[{"GridBox", "[", RowBox[{ RowBox[{"fusionneColonnes", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"\<\"\"\>", ",", StyleBox["1", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], ",", StyleBox["2", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], ",", StyleBox["3", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"]}], "}"}], "}"}], ",", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ StyleBox["\<\"A\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], ",", StyleBox["\<\"B\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], ",", StyleBox["\<\"C\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], ",", StyleBox["\<\"D\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"]}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"11\"\>", ",", "\<\"21\"\>", ",", "\<\"31\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"12\"\>", ",", "\<\"22\"\>", ",", "\<\"32\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"13\"\>", ",", "\<\"23\"\>", ",", "\<\"33\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"14\"\>", ",", "\<\"24\"\>", ",", "\<\"34\"\>"}], "}"}]}], "}"}], "]"}]}], "]"}], ",", RowBox[{"RowLines", "\[Rule]", "True"}], ",", RowBox[{"ColumnLines", "\[Rule]", "True"}]}], "]"}]], DisplayForm]], "Output", CellChangeTimes->{3.4299371471939754`*^9}] }, Open ]], Cell["\<\ Ce genre de message survient dans les cas suivants \tle nombre d'en-t\[EHat]tes de lignes n'est pas \[EAcute]gal au nombre de \ lignes du tableau ou \tle nombre d'en-t\[EHat]tes de colonnes n'est pas \[EAcute]gal au nombre de \ colonnes du tableau ou \tle tableau n'est pas rectangulaire. Si on peut afficher le tableau sans en-t\[EHat]tes\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"afficheTableau", "[", RowBox[{"None", ",", "None", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12", ",", "13", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "22", ",", "23", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "32", ",", "33", ",", "34"}], "}"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ {"11", "12", "13", "14"}, {"21", "22", "23", "24"}, {"31", "32", "33", "34"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.4299371472289753`*^9}] }, Open ]], Cell["\<\ cela signifie qu'il est rectangulaire et que le probl\[EGrave]me vient du \ nombre d'en-t\[EHat]tes de lignes ou du nombre d'en-t\[EHat]tes de colonnes. On peut observer qu'il y a 3 lignes et 4 colonnes, ce qui permet de rectifier\ \ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"afficheTableau", "[", RowBox[{ RowBox[{"Range", "[", "3", "]"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12", ",", "13", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "22", ",", "23", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "32", ",", "33", ",", "34"}], "}"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ {"", StyleBox["\<\"A\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"B\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"C\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], StyleBox["\<\"D\"\>", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"]}, { StyleBox["1", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "11", "12", "13", "14"}, { StyleBox["2", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "21", "22", "23", "24"}, { StyleBox["3", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], "31", "32", "33", "34"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.429937147246976*^9}] }, Open ]], Cell["\<\ Par contre, si le tableau sans en-t\[EHat]tes ne s'affiche pas, c'est qu'il \ n'est pas rectangulaire\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"afficheTableau", "[", RowBox[{"None", ",", "None", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12", ",", "13", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "23", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "32", ",", "33", ",", "34"}], "}"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ FrameBox[ RowBox[{"GridBox", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"11\"\>", ",", "\<\"12\"\>", ",", "\<\"13\"\>", ",", "\<\"14\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"21\"\>", ",", "\<\"23\"\>", ",", "\<\"24\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"31\"\>", ",", "\<\"32\"\>", ",", "\<\"33\"\>", ",", "\<\"34\"\>"}], "}"}]}], "}"}], ",", RowBox[{"RowLines", "\[Rule]", "True"}], ",", RowBox[{"ColumnLines", "\[Rule]", "True"}]}], "]"}]], DisplayForm]], "Output", CellChangeTimes->{3.4299371472629757`*^9}] }, Open ]], Cell["\<\ En effet, alors que les lignes 1 et 3 sont form\[EAcute]e de 4 \[EAcute]l\ \[EAcute]ments, la ligne 2 ne poss\[EGrave]de que 3 \[EAcute]l\[EAcute]ments. \ Il est cependant possible de laisser une cellule vide\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"afficheTableau", "[", RowBox[{"None", ",", "None", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12", ",", "13", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", ",", "23", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "32", ",", "33", ",", "34"}], "}"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ FrameBox[GridBox[{ {"11", "12", "13", "14"}, {"21", "\<\"\"\>", "23", "24"}, {"31", "32", "33", "34"} }, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]], DisplayForm]], "Output", CellChangeTimes->{3.4299371472809753`*^9}] }, Open ]] }, Open ]] }, WindowSize->{971, 802}, WindowMargins->{{125, Automatic}, {-9, Automatic}}, ShowSelection->True, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Info3429944344-4707179"->{ Cell[4829, 183, 458, 7, 126, "Print", CellTags->"Info3429944344-4707179"]}, "Info3429944344-6037931"->{ Cell[8617, 328, 539, 9, 143, "Print", CellTags->"Info3429944344-6037931"]}, "Info3429944345-5156272"->{ Cell[24469, 910, 237, 4, 40, "Print", CellTags->"Info3429944345-5156272"]}, "Info3429944345-8418530"->{ Cell[34493, 1271, 503, 8, 109, "Print", CellTags->"Info3429944345-8418530"]}, "Info3429944345-1619558"->{ Cell[45141, 1641, 253, 5, 58, "Print", CellTags->"Info3429944345-1619558"]}, "Info3429944346-9463482"->{ Cell[45490, 1654, 277, 5, 58, "Print", CellTags->"Info3429944346-9463482"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Info3429944344-4707179", 87477, 3065}, {"Info3429944344-6037931", 87587, 3068}, {"Info3429944345-5156272", 87697, 3071}, {"Info3429944345-8418530", 87807, 3074}, {"Info3429944345-1619558", 87919, 3077}, {"Info3429944346-9463482", 88030, 3080} } *) (*NotebookFileOutline Notebook[{ Cell[568, 21, 149, 5, 29, "Text"], Cell[720, 28, 53, 0, 29, "Text"], Cell[776, 30, 53, 1, 31, "Input"], Cell[832, 33, 39, 0, 29, "Text"], Cell[CellGroupData[{ Cell[896, 37, 75, 1, 31, "Input"], Cell[974, 40, 386, 7, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1397, 52, 90, 2, 36, "Subsection"], Cell[1490, 56, 199, 5, 29, "Text"], Cell[CellGroupData[{ Cell[1714, 65, 498, 15, 31, "Input"], Cell[2215, 82, 829, 28, 100, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[3093, 116, 94, 2, 36, "Subsection"], Cell[3190, 120, 203, 5, 29, "Text"], Cell[CellGroupData[{ Cell[3418, 129, 474, 14, 31, "Input"], Cell[3895, 145, 706, 23, 84, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4650, 174, 94, 2, 36, "Subsection"], Cell[CellGroupData[{ Cell[4769, 180, 57, 1, 31, "Input"], Cell[4829, 183, 458, 7, 126, "Print", CellTags->"Info3429944344-4707179"] }, Open ]], Cell[CellGroupData[{ Cell[5324, 195, 537, 16, 31, "Input"], Cell[5864, 213, 1166, 40, 100, "Output"] }, Open ]], Cell[7045, 256, 1224, 53, 85, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[8306, 314, 104, 2, 36, "Subsection"], Cell[8413, 318, 114, 3, 29, "Text"], Cell[CellGroupData[{ Cell[8552, 325, 62, 1, 31, "Input"], Cell[8617, 328, 539, 9, 143, "Print", CellTags->"Info3429944344-6037931"] }, Open ]], Cell[CellGroupData[{ Cell[9193, 342, 566, 16, 31, "Input"], Cell[9762, 360, 1284, 44, 100, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[11095, 410, 77, 2, 36, "Subsection"], Cell[11175, 414, 251, 8, 101, "Text"], Cell[CellGroupData[{ Cell[11451, 426, 510, 15, 31, "Input"], Cell[11964, 443, 1774, 65, 86, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13775, 513, 506, 15, 31, "Input"], Cell[14284, 530, 1840, 67, 86, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16161, 602, 506, 15, 31, "Input"], Cell[16670, 619, 1613, 61, 84, "Output"] }, Open ]], Cell[18298, 683, 318, 12, 47, "Text"], Cell[CellGroupData[{ Cell[18641, 699, 571, 18, 81, "Input"], Cell[19215, 719, 1173, 28, 74, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20425, 752, 703, 22, 81, "Input"], Cell[21131, 776, 3058, 116, 202, "Output"] }, Open ]], Cell[24204, 895, 186, 8, 29, "Text"], Cell[CellGroupData[{ Cell[24415, 907, 51, 1, 31, "Input"], Cell[24469, 910, 237, 4, 40, "Print", CellTags->"Info3429944345-5156272"] }, Open ]], Cell[CellGroupData[{ Cell[24743, 919, 578, 18, 81, "Input"], Cell[25324, 939, 706, 20, 74, "Output"] }, Open ]], Cell[26045, 962, 419, 9, 65, "Text"], Cell[CellGroupData[{ Cell[26489, 975, 539, 15, 52, "Input"], Cell[27031, 992, 1538, 55, 86, "Output"] }, Open ]], Cell[28584, 1050, 108, 5, 29, "Text"], Cell[CellGroupData[{ Cell[28717, 1059, 759, 24, 81, "Input"], Cell[29479, 1085, 1924, 71, 202, "Output"] }, Open ]], Cell[31418, 1159, 244, 5, 29, "Text"], Cell[CellGroupData[{ Cell[31687, 1168, 720, 23, 81, "Input"], Cell[32410, 1193, 1868, 63, 74, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[34327, 1262, 83, 2, 36, "Subsection"], Cell[CellGroupData[{ Cell[34435, 1268, 55, 1, 31, "Input"], Cell[34493, 1271, 503, 8, 109, "Print", CellTags->"Info3429944345-8418530"] }, Open ]], Cell[35011, 1282, 346, 11, 31, "Input"], Cell[CellGroupData[{ Cell[35382, 1297, 894, 23, 52, "Input"], Cell[36279, 1322, 895, 23, 50, "Output"] }, Open ]], Cell[37189, 1348, 347, 10, 31, "Input"], Cell[37539, 1360, 337, 11, 31, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[37913, 1376, 102, 2, 36, "Subsection"], Cell[38018, 1380, 194, 5, 65, "Text"], Cell[CellGroupData[{ Cell[38237, 1389, 584, 17, 31, "Input"], Cell[38824, 1408, 1173, 41, 116, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[40046, 1455, 81, 2, 36, "Subsection"], Cell[CellGroupData[{ Cell[40152, 1461, 289, 9, 31, "Input"], Cell[40444, 1472, 578, 17, 56, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41059, 1494, 289, 9, 31, "Input"], Cell[41351, 1505, 578, 17, 56, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41966, 1527, 289, 9, 31, "Input"], Cell[42258, 1538, 578, 17, 56, "Output"] }, Open ]], Cell[42851, 1558, 412, 10, 47, "Text"], Cell[CellGroupData[{ Cell[43288, 1572, 183, 4, 31, "Input"], Cell[43474, 1578, 394, 10, 68, "Output"] }, Open ]], Cell[43883, 1591, 430, 12, 47, "Text"], Cell[CellGroupData[{ Cell[44338, 1607, 185, 4, 31, "Input"], Cell[44526, 1613, 424, 14, 132, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44987, 1632, 75, 2, 28, "Subsubsection"], Cell[CellGroupData[{ Cell[45087, 1638, 51, 1, 31, "Input"], Cell[45141, 1641, 253, 5, 58, "Print", CellTags->"Info3429944345-1619558"] }, Open ]], Cell[CellGroupData[{ Cell[45431, 1651, 56, 1, 31, "Input"], Cell[45490, 1654, 277, 5, 58, "Print", CellTags->"Info3429944346-9463482"] }, Open ]], Cell[45782, 1662, 349, 9, 31, "Input"], Cell[46134, 1673, 233, 7, 31, "Input"], Cell[CellGroupData[{ Cell[46392, 1684, 84, 2, 31, "Input"], Cell[46479, 1688, 1857, 46, 69, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[48373, 1739, 269, 9, 31, "Input"], Cell[48645, 1750, 280, 9, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[48962, 1764, 292, 10, 31, "Input"], Cell[49257, 1776, 274, 8, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49568, 1789, 117, 3, 31, "Input"], Cell[49688, 1794, 806, 21, 116, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50531, 1820, 122, 3, 31, "Input"], Cell[50656, 1825, 806, 21, 116, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[51511, 1852, 56, 0, 28, "Subsubsection"], Cell[51570, 1854, 163, 5, 29, "Text"], Cell[CellGroupData[{ Cell[51758, 1863, 795, 26, 31, "Input"], Cell[52556, 1891, 1337, 40, 102, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[53930, 1936, 1125, 36, 52, "Input"], Cell[55058, 1974, 2130, 62, 134, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[57225, 2041, 716, 21, 52, "Input"], Cell[57944, 2064, 1539, 50, 116, "Output"] }, Open ]], Cell[59498, 2117, 125, 5, 29, "Text"], Cell[CellGroupData[{ Cell[59648, 2126, 389, 12, 31, "Input"], Cell[60040, 2140, 664, 23, 84, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[60741, 2168, 475, 14, 31, "Input"], Cell[61219, 2184, 1408, 45, 126, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[62676, 2235, 61, 0, 28, "Subsubsection"], Cell[62740, 2237, 187, 7, 29, "Text"], Cell[CellGroupData[{ Cell[62952, 2248, 211, 6, 31, "Input"], Cell[63166, 2256, 577, 17, 56, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[63780, 2278, 249, 7, 31, "Input"], Cell[64032, 2287, 590, 18, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[64659, 2310, 211, 6, 31, "Input"], Cell[64873, 2318, 577, 17, 56, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[65487, 2340, 413, 12, 31, "Input"], Cell[65903, 2354, 2532, 76, 130, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[68472, 2435, 294, 9, 31, "Input"], Cell[68769, 2446, 608, 17, 58, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[69414, 2468, 556, 16, 31, "Input"], Cell[69973, 2486, 1914, 61, 116, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[71924, 2552, 441, 14, 31, "Input"], Cell[72368, 2568, 662, 18, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[73067, 2591, 475, 14, 31, "Input"], Cell[73545, 2607, 1392, 41, 114, "Output"] }, Open ]], Cell[74952, 2651, 188, 7, 29, "Text"], Cell[CellGroupData[{ Cell[75165, 2662, 1205, 37, 72, "Input"], Cell[76373, 2701, 2146, 65, 100, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[78580, 2773, 44, 0, 36, "Subsection"], Cell[CellGroupData[{ Cell[78649, 2777, 537, 16, 31, "Input"], Cell[79189, 2795, 471, 9, 22, "Message"], Cell[79663, 2806, 2012, 58, 75, "Output"] }, Open ]], Cell[81690, 2867, 363, 8, 101, "Text"], Cell[CellGroupData[{ Cell[82078, 2879, 399, 11, 31, "Input"], Cell[82480, 2892, 367, 11, 84, "Output"] }, Open ]], Cell[82862, 2906, 256, 5, 47, "Text"], Cell[CellGroupData[{ Cell[83143, 2915, 537, 16, 31, "Input"], Cell[83683, 2933, 1164, 40, 100, "Output"] }, Open ]], Cell[84862, 2976, 125, 3, 29, "Text"], Cell[CellGroupData[{ Cell[85012, 2983, 388, 11, 31, "Input"], Cell[85403, 2996, 678, 19, 51, "Output"] }, Open ]], Cell[86096, 3018, 232, 4, 29, "Text"], Cell[CellGroupData[{ Cell[86353, 3026, 393, 11, 31, "Input"], Cell[86749, 3039, 373, 11, 84, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)