(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 177083, 4215] NotebookOptionsPosition[ 174344, 4119] NotebookOutlinePosition[ 174702, 4135] CellTagsIndexPosition[ 174659, 4132] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Pr\[EAcute]sentation interactive de vos notes et de vos moyennes\ \>", "Subtitle", CellChangeTimes->{{3.561729397139264*^9, 3.561729417182436*^9}}], Cell["\<\ Nous avons r\[EAcute]alis\[EAcute], \[AGrave] partir d\[CloseCurlyQuote]un \ tableau Excel contenant des noms d\[CloseCurlyQuote]\[EAcute]l\[EGrave]ves et \ leurs notes, un petit programme permettant d\[CloseCurlyQuote]obtenir la \ moyenne d\[CloseCurlyQuote]un \[EAcute]l\[EGrave]ve \ lorsqu\[CloseCurlyQuote]on indique son nom.\ \>", "Text", CellChangeTimes->{{3.561725509432962*^9, 3.561725652491007*^9}}], Cell[CellGroupData[{ Cell["Donn\[EAcute]es", "Subsubsection", CellChangeTimes->{{3.561725863964538*^9, 3.5617258963026743`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data1", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "5.17`", ",", "4.63`", ",", "5.`", ",", "3.69`", ",", "4.2`", ",", "6.`", ",", "5.25`", ",", "4.04`", ",", "4.91`", ",", "4.5`", ",", "\"\<-\>\"", ",", "78.63`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "4.97`", ",", "3.46`", ",", "4.87`", ",", "4.31`", ",", "4.71`", ",", "6.`", ",", "4.03`", ",", "1.5`", ",", "1.`", ",", "1.`", ",", "\"\<-\>\"", ",", "59.07`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "3.5`", ",", "\"\<-\>\"", ",", "4.2`", ",", "3.19`", ",", "5.51`", ",", "5.25`", ",", "3.72`", ",", "5.38`", ",", "4.52`", ",", "5.`", ",", "\"\<-\>\"", ",", "74.08`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "4.43`", ",", "\"\<-\>\"", ",", "4.13`", ",", "3.04`", ",", "6.`", ",", "6.`", ",", "3.56`", ",", "4.84`", ",", "3.94`", ",", "1.`", ",", "\"\<-\>\"", ",", "67.83`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "5.33`", ",", "\"\<-\>\"", ",", "4.67`", ",", "\"\<-\>\"", ",", "6.`", ",", "6.`", ",", "4.28`", ",", "4.02`", ",", "4.28`", ",", "1.`", ",", "\"\<-\>\"", ",", "73.58`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "4.4`", ",", "\"\<-\>\"", ",", "4.13`", ",", "3.58`", ",", "5.43`", ",", "4.05`", ",", "3.13`", ",", "5.24`", ",", "4.85`", ",", "1.`", ",", "\"\<-\>\"", ",", "65.67`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "2.97`", ",", "2.71`", ",", "3.93`", ",", "3.5`", ",", "4.94`", ",", "6.`", ",", "3.84`", ",", "4.04`", ",", "4.32`", ",", "4.`", ",", "\"\<-\>\"", ",", "66.54`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "5.43`", ",", "\"\<-\>\"", ",", "5.17`", ",", "3.81`", ",", "5.54`", ",", "6.`", ",", "4.56`", ",", "1.`", ",", "5.17`", ",", "4.5`", ",", "\"\<-\>\"", ",", "75.82`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "4.83`", ",", "3.91`", ",", "4.4`", ",", "3.69`", ",", "4.03`", ",", "5.1`", ",", "5.38`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "\"\<-\>\"", ",", "56.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "4.13`", ",", "5.31`", ",", "5.67`", ",", "5.55`", ",", "5.63`", ",", "5.25`", ",", "3.81`", ",", "4.83`", ",", "5.49`", ",", "5.5`", ",", "\"\<-\>\"", ",", "85.03`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "4.6`", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "4.69`", ",", "5.54`", ",", "5.4`", ",", "3.16`", ",", "5.2`", ",", "1.59`", ",", "1.`", ",", "\"\<-\>\"", ",", "64.2`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "3.5`", ",", "2.97`", ",", "3.9`", ",", "3.55`", ",", "5.53`", ",", "3.6`", ",", "4.`", ",", "5.14`", ",", "4.4`", ",", "1.`", ",", "\"\<-\>\"", ",", "62.01`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "4.68`", ",", "3.37`", ",", "5.33`", ",", "4.38`", ",", "4.16`", ",", "5.7`", ",", "4.31`", ",", "2.44`", ",", "3.59`", ",", "5.5`", ",", "\"\<-\>\"", ",", "71.96`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "4.77`", ",", "4.92`", ",", "6.`", ",", "4.63`", ",", "6.`", ",", "5.85`", ",", "4.5`", ",", "2.59`", ",", "3.53`", ",", "1.`", ",", "\"\<-\>\"", ",", "72.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "4.7`", ",", "3.98`", ",", "5.27`", ",", "4.56`", ",", "6.`", ",", "6.`", ",", "4.97`", ",", "2.45`", ",", "4.38`", ",", "1.`", ",", "\"\<-\>\"", ",", "71.71`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "4.23`", ",", "3.81`", ",", "3.93`", ",", "4.`", ",", "4.41`", ",", "5.85`", ",", "5.31`", ",", "3.26`", ",", "4.06`", ",", "5.5`", ",", "\"\<-\>\"", ",", "73.51`"}], "}"}]}], "}"}], "/.", RowBox[{"{", RowBox[{"1.`", "\[Rule]", "1.5"}], "}"}]}]}]], "Input", CellChangeTimes->{{3.561725837865479*^9, 3.561725847111639*^9}, { 3.561725901209989*^9, 3.561725929918921*^9}, {3.562682511257449*^9, 3.562682521401608*^9}, 3.562683123938036*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"Pr\[EAcute]nom\"\>", ",", "\<\"Nom\"\>", ",", "\<\"Num\[EAcute]ro d'identification\"\>", ",", "\<\"Institution\"\>", ",", "\<\"D\[EAcute]partement\"\>", ",", "\<\"Adresse de courriel\"\>", ",", "\<\"Test Premiers pas dans les iLES\"\>", ",", "\<\"Test Internet et le Web\"\>", ",", "\<\"Test Rechercher sur la toile\"\>", ",", "\<\"Test Rechercher avec Wolfram Alpha\"\>", ",", "\<\"Test Impact social d'Internet\"\>", ",", "\<\"Test Outils de publication sur Internet\"\>", ",", "\<\"Test Structure de Mathematica\"\>", ",", "\<\"Test Affectations, r\[EGrave]gles et motifs\"\>", ",", "\<\"Test Langages de programmation\"\>", ",", "\<\"R\[EAcute]daction SPIP\"\>", ",", "\<\"Test Epreuve OCinf\"\>", ",", "\<\"Total du cours\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Teo\"\>", ",", "\<\"Armici\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"teo.armici@gmail.com\"\>", ",", "5.17`", ",", "4.63`", ",", "5.`", ",", "3.69`", ",", "4.2`", ",", "6.`", ",", "5.25`", ",", "4.04`", ",", "4.91`", ",", "4.5`", ",", "\<\"-\"\>", ",", "78.63`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Valentin\"\>", ",", "\<\"Burdet\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"valentin.895@hotmail.com\"\>", ",", "4.97`", ",", "3.46`", ",", "4.87`", ",", "4.31`", ",", "4.71`", ",", "6.`", ",", "4.03`", ",", "1.5`", ",", "1.5`", ",", "1.5`", ",", "\<\"-\"\>", ",", "59.07`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Daniela\"\>", ",", "\<\"Camara Angulo\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"daniela7294@hotmail.com\"\>", ",", "3.5`", ",", "\<\"-\"\>", ",", "4.2`", ",", "3.19`", ",", "5.51`", ",", "5.25`", ",", "3.72`", ",", "5.38`", ",", "4.52`", ",", "5.`", ",", "\<\"-\"\>", ",", "74.08`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"S\[EAcute]verine\"\>", ",", "\<\"Comtat\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"s_comtat@hotmail.fr\"\>", ",", "4.43`", ",", "\<\"-\"\>", ",", "4.13`", ",", "3.04`", ",", "6.`", ",", "6.`", ",", "3.56`", ",", "4.84`", ",", "3.94`", ",", "1.5`", ",", "\<\"-\"\>", ",", "67.83`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Rafael\"\>", ",", "\<\"Dias Pereira\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"carouge1994@hotmail.com\"\>", ",", "5.33`", ",", "\<\"-\"\>", ",", "4.67`", ",", "\<\"-\"\>", ",", "6.`", ",", "6.`", ",", "4.28`", ",", "4.02`", ",", "4.28`", ",", "1.5`", ",", "\<\"-\"\>", ",", "73.58`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"H\[EAcute]l\[EGrave]ne\"\>", ",", "\<\"Du\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"ely.duong@hotmail.com\"\>", ",", "4.4`", ",", "\<\"-\"\>", ",", "4.13`", ",", "3.58`", ",", "5.43`", ",", "4.05`", ",", "3.13`", ",", "5.24`", ",", "4.85`", ",", "1.5`", ",", "\<\"-\"\>", ",", "65.67`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Lakkat\"\>", ",", "\<\"Haas Strauf\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"l@i-les.ch\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Shineka\"\>", ",", "\<\"Logeswaran\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"shineka_21@hotmail.com\"\>", ",", "2.97`", ",", "2.71`", ",", "3.93`", ",", "3.5`", ",", "4.94`", ",", "6.`", ",", "3.84`", ",", "4.04`", ",", "4.32`", ",", "4.`", ",", "\<\"-\"\>", ",", "66.54`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Abel\"\>", ",", "\<\"Mahari\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"abel213@hotmail.fr\"\>", ",", "5.43`", ",", "\<\"-\"\>", ",", "5.17`", ",", "3.81`", ",", "5.54`", ",", "6.`", ",", "4.56`", ",", "1.5`", ",", "5.17`", ",", "4.5`", ",", "\<\"-\"\>", ",", "75.82`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Patrick\"\>", ",", "\<\"Merminod\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"patrick.merminod@edu.ge.ch\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Omair\"\>", ",", "\<\"Moghis\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"omoghis@gmail.com\"\>", ",", "4.83`", ",", "3.91`", ",", "4.4`", ",", "3.69`", ",", "4.03`", ",", "5.1`", ",", "5.38`", ",", "1.5`", ",", "1.5`", ",", "1.5`", ",", "\<\"-\"\>", ",", "56.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Dany\"\>", ",", "\<\"Morim\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"dany-1203@hotmail.fr\"\>", ",", "4.13`", ",", "5.31`", ",", "5.67`", ",", "5.55`", ",", "5.63`", ",", "5.25`", ",", "3.81`", ",", "4.83`", ",", "5.49`", ",", "5.5`", ",", "\<\"-\"\>", ",", "85.03`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Diego\"\>", ",", "\<\"Parodi\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"cesar-uruguay@hotmail.com\"\>", ",", "4.6`", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "4.69`", ",", "5.54`", ",", "5.4`", ",", "3.16`", ",", "5.2`", ",", "1.59`", ",", "1.5`", ",", "\<\"-\"\>", ",", "64.2`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Melissa\"\>", ",", "\<\"Rigotti\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"melissa.jimi@gmail.com\"\>", ",", "3.5`", ",", "2.97`", ",", "3.9`", ",", "3.55`", ",", "5.53`", ",", "3.6`", ",", "4.`", ",", "5.14`", ",", "4.4`", ",", "1.5`", ",", "\<\"-\"\>", ",", "62.01`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Marie-Anne\"\>", ",", "\<\"Saad\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"marie-anne.saad@hotmail.com\"\>", ",", "4.68`", ",", "3.37`", ",", "5.33`", ",", "4.38`", ",", "4.16`", ",", "5.7`", ",", "4.31`", ",", "2.44`", ",", "3.59`", ",", "5.5`", ",", "\<\"-\"\>", ",", "71.96`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Romain\"\>", ",", "\<\"Sanna\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"romain.loki@gmail.com\"\>", ",", "4.77`", ",", "4.92`", ",", "6.`", ",", "4.63`", ",", "6.`", ",", "5.85`", ",", "4.5`", ",", "2.59`", ",", "3.53`", ",", "1.5`", ",", "\<\"-\"\>", ",", "72.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Matthieu\"\>", ",", "\<\"Vallotton\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"matt_95@windowslive.com\"\>", ",", "4.7`", ",", "3.98`", ",", "5.27`", ",", "4.56`", ",", "6.`", ",", "6.`", ",", "4.97`", ",", "2.45`", ",", "4.38`", ",", "1.5`", ",", "\<\"-\"\>", ",", "71.71`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Federico\"\>", ",", "\<\"Vitali\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"fede_ita_93@hotmail.fr\"\>", ",", "4.23`", ",", "3.81`", ",", "3.93`", ",", "4.`", ",", "4.41`", ",", "5.85`", ",", "5.31`", ",", "3.26`", ",", "4.06`", ",", "5.5`", ",", "\<\"-\"\>", ",", "73.51`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.562683158248473*^9, 3.562683758553143*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "5.17`", ",", "4.63`", ",", "5.`", ",", "3.69`", ",", "4.2`", ",", "6.`", ",", "5.25`", ",", "4.04`", ",", "4.91`", ",", "4.5`", ",", "\"\<-\>\"", ",", "78.63`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "4.97`", ",", "3.46`", ",", "4.87`", ",", "4.31`", ",", "4.71`", ",", "6.`", ",", "4.03`", ",", "1.5`", ",", "1.5`", ",", "1.5`", ",", "\"\<-\>\"", ",", "59.07`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "3.5`", ",", "\"\<-\>\"", ",", "4.2`", ",", "3.19`", ",", "5.51`", ",", "5.25`", ",", "3.72`", ",", "5.38`", ",", "4.52`", ",", "5.`", ",", "\"\<-\>\"", ",", "74.08`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "4.43`", ",", "\"\<-\>\"", ",", "4.13`", ",", "3.04`", ",", "6.`", ",", "6.`", ",", "3.56`", ",", "4.84`", ",", "3.94`", ",", "1.5`", ",", "\"\<-\>\"", ",", "67.83`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "5.33`", ",", "\"\<-\>\"", ",", "4.67`", ",", "\"\<-\>\"", ",", "6.`", ",", "6.`", ",", "4.28`", ",", "4.02`", ",", "4.28`", ",", "1.5`", ",", "\"\<-\>\"", ",", "73.58`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "4.4`", ",", "\"\<-\>\"", ",", "4.13`", ",", "3.58`", ",", "5.43`", ",", "4.05`", ",", "3.13`", ",", "5.24`", ",", "4.85`", ",", "1.5`", ",", "\"\<-\>\"", ",", "65.67`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "2.97`", ",", "2.71`", ",", "3.93`", ",", "3.5`", ",", "4.94`", ",", "6.`", ",", "3.84`", ",", "4.04`", ",", "4.32`", ",", "4.`", ",", "\"\<-\>\"", ",", "66.54`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "5.43`", ",", "\"\<-\>\"", ",", "5.17`", ",", "3.81`", ",", "5.54`", ",", "6.`", ",", "4.56`", ",", "1.5`", ",", "5.17`", ",", "4.5`", ",", "\"\<-\>\"", ",", "75.82`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "\"\<-\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "4.83`", ",", "3.91`", ",", "4.4`", ",", "3.69`", ",", "4.03`", ",", "5.1`", ",", "5.38`", ",", "1.5`", ",", "1.5`", ",", "1.5`", ",", "\"\<-\>\"", ",", "56.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "4.13`", ",", "5.31`", ",", "5.67`", ",", "5.55`", ",", "5.63`", ",", "5.25`", ",", "3.81`", ",", "4.83`", ",", "5.49`", ",", "5.5`", ",", "\"\<-\>\"", ",", "85.03`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "4.6`", ",", "\"\<-\>\"", ",", "\"\<-\>\"", ",", "4.69`", ",", "5.54`", ",", "5.4`", ",", "3.16`", ",", "5.2`", ",", "1.59`", ",", "1.5`", ",", "\"\<-\>\"", ",", "64.2`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "3.5`", ",", "2.97`", ",", "3.9`", ",", "3.55`", ",", "5.53`", ",", "3.6`", ",", "4.`", ",", "5.14`", ",", "4.4`", ",", "1.5`", ",", "\"\<-\>\"", ",", "62.01`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "4.68`", ",", "3.37`", ",", "5.33`", ",", "4.38`", ",", "4.16`", ",", "5.7`", ",", "4.31`", ",", "2.44`", ",", "3.59`", ",", "5.5`", ",", "\"\<-\>\"", ",", "71.96`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "4.77`", ",", "4.92`", ",", "6.`", ",", "4.63`", ",", "6.`", ",", "5.85`", ",", "4.5`", ",", "2.59`", ",", "3.53`", ",", "1.5`", ",", "\"\<-\>\"", ",", "72.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "4.7`", ",", "3.98`", ",", "5.27`", ",", "4.56`", ",", "6.`", ",", "6.`", ",", "4.97`", ",", "2.45`", ",", "4.38`", ",", "1.5`", ",", "\"\<-\>\"", ",", "71.71`"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\\"", ",", "4.23`", ",", "3.81`", ",", "3.93`", ",", "4.`", ",", "4.41`", ",", "5.85`", ",", "5.31`", ",", "3.26`", ",", "4.06`", ",", "5.5`", ",", "\"\<-\>\"", ",", "73.51`"}], "}"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.562683136398056*^9, 3.5626831403442183`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"Pr\[EAcute]nom\"\>", ",", "\<\"Nom\"\>", ",", "\<\"Num\[EAcute]ro d'identification\"\>", ",", "\<\"Institution\"\>", ",", "\<\"D\[EAcute]partement\"\>", ",", "\<\"Adresse de courriel\"\>", ",", "\<\"Test Premiers pas dans les iLES\"\>", ",", "\<\"Test Internet et le Web\"\>", ",", "\<\"Test Rechercher sur la toile\"\>", ",", "\<\"Test Rechercher avec Wolfram Alpha\"\>", ",", "\<\"Test Impact social d'Internet\"\>", ",", "\<\"Test Outils de publication sur Internet\"\>", ",", "\<\"Test Structure de Mathematica\"\>", ",", "\<\"Test Affectations, r\[EGrave]gles et motifs\"\>", ",", "\<\"Test Langages de programmation\"\>", ",", "\<\"R\[EAcute]daction SPIP\"\>", ",", "\<\"Test Epreuve OCinf\"\>", ",", "\<\"Total du cours\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Teo\"\>", ",", "\<\"Armici\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"teo.armici@gmail.com\"\>", ",", "5.17`", ",", "4.63`", ",", "5.`", ",", "3.69`", ",", "4.2`", ",", "6.`", ",", "5.25`", ",", "4.04`", ",", "4.91`", ",", "4.5`", ",", "\<\"-\"\>", ",", "78.63`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Valentin\"\>", ",", "\<\"Burdet\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"valentin.895@hotmail.com\"\>", ",", "4.97`", ",", "3.46`", ",", "4.87`", ",", "4.31`", ",", "4.71`", ",", "6.`", ",", "4.03`", ",", "1.5`", ",", "1.5`", ",", "1.5`", ",", "\<\"-\"\>", ",", "59.07`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Daniela\"\>", ",", "\<\"Camara Angulo\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"daniela7294@hotmail.com\"\>", ",", "3.5`", ",", "\<\"-\"\>", ",", "4.2`", ",", "3.19`", ",", "5.51`", ",", "5.25`", ",", "3.72`", ",", "5.38`", ",", "4.52`", ",", "5.`", ",", "\<\"-\"\>", ",", "74.08`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"S\[EAcute]verine\"\>", ",", "\<\"Comtat\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"s_comtat@hotmail.fr\"\>", ",", "4.43`", ",", "\<\"-\"\>", ",", "4.13`", ",", "3.04`", ",", "6.`", ",", "6.`", ",", "3.56`", ",", "4.84`", ",", "3.94`", ",", "1.5`", ",", "\<\"-\"\>", ",", "67.83`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Rafael\"\>", ",", "\<\"Dias Pereira\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"carouge1994@hotmail.com\"\>", ",", "5.33`", ",", "\<\"-\"\>", ",", "4.67`", ",", "\<\"-\"\>", ",", "6.`", ",", "6.`", ",", "4.28`", ",", "4.02`", ",", "4.28`", ",", "1.5`", ",", "\<\"-\"\>", ",", "73.58`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"H\[EAcute]l\[EGrave]ne\"\>", ",", "\<\"Du\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"ely.duong@hotmail.com\"\>", ",", "4.4`", ",", "\<\"-\"\>", ",", "4.13`", ",", "3.58`", ",", "5.43`", ",", "4.05`", ",", "3.13`", ",", "5.24`", ",", "4.85`", ",", "1.5`", ",", "\<\"-\"\>", ",", "65.67`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Lakkat\"\>", ",", "\<\"Haas Strauf\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"l@i-les.ch\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Shineka\"\>", ",", "\<\"Logeswaran\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"shineka_21@hotmail.com\"\>", ",", "2.97`", ",", "2.71`", ",", "3.93`", ",", "3.5`", ",", "4.94`", ",", "6.`", ",", "3.84`", ",", "4.04`", ",", "4.32`", ",", "4.`", ",", "\<\"-\"\>", ",", "66.54`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Abel\"\>", ",", "\<\"Mahari\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"abel213@hotmail.fr\"\>", ",", "5.43`", ",", "\<\"-\"\>", ",", "5.17`", ",", "3.81`", ",", "5.54`", ",", "6.`", ",", "4.56`", ",", "1.5`", ",", "5.17`", ",", "4.5`", ",", "\<\"-\"\>", ",", "75.82`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Patrick\"\>", ",", "\<\"Merminod\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"patrick.merminod@edu.ge.ch\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Omair\"\>", ",", "\<\"Moghis\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"omoghis@gmail.com\"\>", ",", "4.83`", ",", "3.91`", ",", "4.4`", ",", "3.69`", ",", "4.03`", ",", "5.1`", ",", "5.38`", ",", "1.5`", ",", "1.5`", ",", "1.5`", ",", "\<\"-\"\>", ",", "56.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Dany\"\>", ",", "\<\"Morim\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"dany-1203@hotmail.fr\"\>", ",", "4.13`", ",", "5.31`", ",", "5.67`", ",", "5.55`", ",", "5.63`", ",", "5.25`", ",", "3.81`", ",", "4.83`", ",", "5.49`", ",", "5.5`", ",", "\<\"-\"\>", ",", "85.03`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Diego\"\>", ",", "\<\"Parodi\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"cesar-uruguay@hotmail.com\"\>", ",", "4.6`", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "4.69`", ",", "5.54`", ",", "5.4`", ",", "3.16`", ",", "5.2`", ",", "1.59`", ",", "1.5`", ",", "\<\"-\"\>", ",", "64.2`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Melissa\"\>", ",", "\<\"Rigotti\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"melissa.jimi@gmail.com\"\>", ",", "3.5`", ",", "2.97`", ",", "3.9`", ",", "3.55`", ",", "5.53`", ",", "3.6`", ",", "4.`", ",", "5.14`", ",", "4.4`", ",", "1.5`", ",", "\<\"-\"\>", ",", "62.01`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Marie-Anne\"\>", ",", "\<\"Saad\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"marie-anne.saad@hotmail.com\"\>", ",", "4.68`", ",", "3.37`", ",", "5.33`", ",", "4.38`", ",", "4.16`", ",", "5.7`", ",", "4.31`", ",", "2.44`", ",", "3.59`", ",", "5.5`", ",", "\<\"-\"\>", ",", "71.96`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Romain\"\>", ",", "\<\"Sanna\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"romain.loki@gmail.com\"\>", ",", "4.77`", ",", "4.92`", ",", "6.`", ",", "4.63`", ",", "6.`", ",", "5.85`", ",", "4.5`", ",", "2.59`", ",", "3.53`", ",", "1.5`", ",", "\<\"-\"\>", ",", "72.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Matthieu\"\>", ",", "\<\"Vallotton\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"matt_95@windowslive.com\"\>", ",", "4.7`", ",", "3.98`", ",", "5.27`", ",", "4.56`", ",", "6.`", ",", "6.`", ",", "4.97`", ",", "2.45`", ",", "4.38`", ",", "1.5`", ",", "\<\"-\"\>", ",", "71.71`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Federico\"\>", ",", "\<\"Vitali\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"fede_ita_93@hotmail.fr\"\>", ",", "4.23`", ",", "3.81`", ",", "3.93`", ",", "4.`", ",", "4.41`", ",", "5.85`", ",", "5.31`", ",", "3.26`", ",", "4.06`", ",", "5.5`", ",", "\<\"-\"\>", ",", "73.51`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.562683144615303*^9, 3.56268315838267*^9}, 3.562683758651339*^9}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Programme calculant la moyenne", "Subsubsection", CellChangeTimes->{{3.561725954222554*^9, 3.56172597564244*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"nom", "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{"Mean", StyleBox["[", "Subsection"], RowBox[{"Select", "[", RowBox[{ RowBox[{"data1", "[", RowBox[{"[", RowBox[{ RowBox[{"Position", "[", RowBox[{"data1", ",", "nom"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"#", "<=", "6"}], "&"}]}], "]"}], "]"}]}], "Input"], Cell[BoxData["4.631111111111111`"], "Output", CellChangeTimes->{3.561725985444968*^9, 3.561824871481406*^9, 3.5618249037987003`*^9, 3.5626825405269537`*^9, 3.562683158441105*^9, 3.562683758698222*^9}] }, Open ]], Cell["\<\ Nous allons maintenant r\[EAcute]aliser une pr\[EAcute]sentation graphique \ des notes\ \>", "Text", CellChangeTimes->{{3.561726009470942*^9, 3.561726059472866*^9}, { 3.561726109524561*^9, 3.56172611808594*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"nom", "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{"Select", "[", RowBox[{ RowBox[{"data1", "[", RowBox[{"[", RowBox[{ RowBox[{"Position", "[", RowBox[{"data1", ",", "nom"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"#", "<=", "6"}], "&"}]}], "]"}]}], "Input", CellChangeTimes->{{3.561726168567499*^9, 3.561726176486217*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "4.23`", ",", "3.81`", ",", "3.93`", ",", "4.`", ",", "4.41`", ",", "5.85`", ",", "5.31`", ",", "3.26`", ",", "4.06`", ",", "5.5`"}], "}"}]], "Output",\ CellChangeTimes->{3.5617261775408363`*^9, 3.561824871557231*^9, 3.561824903895335*^9, 3.56268254058139*^9, 3.5626831585400267`*^9, 3.562683758731489*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BarChart", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.561726185330196*^9, 3.5617261948459177`*^9}}], Cell[BoxData[ GraphicsBox[{ {Opacity[0], PointBox[{{0.4545454545454546, 0.}}]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.5454545454545454, 0.}, {1.4545454545454546`, 4.23}, "RoundingRadius" -> 0]}, ImageSizeCache->{{16.437346938775498`, 64.8108163265306}, {-77.71593893562547, 154.20218997850705`}}], StatusArea[#, 4.23]& , TagBoxNote->"4.23"], StyleBox["4.23`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[4.23, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.5454545454545454`, 0.}, {2.4545454545454546`, 3.81}, "RoundingRadius" -> 0]}, ImageSizeCache->{{67.99816326530609, 116.3716326530612}, {-54.83754315691726, 154.20218997850705`}}], StatusArea[#, 3.81]& , TagBoxNote->"3.81"], StyleBox["3.81`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[3.81, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2.5454545454545454`, 0.}, {3.4545454545454546`, 3.93}, "RoundingRadius" -> 0]}, ImageSizeCache->{{119.5589795918367, 167.93244897959178`}, {-61.374227665119605`, 154.20218997850705`}}], StatusArea[#, 3.93]& , TagBoxNote->"3.93"], StyleBox["3.93`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[3.93, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3.5454545454545454`, 0.}, {4.454545454545454, 4.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{171.1197959183673, 219.49326530612237`}, {-65.18729362823763, 154.20218997850705`}}], StatusArea[#, 4.]& , TagBoxNote->"4."], StyleBox["4.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[4., { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4.545454545454545, 0.}, {5.454545454545454, 4.41}, "RoundingRadius" -> 0]}, ImageSizeCache->{{222.68061224489787`, 271.054081632653}, {-87.52096569792897, 154.20218997850705`}}], StatusArea[#, 4.41]& , TagBoxNote->"4.41"], StyleBox["4.41`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[4.41, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5.545454545454545, 0.}, {6.454545454545454, 5.85}, "RoundingRadius" -> 0]}, ImageSizeCache->{{274.24142857142846`, 322.61489795918357`}, {-165.96117979635702`, 154.20218997850705`}}], StatusArea[#, 5.85]& , TagBoxNote->"5.85"], StyleBox["5.85`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[5.85, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6.545454545454545, 0.}, {7.454545454545454, 5.31}, "RoundingRadius" -> 0]}, ImageSizeCache->{{325.80224489795904`, 374.17571428571415`}, {-136.54609950944646`, 154.20218997850705`}}], StatusArea[#, 5.31]& , TagBoxNote->"5.31"], StyleBox["5.31`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[5.31, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{7.545454545454545, 0.}, {8.454545454545453, 3.26}, "RoundingRadius" -> 0]}, ImageSizeCache->{{377.3630612244897, 425.73653061224474`}, {-24.877739160989847`, 154.20218997850705`}}], StatusArea[#, 3.26]& , TagBoxNote->"3.26"], StyleBox["3.26`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[3.26, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8.545454545454545, 0.}, {9.454545454545453, 4.06}, "RoundingRadius" -> 0]}, ImageSizeCache->{{428.92387755102027`, 477.2973469387753}, {-68.45563588233878, 154.20218997850705`}}], StatusArea[#, 4.06]& , TagBoxNote->"4.06"], StyleBox["4.06`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[4.06, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{9.545454545454545, 0.}, {10.454545454545453`, 5.5}, "RoundingRadius" -> 0]}, ImageSizeCache->{{480.48469387755085`, 528.8581632653058}, {-146.89584998076688`, 154.20218997850705`}}], StatusArea[#, 5.5]& , TagBoxNote->"5.5"], StyleBox["5.5`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[5.5, { GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {}, {{{{{{{}, {}}, {}}, {{{}, {}}, {}}, \ {{{}, {}}, {}}, {{{}, {}}, {}}, {{{}, {}}, {}}, {{{}, {}}, {}}, {{{}, {}}, \ {}}, {{{}, {}}, {}}, {{{}, {}}, {}}, {{{}, {}}, {}}}, {}}, {}}, {}}, GraphicsGroupBox[ {GrayLevel[0], StyleBox[ LineBox[{{{0.5454545454545454, 0.}, Offset[{0, -4}, {0.5454545454545454, 0.}]}, {{10.454545454545453`, 0.}, Offset[{0, -4}, {10.454545454545453`, 0.}]}}], Antialiasing->False]}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{0.4545454545454546, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRangePadding->Scaled[0.02], Ticks->{None, Automatic}]], "Output", CellChangeTimes->{3.561726195594434*^9, 3.561824871715353*^9, 3.561824904434785*^9, 3.562682540845299*^9, 3.5626831585922728`*^9, 3.562683758784128*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"nom", "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{"BarChart3D", "[", RowBox[{"Select", "[", RowBox[{ RowBox[{"data1", "[", RowBox[{"[", RowBox[{ RowBox[{"Position", "[", RowBox[{"data1", ",", "nom"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"#", "<=", "6"}], "&"}]}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.56172623697806*^9, 3.5617262589717617`*^9}}], Cell[BoxData[ Graphics3DBox[{ StyleBox[{ {EdgeForm[GrayLevel[0.85]], Polygon3DBox[{ Scaled[{0.015, 0.02, 0.02}], Scaled[{0.985, 0.02, 0.02}], Scaled[{0.985, 0.98, 0.02}], Scaled[{0.015, 0.98, 0.02}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0.015, 0.02, 0.02}], Scaled[{0.985, 0.02, 0.02}], Scaled[{1, 0, 0}], Scaled[{0, 0, 0}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0.985, 0.02, 0.02}], Scaled[{1, 0, 0}], Scaled[{1, 1, 0}], Scaled[{0.985, 0.98, 0.02}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0.015, 0.98, 0.02}], Scaled[{0.985, 0.98, 0.02}], Scaled[{1, 1, 0}], Scaled[{0, 0.99999, 0}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0.015, 0.02, 0.02}], Scaled[{0, 0, 0}], Scaled[{0, 0.99999, 0}], Scaled[{0.015, 0.98, 0.02}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0, 0, 0}], Scaled[{1, 0, 0}], Scaled[{1, 1, 0}], Scaled[{0, 0.99999, 0}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}]}, {Opacity[0], EdgeForm[None], CuboidBox[{{-0.5449999999999999, -0.5, 0}, {11.444999999999999`, 1.5, 0.024}}]}, {EdgeForm[None], Polygon3DBox[{ Scaled[{0.015, 0.98, 0.02}], Scaled[{0.985, 0.98, 0.02}], Scaled[{0.985, 0.98, 0.98}], Scaled[{0.015, 0.98, 0.98}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0.015, 0.98, 0.02}], Scaled[{0.985, 0.98, 0.02}], Scaled[{1, 1, 0}], Scaled[{0, 0.99999, 0}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{1, 1, 0}], Scaled[{1, 1, 1}], Scaled[{0.985, 0.98, 0.98}], Scaled[{0.985, 0.98, 0.02}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0.015, 0.98, 0.98}], Scaled[{0.985, 0.98, 0.98}], Scaled[{1, 1, 1}], Scaled[{0, 1, 1}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0.015, 0.98, 0.02}], Scaled[{0, 0.99999, 0}], Scaled[{0, 1, 1}], Scaled[{0.015, 0.98, 0.98}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0, 0.99999, 0}], Scaled[{1, 1, 0}], Scaled[{1, 1, 1}], Scaled[{0, 1, 1}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}]}}, StripOnInput->False, Lighting->{{"Ambient", GrayLevel[1]}}], {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], {{}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{0., 0., 0.}, {0., 1., 0.}, {0., 1., 4.23}, {0., 0., 4.23}, {1., 0., 0.}, {1., 1., 0.}, {1., 1., 4.23}, {1., 0., 4.23}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{38.99982122197507, 94.83261631431971}, {-99.95768654643564, 132.62488751962388`}}], StatusArea[#, 4.23]& , TagBoxNote->"4.23"], StyleBox["4.23`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[4.23, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{1.1, 0., 0.}, {1.1, 1., 0.}, {1.1, 1., 3.81}, {1.1, 0., 3.81}, {2.1, 0., 0.}, {2.1, 1., 0.}, {2.1, 1., 3.81}, {2.1, 0., 3.81}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{84.21433458826452, 139.306339796656}, {-76.50857050455221, 134.6054164204091}}], StatusArea[#, 3.81]& , TagBoxNote->"3.81"], StyleBox["3.81`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[3.81, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{2.2, 0., 0.}, {2.2, 1., 0.}, {2.2, 1., 3.93}, {2.2, 0., 3.93}, {3.2, 0., 0.}, {3.2, 1., 0.}, {3.2, 1., 3.93}, {3.2, 0., 3.93}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{129.36362282235194`, 183.92323507748733`}, {-81.11448265812561, 136.59237755475084`}}], StatusArea[#, 3.93]& , TagBoxNote->"3.93"], StyleBox["3.93`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[3.93, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{3.3000000000000003`, 0., 0.}, { 3.3000000000000003`, 1., 0.}, {3.3000000000000003`, 1., 4.}, { 3.3000000000000003`, 0., 4.}, {4.300000000000001, 0., 0.}, { 4.300000000000001, 1., 0.}, {4.300000000000001, 1., 4.}, { 4.300000000000001, 0., 4.}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{174.68996638036566`, 228.68399462901226`}, {-83.12847272262428, 138.58580230890377`}}], StatusArea[#, 4.]& , TagBoxNote->"4."], StyleBox["4.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[4., { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{4.4, 0., 0.}, {4.4, 1., 0.}, {4.4, 1., 4.41}, {4.4, 0., 4.41}, {5.4, 0., 0.}, {5.4, 1., 0.}, {5.4, 1., 4.41}, {5.4, 0., 4.41}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{220.1457079052612, 273.61294522451027`}, {-102.93233584207735`, 140.58572227365548`}}], StatusArea[#, 4.41]& , TagBoxNote->"4.41"], StyleBox["4.41`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[4.41, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{5.5, 0., 0.}, {5.5, 1., 0.}, {5.5, 1., 5.85}, {5.5, 0., 5.85}, {6.5, 0., 0.}, {6.5, 1., 0.}, {6.5, 1., 5.85}, {6.5, 0., 5.85}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{265.81582253703016`, 319.16765706251505`}, {-177.00945086964765`, 142.59216924599502`}}], StatusArea[#, 5.85]& , TagBoxNote->"5.85"], StyleBox["5.85`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[5.85, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{6.6, 0., 0.}, {6.6, 1., 0.}, {6.6, 1., 5.31}, {6.6, 0., 5.31}, {7.6, 0., 0.}, {7.6, 1., 0.}, {7.6, 1., 5.31}, {7.6, 0., 5.31}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{311.2964359278789, 364.7679948056134}, {-147.0394424630108, 144.6051752307983}}], StatusArea[#, 5.31]& , TagBoxNote->"5.31"], StyleBox["5.31`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[5.31, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{7.699999999999999, 0., 0.}, { 7.699999999999999, 1., 0.}, {7.699999999999999, 1., 3.26}, { 7.699999999999999, 0., 3.26}, {8.7, 0., 0.}, {8.7, 1., 0.}, { 8.7, 1., 3.26}, {8.7, 0., 3.26}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{356.8936376609718, 410.02822749349457`}, {-37.74969606025002, 146.62477244252932`}}], StatusArea[#, 3.26]& , TagBoxNote->"3.26"], StyleBox["3.26`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[3.26, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{8.799999999999999, 0., 0.}, { 8.799999999999999, 1., 0.}, {8.799999999999999, 1., 4.06}, { 8.799999999999999, 0., 4.06}, {9.799999999999999, 0., 0.}, { 9.799999999999999, 1., 0.}, {9.799999999999999, 1., 4.06}, { 9.799999999999999, 0., 4.06}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{402.64016147420153`, 456.0787336088664}, {-78.04389531954325, 148.65099330695952`}}], StatusArea[#, 4.06]& , TagBoxNote->"4.06"], StyleBox["4.06`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[4.06, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{9.899999999999999, 0., 0.}, { 9.899999999999999, 1., 0.}, {9.899999999999999, 1., 5.5}, { 9.899999999999999, 0., 5.5}, {10.899999999999999`, 0., 0.}, { 10.899999999999999`, 1., 0.}, {10.899999999999999`, 1., 5.5}, { 10.899999999999999`, 0., 5.5}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{448.5367420722861, 502.7008292893171}, {-152.4499854199474, 150.68387046290232`}}], StatusArea[#, 5.5]& , TagBoxNote->"5.5"], StyleBox["5.5`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[5.5, { GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, GraphicsGroup3DBox[ {GrayLevel[0], StyleBox[{}, Antialiasing->False]}]}}, AutomaticImageSize->True, Axes->{True, True, True}, AxesEdge->{{-1, -1}, {1, -1}, {-1, 1}}, BoxRatios->NCache[{1, Rational[1, 5], GoldenRatio^(-1)}, {1, 0.2, 0.6180339887498948}], Boxed->False, FaceGrids->{{{0, 1, 0}, {None, Automatic}}, {{0, 0, -1}, { None, None}}, {{-1, 0, 0}, {None, None}}}, ImageSize->{360.30862892632956`, 273.1797772794641}, Lighting->"Neutral", Method->{"RotationControl" -> "Globe"}, PlotRangePadding->Scaled[0.02], Ticks->{{{0, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {10.899999999999999`, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {1.05, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {2.1500000000000004`, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {3.25, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {4.3500000000000005`, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {5.45, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {6.55, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {7.6499999999999995`, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {8.75, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {9.849999999999998, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {0., FormBox["\"\"", TraditionalForm], {0.01, 0}}, {10.899999999999999`, FormBox["\"\"", TraditionalForm], {0.01, 0}}}, {{0, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {1., FormBox["\"\"", TraditionalForm], {0.005, 0}}, {0., FormBox["\"\"", TraditionalForm], {0.01, 0}}, {1., FormBox["\"\"", TraditionalForm], {0.01, 0}}}, Automatic}, ViewPoint->{2, -10, 2}, ViewVertical->{0., 0., 1.}]], "Output", CellChangeTimes->{3.561726260547286*^9, 3.561824871785509*^9, 3.56182490461511*^9, 3.562682540921639*^9, 3.562683158649806*^9, 3.562683758846656*^9}] }, Open ]], Cell["\<\ Voici les notes d\[CloseCurlyQuote]un autre \[EAcute]l\[EGrave]ve:\ \>", "Text", CellChangeTimes->{{3.561726411911525*^9, 3.561726488944281*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"nom", "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{"BarChart3D", "[", RowBox[{"Select", "[", RowBox[{ RowBox[{"data1", "[", RowBox[{"[", RowBox[{ RowBox[{"Position", "[", RowBox[{"data1", ",", "nom"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"#", "<=", "6"}], "&"}]}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.5617264982165403`*^9, 3.561726501478519*^9}}], Cell[BoxData[ Graphics3DBox[{ StyleBox[{ {EdgeForm[GrayLevel[0.85]], Polygon3DBox[{ Scaled[{0.015, 0.02, 0.02}], Scaled[{0.985, 0.02, 0.02}], Scaled[{0.985, 0.98, 0.02}], Scaled[{0.015, 0.98, 0.02}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0.015, 0.02, 0.02}], Scaled[{0.985, 0.02, 0.02}], Scaled[{1, 0, 0}], Scaled[{0, 0, 0}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0.985, 0.02, 0.02}], Scaled[{1, 0, 0}], Scaled[{1, 1, 0}], Scaled[{0.985, 0.98, 0.02}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0.015, 0.98, 0.02}], Scaled[{0.985, 0.98, 0.02}], Scaled[{1, 1, 0}], Scaled[{0, 0.99999, 0}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0.015, 0.02, 0.02}], Scaled[{0, 0, 0}], Scaled[{0, 0.99999, 0}], Scaled[{0.015, 0.98, 0.02}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0, 0, 0}], Scaled[{1, 0, 0}], Scaled[{1, 1, 0}], Scaled[{0, 0.99999, 0}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}]}, {Opacity[0], EdgeForm[None], CuboidBox[{{-0.5449999999999999, -0.5, 0}, {11.444999999999999`, 1.5, 0.024}}]}, {EdgeForm[None], Polygon3DBox[{ Scaled[{0.015, 0.98, 0.02}], Scaled[{0.985, 0.98, 0.02}], Scaled[{0.985, 0.98, 0.98}], Scaled[{0.015, 0.98, 0.98}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0.015, 0.98, 0.02}], Scaled[{0.985, 0.98, 0.02}], Scaled[{1, 1, 0}], Scaled[{0, 0.99999, 0}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{1, 1, 0}], Scaled[{1, 1, 1}], Scaled[{0.985, 0.98, 0.98}], Scaled[{0.985, 0.98, 0.02}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0.015, 0.98, 0.98}], Scaled[{0.985, 0.98, 0.98}], Scaled[{1, 1, 1}], Scaled[{0, 1, 1}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0.015, 0.98, 0.02}], Scaled[{0, 0.99999, 0}], Scaled[{0, 1, 1}], Scaled[{0.015, 0.98, 0.98}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0, 0.99999, 0}], Scaled[{1, 1, 0}], Scaled[{1, 1, 1}], Scaled[{0, 1, 1}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}]}}, StripOnInput->False, Lighting->{{"Ambient", GrayLevel[1]}}], {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], {{}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{0., 0., 0.}, {0., 1., 0.}, {0., 1., 4.68}, {0., 0., 4.68}, {1., 0., 0.}, {1., 1., 0.}, {1., 1., 4.68}, {1., 0., 4.68}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{44.86327332223718, 109.2564875826501}, {-148.14325012211046`, 154.28982524126192`}}], StatusArea[#, 4.68]& , TagBoxNote->"4.68"], StyleBox["4.68`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[4.68, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{1.1, 0., 0.}, {1.1, 1., 0.}, {1.1, 1., 3.37}, {1.1, 0., 3.37}, {2.1, 0., 0.}, {2.1, 1., 0.}, {2.1, 1., 3.37}, {2.1, 0., 3.37}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{97.45373515715292, 160.5666746266941}, {-65.63156682282221, 156.5747993875303}}], StatusArea[#, 3.37]& , TagBoxNote->"3.37"], StyleBox["3.37`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[3.37, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{2.2, 0., 0.}, {2.2, 1., 0.}, {2.2, 1., 5.33}, {2.2, 0., 5.33}, {3.2, 0., 0.}, {3.2, 1., 0.}, {3.2, 1., 5.33}, {3.2, 0., 5.33}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{148.9358028411223, 212.04204171830335`}, {-184.8098826937327, 158.86719452491545`}}], StatusArea[#, 5.33]& , TagBoxNote->"5.33"], StyleBox["5.33`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[5.33, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{3.3000000000000003`, 0., 0.}, { 3.3000000000000003`, 1., 0.}, {3.3000000000000003`, 1., 4.38}, {3.3000000000000003`, 0., 4.38}, {4.300000000000001, 0., 0.}, {4.300000000000001, 1., 0.}, {4.300000000000001, 1., 4.38}, {4.300000000000001, 0., 4.38}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{201.5955318656943, 263.68338777592317`}, {-124.16089569387708`, 161.167046864341}}], StatusArea[#, 4.38]& , TagBoxNote->"4.38"], StyleBox["4.38`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[4.38, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{4.4, 0., 0.}, {4.4, 1., 0.}, {4.4, 1., 4.16}, {4.4, 0., 4.16}, {5.4, 0., 0.}, {5.4, 1., 0.}, {5.4, 1., 4.16}, {5.4, 0., 4.16}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{254.15491611853267`, 315.51790339200954`}, {-108.68678184631642`, 163.47439285270377`}}], StatusArea[#, 4.16]& , TagBoxNote->"4.16"], StyleBox["4.16`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[4.16, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{5.5, 0., 0.}, {5.5, 1., 0.}, {5.5, 1., 5.7}, {5.5, 0., 5.7}, {6.5, 0., 0.}, {6.5, 1., 0.}, {6.5, 1., 5.7}, {6.5, 0., 5.7}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{306.83052752762853`, 368.0761230893296}, {-202.6338062417981, 165.7892691747996}}], StatusArea[#, 5.7]& , TagBoxNote->"5.7"], StyleBox["5.7`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[5.7, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{6.6, 0., 0.}, {6.6, 1., 0.}, {6.6, 1., 4.31}, {6.6, 0., 4.31}, {7.6, 0., 0.}, {7.6, 1., 0.}, {7.6, 1., 4.31}, {7.6, 0., 4.31}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{359.30238275443776`, 420.5051705600887}, {-114.26390432056994`, 168.11171275526695`}}], StatusArea[#, 4.31]& , TagBoxNote->"4.31"], StyleBox["4.31`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[4.31, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{7.699999999999999, 0., 0.}, { 7.699999999999999, 1., 0.}, {7.699999999999999, 1., 2.44}, { 7.699999999999999, 0., 2.44}, {8.7, 0., 0.}, {8.7, 1., 0.}, { 8.7, 1., 2.44}, {8.7, 0., 2.44}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{411.9087481859094, 472.67567263386866`}, { 3.6211781536158583`, 170.44176076055058`}}], StatusArea[#, 2.44]& , TagBoxNote->"2.44"], StyleBox["2.44`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2.44, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{8.799999999999999, 0., 0.}, { 8.799999999999999, 1., 0.}, {8.799999999999999, 1., 3.59}, { 8.799999999999999, 0., 3.59}, {9.799999999999999, 0., 0.}, { 9.799999999999999, 1., 0.}, {9.799999999999999, 1., 3.59}, { 9.799999999999999, 0., 3.59}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{464.68738936273587`, 525.8817158128256}, {-65.68386212949656, 172.77945060088408`}}], StatusArea[#, 3.59]& , TagBoxNote->"3.59"], StyleBox["3.59`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[3.59, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{9.899999999999999, 0., 0.}, { 9.899999999999999, 1., 0.}, {9.899999999999999, 1., 5.5}, { 9.899999999999999, 0., 5.5}, {10.899999999999999`, 0., 0.}, { 10.899999999999999`, 1., 0.}, {10.899999999999999`, 1., 5.5}, { 10.899999999999999`, 0., 5.5}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{517.6391539278299, 579.8952545812749}, {-183.14623209752634`, 175.12481993229196`}}], StatusArea[#, 5.5]& , TagBoxNote->"5.5"], StyleBox["5.5`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[5.5, { GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, GraphicsGroup3DBox[ {GrayLevel[0], StyleBox[{}, Antialiasing->False]}]}}, AutomaticImageSize->True, Axes->{True, True, True}, AxesEdge->{{-1, -1}, {1, -1}, {-1, 1}}, BoxRatios->NCache[{1, Rational[1, 5], GoldenRatio^(-1)}, {1, 0.2, 0.6180339887498948}], Boxed->False, FaceGrids->{{{0, 1, 0}, {None, Automatic}}, {{0, 0, -1}, { None, None}}, {{-1, 0, 0}, {None, None}}}, ImageSize->{415.59249044572215`, 313.73393413467625`}, Lighting->"Neutral", Method->{"RotationControl" -> "Globe"}, PlotRangePadding->Scaled[0.02], Ticks->{{{0, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {10.899999999999999`, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {1.05, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {2.1500000000000004`, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {3.25, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {4.3500000000000005`, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {5.45, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {6.55, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {7.6499999999999995`, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {8.75, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {9.849999999999998, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {0., FormBox["\"\"", TraditionalForm], {0.01, 0}}, {10.899999999999999`, FormBox["\"\"", TraditionalForm], {0.01, 0}}}, {{0, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {1., FormBox["\"\"", TraditionalForm], {0.005, 0}}, {0., FormBox["\"\"", TraditionalForm], {0.01, 0}}, {1., FormBox["\"\"", TraditionalForm], {0.01, 0}}}, Automatic}, ViewPoint->{2, -10, 2}, ViewVertical->{0., 0., 1.}]], "Output", CellChangeTimes->{3.561726502862153*^9, 3.561824871911996*^9, 3.561824904745695*^9, 3.562682541023222*^9, 3.562683158716515*^9, 3.5626837589484043`*^9}] }, Open ]], Cell["\<\ On ne peut pas demander \[AGrave] l\[CloseCurlyQuote]utilisateur de conna\ \[IHat]tre tous les noms! Extrayons ces noms des donn\[EAcute]es et pr\ \[EAcute]sentons-les \[AGrave] l\[CloseCurlyQuote]utilisateur\ \>", "Text", CellChangeTimes->{{3.5617265438014297`*^9, 3.561726561653098*^9}, { 3.561726602760695*^9, 3.561726647918663*^9}, {3.56172671880539*^9, 3.561726747268009*^9}, {3.5617268031038837`*^9, 3.56172681279967*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Transpose", "[", "data1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.561726652696803*^9, 3.561726692784886*^9}, { 3.561728159777453*^9, 3.5617281813782997`*^9}, 3.561728270162754*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Pr\[EAcute]nom\"\>", ",", "\<\"Teo\"\>", ",", "\<\"Valentin\"\>", ",", "\<\"Daniela\"\>", ",", "\<\"S\[EAcute]verine\"\>", ",", "\<\"Rafael\"\>", ",", "\<\"H\[EAcute]l\[EGrave]ne\"\>", ",", "\<\"Lakkat\"\>", ",", "\<\"Shineka\"\>", ",", "\<\"Abel\"\>", ",", "\<\"Patrick\"\>", ",", "\<\"Omair\"\>", ",", "\<\"Dany\"\>", ",", "\<\"Diego\"\>", ",", "\<\"Melissa\"\>", ",", "\<\"Marie-Anne\"\>", ",", "\<\"Romain\"\>", ",", "\<\"Matthieu\"\>", ",", "\<\"Federico\"\>"}], "}"}]], "Output", CellChangeTimes->{{3.5617266582223473`*^9, 3.561726694163404*^9}, 3.5617281826306553`*^9, 3.561728271722196*^9, 3.561824872926721*^9, 3.5618249048644447`*^9, 3.5626825410576267`*^9, 3.562683158765381*^9, 3.562683758978236*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"nom", "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{"BarChart3D", "[", RowBox[{"Select", "[", RowBox[{ RowBox[{"data1", "[", RowBox[{"[", RowBox[{ RowBox[{"Position", "[", RowBox[{"data1", ",", "nom"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"#", "<=", "6"}], "&"}]}], "]"}], "]"}]}], "Input", CellChangeTimes->{3.561726766553985*^9, 3.561726853438631*^9}], Cell[BoxData[ Graphics3DBox[{ StyleBox[{ {EdgeForm[GrayLevel[0.85]], Polygon3DBox[{ Scaled[{0.015, 0.02, 0.02}], Scaled[{0.985, 0.02, 0.02}], Scaled[{0.985, 0.98, 0.02}], Scaled[{0.015, 0.98, 0.02}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0.015, 0.02, 0.02}], Scaled[{0.985, 0.02, 0.02}], Scaled[{1, 0, 0}], Scaled[{0, 0, 0}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0.985, 0.02, 0.02}], Scaled[{1, 0, 0}], Scaled[{1, 1, 0}], Scaled[{0.985, 0.98, 0.02}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0.015, 0.98, 0.02}], Scaled[{0.985, 0.98, 0.02}], Scaled[{1, 1, 0}], Scaled[{0, 0.99999, 0}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0.015, 0.02, 0.02}], Scaled[{0, 0, 0}], Scaled[{0, 0.99999, 0}], Scaled[{0.015, 0.98, 0.02}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0, 0, 0}], Scaled[{1, 0, 0}], Scaled[{1, 1, 0}], Scaled[{0, 0.99999, 0}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}]}, {Opacity[0], EdgeForm[None], CuboidBox[{{-0.5449999999999999, -0.5, 0}, {11.444999999999999`, 1.5, 0.024}}]}, {EdgeForm[None], Polygon3DBox[{ Scaled[{0.015, 0.98, 0.02}], Scaled[{0.985, 0.98, 0.02}], Scaled[{0.985, 0.98, 0.98}], Scaled[{0.015, 0.98, 0.98}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0.015, 0.98, 0.02}], Scaled[{0.985, 0.98, 0.02}], Scaled[{1, 1, 0}], Scaled[{0, 0.99999, 0}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{1, 1, 0}], Scaled[{1, 1, 1}], Scaled[{0.985, 0.98, 0.98}], Scaled[{0.985, 0.98, 0.02}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0.015, 0.98, 0.98}], Scaled[{0.985, 0.98, 0.98}], Scaled[{1, 1, 1}], Scaled[{0, 1, 1}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0.015, 0.98, 0.02}], Scaled[{0, 0.99999, 0}], Scaled[{0, 1, 1}], Scaled[{0.015, 0.98, 0.98}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}], Polygon3DBox[{ Scaled[{0, 0.99999, 0}], Scaled[{1, 1, 0}], Scaled[{1, 1, 1}], Scaled[{0, 1, 1}]}, VertexColors->{ Directive[ Opacity[0.2], RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.6666666666666667]], Directive[ Opacity[0.2], RGBColor[0.5, 0.5, 1.]], Directive[ Opacity[0.2], RGBColor[0.6666666666666666, 0.6666666666666666, 1.]], Directive[ Opacity[0.2], GrayLevel[1]]}]}}, StripOnInput->False, Lighting->{{"Ambient", GrayLevel[1]}}], {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], {{}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{0., 0., 0.}, {0., 1., 0.}, {0., 1., 5.17}, {0., 0., 5.17}, {1., 0., 0.}, {1., 1., 0.}, {1., 1., 5.17}, {1., 0., 5.17}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{38.862579646116146`, 95.33596328363222}, {-141.7464004274507, 134.5014779937915}}], StatusArea[#, 5.17]& , TagBoxNote->"5.17"], StyleBox["5.17`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[5.17, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{1.1, 0., 0.}, {1.1, 1., 0.}, {1.1, 1., 4.63}, {1.1, 0., 4.63}, {2.1, 0., 0.}, {2.1, 1., 0.}, {2.1, 1., 4.63}, {2.1, 0., 4.63}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{84.4258401379636, 140.0482574763268}, {-112.59065163932019`, 136.49263105980845`}}], StatusArea[#, 4.63]& , TagBoxNote->"4.63"], StyleBox["4.63`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[4.63, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{2.2, 0., 0.}, {2.2, 1., 0.}, {2.2, 1., 5.}, {2.2, 0., 5.}, {3.2, 0., 0.}, {3.2, 1., 0.}, {3.2, 1., 5.}, {3.2, 0., 5.}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{129.81342665660452`, 184.9044914850107}, {-129.93939662348808`, 138.490250863858}}], StatusArea[#, 5.]& , TagBoxNote->"5."], StyleBox["5.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[5., { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{3.3000000000000003`, 0., 0.}, { 3.3000000000000003`, 1., 0.}, {3.3000000000000003`, 1., 3.69}, {3.3000000000000003`, 0., 3.69}, {4.300000000000001, 0., 0.}, {4.300000000000001, 1., 0.}, {4.300000000000001, 1., 3.69}, {4.300000000000001, 0., 3.69}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{175.70403052921014`, 229.90536149651595`}, {-61.31490858744132, 140.4943689605603}}], StatusArea[#, 3.69]& , TagBoxNote->"3.69"], StyleBox["3.69`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[3.69, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{4.4, 0., 0.}, {4.4, 1., 0.}, {4.4, 1., 4.2}, {4.4, 0., 4.2}, {5.4, 0., 0.}, {5.4, 1., 0.}, {5.4, 1., 4.2}, {5.4, 0., 4.2}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{221.36104771099494`, 275.0736148606351}, {-85.744222770433, 142.5050171101657}}], StatusArea[#, 4.2]& , TagBoxNote->"4.2"], StyleBox["4.2`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[4.2, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{5.5, 0., 0.}, {5.5, 1., 0.}, {5.5, 1., 6.}, {5.5, 0., 6.}, {6.5, 0., 0.}, {6.5, 1., 0.}, {6.5, 1., 6.}, {6.5, 0., 6.}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{267.24710454656906`, 320.874406082272}, {-176.7831054591583, 144.52222728023204`}}], StatusArea[#, 6.]& , TagBoxNote->"6."], StyleBox["6.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[6., { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{6.6, 0., 0.}, {6.6, 1., 0.}, {6.6, 1., 5.25}, {6.6, 0., 5.25}, {7.6, 0., 0.}, {7.6, 1., 0.}, {7.6, 1., 5.25}, {7.6, 0., 5.25}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{312.97168991445494`, 366.6853014728928}, {-136.52720930381753`, 146.54603164731913`}}], StatusArea[#, 5.25]& , TagBoxNote->"5.25"], StyleBox["5.25`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[5.25, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{7.699999999999999, 0., 0.}, { 7.699999999999999, 1., 0.}, {7.699999999999999, 1., 4.04}, { 7.699999999999999, 0., 4.04}, {8.7, 0., 0.}, {8.7, 1., 0.}, { 8.7, 1., 4.04}, {8.7, 0., 4.04}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{358.81348904025606`, 412.4013829864774}, {-72.56252959495362, 148.57646259869944`}}], StatusArea[#, 4.04]& , TagBoxNote->"4.04"], StyleBox["4.04`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[4.04, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{8.799999999999999, 0., 0.}, { 8.799999999999999, 1., 0.}, {8.799999999999999, 1., 4.91}, { 8.799999999999999, 0., 4.91}, {9.799999999999999, 0., 0.}, { 9.799999999999999, 1., 0.}, {9.799999999999999, 1., 4.91}, { 9.799999999999999, 0., 4.91}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{404.8054112556879, 458.7758472526226}, {-115.79549508408826`, 150.61355273408606`}}], StatusArea[#, 4.91]& , TagBoxNote->"4.91"], StyleBox["4.91`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[4.91, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], Directive[ EdgeForm[{ RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.5]}]], {}, {}], StyleBox[{ GraphicsComplex3DBox[{{9.899999999999999, 0., 0.}, { 9.899999999999999, 1., 0.}, {9.899999999999999, 1., 4.5}, { 9.899999999999999, 0., 4.5}, {10.899999999999999`, 0., 0.}, { 10.899999999999999`, 1., 0.}, {10.899999999999999`, 1., 4.5}, { 10.899999999999999`, 0., 4.5}}, { Polygon3DBox[{1, 2, 3, 4}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{5, 6, 7, 8}, VertexColors -> { RGBColor[0.25, 0.25, 0.5], RGBColor[0.25, 0.25, 0.5], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{2, 3, 7, 6}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 4, 8, 5}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.]}], Polygon3DBox[{4, 8, 7, 3}, VertexColors -> { RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.]}], Polygon3DBox[{1, 5, 6, 2}, VertexColors -> { RGBColor[0.9, 0.9, 1.], RGBColor[0.9, 0.9, 1.], RGBColor[0.5, 0.5, 1.], RGBColor[0.5, 0.5, 1.]}]}]}, Lighting -> {{"Ambient", GrayLevel[1]}}, StripOnInput -> False]}, ImageSizeCache->{{450.94819520665, 504.9016855205607}, {-92.97440540936697, 152.65733486737702`}}], StatusArea[#, 4.5]& , TagBoxNote->"4.5"], StyleBox["4.5`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[4.5, { GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, GraphicsGroup3DBox[ {GrayLevel[0], StyleBox[{}, Antialiasing->False]}]}}, AutomaticImageSize->True, Axes->{True, True, True}, AxesEdge->{{-1, -1}, {1, -1}, {-1, 1}}, BoxRatios->NCache[{1, Rational[1, 5], GoldenRatio^(-1)}, {1, 0.2, 0.6180339887498948}], Boxed->False, FaceGrids->{{{0, 1, 0}, {None, Automatic}}, {{0, 0, -1}, { None, None}}, {{-1, 0, 0}, {None, None}}}, ImageSize->{362.2378588556607, 264.25040949826183`}, Lighting->"Neutral", Method->{"RotationControl" -> "Globe"}, PlotRangePadding->Scaled[0.02], Ticks->{{{0, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {10.899999999999999`, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {1.05, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {2.1500000000000004`, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {3.25, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {4.3500000000000005`, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {5.45, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {6.55, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {7.6499999999999995`, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {8.75, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {9.849999999999998, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {0., FormBox["\"\"", TraditionalForm], {0.01, 0}}, {10.899999999999999`, FormBox["\"\"", TraditionalForm], {0.01, 0}}}, {{0, FormBox["\"\"", TraditionalForm], {0.005, 0}}, {1., FormBox["\"\"", TraditionalForm], {0.005, 0}}, {0., FormBox["\"\"", TraditionalForm], {0.01, 0}}, {1., FormBox["\"\"", TraditionalForm], {0.01, 0}}}, Automatic}, ViewPoint->{2, -10, 2}, ViewVertical->{0., 0., 1.}]], "Output", CellChangeTimes->{3.561726768096189*^9, 3.561726854842205*^9, 3.561824873009344*^9, 3.561824904932547*^9, 3.562682541155616*^9, 3.562683158819359*^9, 3.5626837590318213`*^9}] }, Open ]], Cell["\<\ Mais on peut faire beaucoup mieux avec la fonction \[LeftGuillemet]Manipulate\ \[RightGuillemet]:\ \>", "Text", CellChangeTimes->{{3.5617268846581907`*^9, 3.561726923202641*^9}, 3.561727210777115*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"BarChart3D", "[", RowBox[{"Select", "[", RowBox[{ RowBox[{"data1", "[", RowBox[{"[", RowBox[{ RowBox[{"Position", "[", RowBox[{"data1", ",", "nom"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"#", "<=", "6"}], "&"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"nom", ",", RowBox[{ RowBox[{"Transpose", "[", "data1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.56172694036661*^9, 3.561726993843473*^9}, 3.561727025030356*^9, {3.561727131072979*^9, 3.5617271367190866`*^9}, 3.561728247192491*^9, 3.561728307884704*^9}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`nom$$ = "Pr\[EAcute]nom", Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`nom$$], { "Pr\[EAcute]nom", "Teo", "Valentin", "Daniela", "S\[EAcute]verine", "Rafael", "H\[EAcute]l\[EGrave]ne", "Lakkat", "Shineka", "Abel", "Patrick", "Omair", "Dany", "Diego", "Melissa", "Marie-Anne", "Romain", "Matthieu", "Federico"}}}, Typeset`size$$ = {540., {177., 188.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`nom$76560$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`nom$$ = "Pr\[EAcute]nom"}, "ControllerVariables" :> { Hold[$CellContext`nom$$, $CellContext`nom$76560$$, 0]}, "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[ Select[ Part[$CellContext`data1, Part[ Position[$CellContext`data1, $CellContext`nom$$], 1, 1]], # <= 6& ]], "Specifications" :> {{$CellContext`nom$$, { "Pr\[EAcute]nom", "Teo", "Valentin", "Daniela", "S\[EAcute]verine", "Rafael", "H\[EAcute]l\[EGrave]ne", "Lakkat", "Shineka", "Abel", "Patrick", "Omair", "Dany", "Diego", "Melissa", "Marie-Anne", "Romain", "Matthieu", "Federico"}}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{604., {240., 247.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.561726980096146*^9, 3.561726996172518*^9}, 3.561727026437974*^9, 3.561727138122798*^9, 3.5617282490849447`*^9, 3.5617283104637547`*^9, 3.561824873089077*^9, 3.561824905010127*^9, 3.562682541243814*^9, 3.5626831588704348`*^9, 3.562683759065085*^9}] }, Open ]], Cell["\<\ Un peu de cosm\[EAcute]tique pour am\[EAcute]liorer la pr\[EAcute]sentation:\ \>", "Text", CellChangeTimes->{{3.561727215269917*^9, 3.561727233332552*^9}, { 3.56172857617476*^9, 3.5617285873787413`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"BarChart3D", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"data1", "[", RowBox[{"[", RowBox[{ RowBox[{"Position", "[", RowBox[{"data1", ",", "nom"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"#", "<=", "6"}], "&"}]}], "]"}], ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\\"", "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", RowBox[{"NumberForm", "[", RowBox[{ RowBox[{"Mean", StyleBox["[", "Subsection"], RowBox[{"Select", "[", RowBox[{ RowBox[{"data1", "[", RowBox[{"[", RowBox[{ RowBox[{"Position", "[", RowBox[{"data1", ",", "nom"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"#", "<=", "6"}], "&"}]}], "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], "}"}]}], "}"}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "nom", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", "data1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", RowBox[{"2", ";;", RowBox[{"Length", "[", RowBox[{ RowBox[{"Transpose", "[", "data1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], "]"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.561727248230722*^9, 3.561727529076632*^9}, { 3.561727579493765*^9, 3.561727656360861*^9}, 3.561727686647753*^9, { 3.5617277201973877`*^9, 3.561727822186323*^9}, {3.561727858266449*^9, 3.561727860506936*^9}, {3.561727918853188*^9, 3.561727961396921*^9}, { 3.561728049710135*^9, 3.561728080241488*^9}, {3.5617283229637203`*^9, 3.561728358478981*^9}, {3.561728480645747*^9, 3.5617285186012278`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`nom$$ = "Marie-Anne", Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`nom$$], "Marie-Anne", "El\[EGrave]ve"}, { "Teo", "Valentin", "Daniela", "S\[EAcute]verine", "Rafael", "H\[EAcute]l\[EGrave]ne", "Lakkat", "Shineka", "Abel", "Patrick", "Omair", "Dany", "Diego", "Melissa", "Marie-Anne", "Romain", "Matthieu", "Federico"}}}, Typeset`size$$ = {540., {207., 217.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`nom$76589$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`nom$$ = "Marie-Anne"}, "ControllerVariables" :> { Hold[$CellContext`nom$$, $CellContext`nom$76589$$, 0]}, "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[ Select[ Part[$CellContext`data1, Part[ Position[$CellContext`data1, $CellContext`nom$$], 1, 1]], # <= 6& ], PlotLabel -> Grid[{{"Notes de devoirs"}, { StringJoin["Moyenne : ", ToString[ NumberForm[ Mean[ Select[ Part[$CellContext`data1, Part[ Position[$CellContext`data1, $CellContext`nom$$], 1, 1]], # <= 6& ]], 2]]]}}]], "Specifications" :> {{{$CellContext`nom$$, "Marie-Anne", "El\[EGrave]ve"}, { "Teo", "Valentin", "Daniela", "S\[EAcute]verine", "Rafael", "H\[EAcute]l\[EGrave]ne", "Lakkat", "Shineka", "Abel", "Patrick", "Omair", "Dany", "Diego", "Melissa", "Marie-Anne", "Romain", "Matthieu", "Federico"}}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{604., {269., 277.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.561727413992293*^9, 3.5617274914299803`*^9}, 3.561727530671002*^9, 3.5617276232188587`*^9, 3.5617276892811117`*^9, 3.5617277587886972`*^9, {3.561727803577271*^9, 3.561727823833143*^9}, 3.5617278621997643`*^9, {3.561727940446657*^9, 3.561727963325672*^9}, 3.561728051135499*^9, 3.561728081916357*^9, {3.561728324689172*^9, 3.5617283590656433`*^9}, 3.5618248732573843`*^9, 3.561824905115411*^9, 3.562682541552991*^9, 3.56268315895855*^9, 3.562683759141695*^9}] }, Open ]], Cell["\<\ Il y a, parmi les participants, des personnes qui n\[CloseCurlyQuote]ont \ aucune note:\ \>", "Text", CellChangeTimes->{{3.56172923464902*^9, 3.561729270482521*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data1", "[", RowBox[{"[", RowBox[{ RowBox[{"Position", "[", RowBox[{"data1", ",", "\"\\""}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5617288189857597`*^9, 3.5617288344648314`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Lakkat\"\>", ",", "\<\"Haas Strauf\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"l@i-les.ch\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>", ",", "\<\"-\"\>"}], "}"}]], "Output", CellChangeTimes->{3.561728836674296*^9, 3.56182487359378*^9, 3.5618249052226133`*^9, 3.562682541873065*^9, 3.5626831590876637`*^9, 3.5626837592486763`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Select", "[", RowBox[{ RowBox[{"data1", "[", RowBox[{"[", RowBox[{ RowBox[{"Position", "[", RowBox[{"data1", ",", "\"\\""}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"#", "<=", "6"}], "&"}]}], "]"}]], "Input", CellChangeTimes->{{3.561729157636836*^9, 3.561729160931683*^9}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{{3.56172916149995*^9, 3.561729176750186*^9}, 3.561824873792412*^9, 3.561824905273107*^9, 3.562682541914147*^9, 3.562683159155402*^9, 3.562683759298643*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.561728896317915*^9, 3.56172890104251*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{3.56172917944555*^9, 3.5618248740390244`*^9, 3.5618249053231287`*^9, 3.562682541983131*^9, 3.562683159188387*^9, 3.562683759349025*^9}] }, Open ]], Cell["\<\ Effectuons un test pour signaler, dans ces cas, qu\[CloseCurlyQuote]il n\ \[CloseCurlyQuote]y a pas de note:\ \>", "Text", CellChangeTimes->{{3.561729278002002*^9, 3.561729318565353*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"nom", "=", "\"\\""}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"Select", "[", RowBox[{ RowBox[{"data1", "[", RowBox[{"[", RowBox[{ RowBox[{"Position", "[", RowBox[{"data1", ",", "nom"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"#", "<=", "6"}], "&"}]}], "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{"ToString", "[", RowBox[{"NumberForm", "[", RowBox[{ RowBox[{"Mean", StyleBox["[", "Subsection"], RowBox[{"Select", "[", RowBox[{ RowBox[{"data1", "[", RowBox[{"[", RowBox[{ RowBox[{"Position", "[", RowBox[{"data1", ",", "nom"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"#", "<=", "6"}], "&"}]}], "]"}], "]"}], ",", "2"}], "]"}], "]"}], ",", "\"\\""}], "]"}]}], "Input", CellChangeTimes->{{3.56172888045778*^9, 3.5617289603891077`*^9}, { 3.5617290041190653`*^9, 3.561729029858073*^9}, {3.5617291926247387`*^9, 3.5617292222569723`*^9}}], Cell[BoxData["\<\"Lakkat\"\>"], "Output", CellChangeTimes->{{3.561728871253252*^9, 3.561728881741337*^9}, { 3.561729019136434*^9, 3.561729030694222*^9}, {3.561729213221833*^9, 3.561729223400034*^9}, 3.5618248744091167`*^9, 3.5618249053742943`*^9, 3.562682542015945*^9, 3.562683159242277*^9, 3.5626837593996468`*^9}], Cell[BoxData["\<\"aucune note\"\>"], "Output", CellChangeTimes->{{3.561728871253252*^9, 3.561728881741337*^9}, { 3.561729019136434*^9, 3.561729030694222*^9}, {3.561729213221833*^9, 3.561729223400034*^9}, 3.5618248744091167`*^9, 3.5618249053742943`*^9, 3.562682542015945*^9, 3.562683159242277*^9, 3.562683759400823*^9}] }, Open ]], Cell["\<\ Int\[EAcute]grons ce test dans notre pr\[EAcute]sentation interactive :\ \>", "Text", CellChangeTimes->{{3.561729327335397*^9, 3.5617293612490892`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"BarChart3D", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"data1", "[", RowBox[{"[", RowBox[{ RowBox[{"Position", "[", RowBox[{"data1", ",", "nom"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"#", "<=", "6"}], "&"}]}], "]"}], ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\\"", "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", "<>", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"Select", "[", RowBox[{ RowBox[{"data1", "[", RowBox[{"[", RowBox[{ RowBox[{"Position", "[", RowBox[{"data1", ",", "nom"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"#", "<=", "6"}], "&"}]}], "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{"ToString", "[", RowBox[{"NumberForm", "[", RowBox[{ RowBox[{"Mean", StyleBox["[", "Subsection"], RowBox[{"Select", "[", RowBox[{ RowBox[{"data1", "[", RowBox[{"[", RowBox[{ RowBox[{"Position", "[", RowBox[{"data1", ",", "nom"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"#", "<=", "6"}], "&"}]}], "]"}], "]"}], ",", "2"}], "]"}], "]"}], ",", "\"\\""}], "]"}]}], "}"}]}], "}"}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "nom", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", "data1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", RowBox[{"2", ";;", RowBox[{"Length", "[", RowBox[{ RowBox[{"Transpose", "[", "data1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], "]"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5617290757523603`*^9, 3.5617290949764967`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`nom$$ = "Omair", Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`nom$$], "Marie-Anne", "El\[EGrave]ve"}, { "Teo", "Valentin", "Daniela", "S\[EAcute]verine", "Rafael", "H\[EAcute]l\[EGrave]ne", "Lakkat", "Shineka", "Abel", "Patrick", "Omair", "Dany", "Diego", "Melissa", "Marie-Anne", "Romain", "Matthieu", "Federico"}}}, Typeset`size$$ = {540., {207., 217.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`nom$76654$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`nom$$ = "Marie-Anne"}, "ControllerVariables" :> { Hold[$CellContext`nom$$, $CellContext`nom$76654$$, 0]}, "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[ Select[ Part[$CellContext`data1, Part[ Position[$CellContext`data1, $CellContext`nom$$], 1, 1]], # <= 6& ], PlotLabel -> Grid[{{"Notes de devoirs"}, { StringJoin["Moyenne : ", If[Length[ Select[ Part[$CellContext`data1, Part[ Position[$CellContext`data1, $CellContext`nom$$], 1, 1]], # <= 6& ]] != 0, ToString[ NumberForm[ Mean[ Select[ Part[$CellContext`data1, Part[ Position[$CellContext`data1, $CellContext`nom$$], 1, 1]], # <= 6& ]], 2]], "aucune note"]]}}]], "Specifications" :> {{{$CellContext`nom$$, "Marie-Anne", "El\[EGrave]ve"}, { "Teo", "Valentin", "Daniela", "S\[EAcute]verine", "Rafael", "H\[EAcute]l\[EGrave]ne", "Lakkat", "Shineka", "Abel", "Patrick", "Omair", "Dany", "Diego", "Melissa", "Marie-Anne", "Romain", "Matthieu", "Federico"}}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{604., {269., 277.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.561729077866995*^9, 3.5617290956443357`*^9}, 3.561824874498281*^9, 3.561824905431563*^9, 3.56268254207192*^9, 3.5626831592943974`*^9, 3.562683759454768*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1562, 1134}, WindowMargins->{{Automatic, 381}, {Automatic, 55}}, FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (October 5, \ 2011)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 158, 3, 69, "Subtitle"], Cell[740, 27, 419, 7, 66, "Text"], Cell[CellGroupData[{ Cell[1184, 38, 108, 1, 36, "Subsubsection"], Cell[CellGroupData[{ Cell[1317, 43, 8438, 155, 735, "Input"], Cell[9758, 200, 7853, 135, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17648, 340, 8093, 149, 712, InheritFromParent], Cell[25744, 491, 7880, 136, 70, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[33673, 633, 120, 1, 25, "Subsubsection"], Cell[CellGroupData[{ Cell[33818, 638, 495, 15, 64, "Input"], Cell[34316, 655, 207, 3, 40, "Output"] }, Open ]], Cell[34538, 661, 224, 5, 41, "Text"], Cell[CellGroupData[{ Cell[34787, 670, 497, 14, 64, "Input"], Cell[35287, 686, 360, 8, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35684, 699, 129, 2, 40, "Input"], Cell[35816, 703, 9874, 276, 356, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[45727, 984, 545, 15, 64, "Input"], Cell[46275, 1001, 35191, 846, 432, "Output"] }, Open ]], Cell[81481, 1850, 156, 3, 41, "Text"], Cell[CellGroupData[{ Cell[81662, 1857, 548, 15, 64, "Input"], Cell[82213, 1874, 35205, 846, 493, "Output"] }, Open ]], Cell[117433, 2723, 444, 7, 41, "Text"], Cell[CellGroupData[{ Cell[117902, 2734, 257, 5, 40, "Input"], Cell[118162, 2741, 797, 13, 64, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[118996, 2759, 537, 15, 64, "Input"], Cell[119536, 2776, 35158, 844, 418, "Output"] }, Open ]], Cell[154709, 3623, 215, 5, 41, "Text"], Cell[CellGroupData[{ Cell[154949, 3632, 814, 22, 40, "Input"], Cell[155766, 3656, 2428, 46, 511, "Output"] }, Open ]], Cell[158209, 3705, 216, 4, 41, "Text"], Cell[CellGroupData[{ Cell[158450, 3713, 2431, 63, 133, "Input"], Cell[160884, 3778, 3051, 60, 570, "Output"] }, Open ]], Cell[163950, 3841, 176, 4, 41, "Text"], Cell[CellGroupData[{ Cell[164151, 3849, 311, 8, 40, "Input"], Cell[164465, 3859, 580, 10, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[165082, 3874, 421, 12, 40, "Input"], Cell[165506, 3888, 228, 4, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[165771, 3897, 124, 2, 40, "Input"], Cell[165898, 3901, 189, 3, 40, "Output"] }, Open ]], Cell[166102, 3907, 198, 4, 41, "Text"], Cell[CellGroupData[{ Cell[166325, 3915, 1334, 37, 87, "Input"], Cell[167662, 3954, 327, 4, 40, "Output"], Cell[167992, 3960, 330, 4, 40, "Output"] }, Open ]], Cell[168337, 3967, 163, 3, 41, "Text"], Cell[CellGroupData[{ Cell[168525, 3974, 2794, 76, 156, "Input"], Cell[171322, 4052, 2982, 62, 570, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)