(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 9178, 206] NotebookOptionsPosition[ 8844, 189] NotebookOutlinePosition[ 9203, 205] CellTagsIndexPosition[ 9160, 202] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"BarChart3D", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "5.3", ",", "5.6", ",", "5.3", ",", "5.4", ",", "5.5", ",", "4.8", ",", "5.7", ",", "4.6", ",", "5.6", ",", "5.5", ",", "4.4", ",", "5.2", ",", "5.3"}], "}"}], ",", RowBox[{"{", RowBox[{ "5.6", ",", "4.8", ",", "3.5", ",", "4.5", ",", "5.5", ",", "4.6", ",", "4.5", ",", "4.9", ",", "4.8", ",", "4.3", ",", "4.2", ",", "5.5", ",", "3.4"}], "}"}], ",", RowBox[{"{", RowBox[{ "5.4", ",", "4.3", ",", "3.9", ",", "3.9", ",", "4.6", ",", "4.5", ",", "4", ",", "4.3", ",", "4.5", ",", "4.1", ",", "4.1", ",", "4.9", ",", "4.7"}], "}"}], ",", RowBox[{"{", RowBox[{ "4.5", ",", "2.5", ",", "1", ",", "3", ",", "4", ",", "3.5", ",", "5", ",", "2.5", ",", "4", ",", "3", ",", "2", ",", "4", ",", "4.5"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.5", ",", "2.5", ",", "1", ",", "2", ",", "1.5", ",", "2", ",", "1.5", ",", "1.5", ",", "1.5", ",", "1.5", ",", "1.5", ",", "1.5", ",", "1.5"}], "}"}]}], "}"}], "[", RowBox[{"[", RowBox[{"i", ";;", "j"}], "]"}], "]"}], "]"}], ",", RowBox[{"ChartLayout", "\[Rule]", "p"}], ",", RowBox[{"ChartLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], "[", RowBox[{"[", RowBox[{"i", ";;", "j"}], "]"}], "]"}], ",", "Below"}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "1", ",", "\"\\""}], "}"}], ",", "1", ",", RowBox[{"j", "-", "1"}], ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "1", ",", "\"\\""}], "}"}], ",", "1", ",", "5", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "p", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.57641633306653*^9, 3.576416380125383*^9}, { 3.576416589353421*^9, 3.576416756770234*^9}, {3.57641681247008*^9, 3.576416862328409*^9}, {3.57641691948094*^9, 3.576416924833498*^9}, { 3.576416956035879*^9, 3.576417017493198*^9}, 3.576417105922121*^9, { 3.57641729800921*^9, 3.576417300440199*^9}, {3.576417332756194*^9, 3.576417347505715*^9}, {3.57641742310804*^9, 3.576417424652638*^9}, { 3.57641751514887*^9, 3.5764175527661448`*^9}, {3.5764176321142397`*^9, 3.5764176322132883`*^9}, {3.576487270106637*^9, 3.576487452561495*^9}, { 3.576487519116857*^9, 3.57648752070203*^9}, {3.5764875550650167`*^9, 3.576487563144623*^9}, {3.576487619330715*^9, 3.57648768240722*^9}, { 3.57648771459212*^9, 3.576487781425796*^9}, {3.57648786073247*^9, 3.576487874779976*^9}, {3.5764880883871117`*^9, 3.576488174719487*^9}, { 3.576488320988352*^9, 3.576488331560051*^9}, {3.576488437611495*^9, 3.576488445402589*^9}, {3.576488505293384*^9, 3.576488510826612*^9}, { 3.576488548124248*^9, 3.576488594847411*^9}, {3.576488634462501*^9, 3.576488650818123*^9}, {3.576488825748262*^9, 3.576488941597022*^9}, { 3.5764889854630404`*^9, 3.5764889891573963`*^9}, {3.5764894297524147`*^9, 3.576489574405036*^9}, {3.576489638171608*^9, 3.576489646590087*^9}, { 3.576489819953492*^9, 3.576489844235044*^9}, {3.5764899625225153`*^9, 3.57649000701163*^9}, {3.576490050593931*^9, 3.576490055885127*^9}, { 3.57649117374325*^9, 3.576491209334469*^9}, {3.576491262739643*^9, 3.5764912722314177`*^9}, {3.576491353184599*^9, 3.576491443140497*^9}, { 3.5764914806302*^9, 3.576491709058878*^9}, 3.576491814710499*^9, { 3.576491853332622*^9, 3.5764919443380413`*^9}, 3.5764920492924147`*^9, { 3.57649208933807*^9, 3.57649209432131*^9}, {3.5764921543738527`*^9, 3.576492168043326*^9}, {3.5764922458983307`*^9, 3.5764922473937397`*^9}, 3.576492433085432*^9}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`i$$ = 1, $CellContext`j$$ = 1, $CellContext`p$$ = "Grouped", Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`i$$], 1, "Discipline initiale"}, 1, Dynamic[$CellContext`j$$ - 1], 1}, {{ Hold[$CellContext`j$$], 1, "Discipline finale"}, 1, 5, 1}, {{ Hold[$CellContext`p$$], "Grouped", "Pr\[EAcute]sentation"}, { "Grouped" -> "Group\[EAcute]e", "Stepped" -> "En escaliers", "Stacked" -> "Empil\[EAcute]e", "Percentile" -> "En %", "Grid" -> "En rang"}}}, Typeset`size$$ = {540., {229., 196.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`i$260482$$ = 0, $CellContext`j$260483$$ = 0, $CellContext`p$260484$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`i$$ = 1, $CellContext`j$$ = 1, $CellContext`p$$ = "Grouped"}, "ControllerVariables" :> { Hold[$CellContext`i$$, $CellContext`i$260482$$, 0], Hold[$CellContext`j$$, $CellContext`j$260483$$, 0], Hold[$CellContext`p$$, $CellContext`p$260484$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> BarChart3D[ Transpose[ Part[{{5.3, 5.6, 5.3, 5.4, 5.5, 4.8, 5.7, 4.6, 5.6, 5.5, 4.4, 5.2, 5.3}, {5.6, 4.8, 3.5, 4.5, 5.5, 4.6, 4.5, 4.9, 4.8, 4.3, 4.2, 5.5, 3.4}, {5.4, 4.3, 3.9, 3.9, 4.6, 4.5, 4, 4.3, 4.5, 4.1, 4.1, 4.9, 4.7}, {4.5, 2.5, 1, 3, 4, 3.5, 5, 2.5, 4, 3, 2, 4, 4.5}, { 1.5, 2.5, 1, 2, 1.5, 2, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5}}, Span[$CellContext`i$$, $CellContext`j$$]]], ChartLayout -> $CellContext`p$$, ChartLegends -> Placed[ Part[{"Devoirs MA", "Physique", "Math", "AM 1e partie", "AM 2e partie"}, Span[$CellContext`i$$, $CellContext`j$$]], Below]], "Specifications" :> {{{$CellContext`i$$, 1, "Discipline initiale"}, 1, Dynamic[$CellContext`j$$ - 1], 1, Appearance -> "Labeled"}, {{$CellContext`j$$, 1, "Discipline finale"}, 1, 5, 1, Appearance -> "Labeled"}, {{$CellContext`p$$, "Grouped", "Pr\[EAcute]sentation"}, { "Grouped" -> "Group\[EAcute]e", "Stepped" -> "En escaliers", "Stacked" -> "Empil\[EAcute]e", "Percentile" -> "En %", "Grid" -> "En rang"}}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{606., {312., 321.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.576553220668968*^9}] }, Open ]] }, WindowSize->{1132, 1096}, WindowMargins->{{655, Automatic}, {Automatic, 98}}, FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (January 25, \ 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 4984, 102, 419, "Input"], Cell[5566, 126, 3262, 60, 691, "Output"] }, Open ]] } ] *) (* End of internal cache information *)