(* 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[ 45668, 1037] NotebookOptionsPosition[ 42955, 934] NotebookOutlinePosition[ 43355, 951] CellTagsIndexPosition[ 43312, 948] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data", "=", RowBox[{"Import", "[", "\"\<34OC-IN Notes.xls\>\"", "]"}]}]], "Input", CellChangeTimes->{{3.561185665379018*^9, 3.561185686260435*^9}, { 3.5611857582504807`*^9, 3.561185765191662*^9}, 3.561196409861558*^9}], Cell[BoxData[ RowBox[{"{", 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.`", ",", "1.`", ",", "\<\"-\"\>", ",", "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.`", ",", "\<\"-\"\>", ",", "67.83`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Rafael\"\>", ",", "\<\"Dias Pereira\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"carouge1994@hotmail.com\"\>", ",", "5.33`", ",", "\<\"-\"\>", ",", "4.67`", ",", "\<\"-\"\>", ",", "6.`", ",", "6.`", ",", "4.28`", ",", "4.02`", ",", "4.28`", ",", "1.`", ",", "\<\"-\"\>", ",", "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.`", ",", "\<\"-\"\>", ",", "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.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.`", ",", "1.`", ",", "1.`", ",", "\<\"-\"\>", ",", "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.`", ",", "\<\"-\"\>", ",", "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.`", ",", "\<\"-\"\>", ",", "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.`", ",", "\<\"-\"\>", ",", "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.`", ",", "\<\"-\"\>", ",", "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.561196411454845*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Traitement de donn\[EAcute]es", "Title", CellChangeTimes->{{3.561202983671875*^9, 3.561202987125*^9}}], Cell[CellGroupData[{ Cell["\<\ En \[EAcute]crivant data = devant la liste, on effectue une affectation. \ Toutes les valeurs de la liste se trouvent, apr\[EGrave]s \[EAcute]valuation \ de la cellule, dans la variable data. En pla\[CCedilla]ant un ; \[AGrave] la \ fin de la liste, on supprime l'affichage de cette derni\[EGrave]re lors de l'\ \[EAcute]valuation.\ \>", "Section", CellChangeTimes->{{3.561202812109375*^9, 3.56120292596875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"data", "=", 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`"}], "}"}]}], "}"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.56120133134375*^9, 3.56120134746875*^9}, 3.561202929359375*^9, 3.5612029616875*^9}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Cette liste est constitu\[EAcute]e de sous - listes. La longeur de cette \ liste est 1, car elle comporte une sous-liste qui contient toutes les autres\ \>", "Subsubtitle", CellChangeTimes->{{3.561202965921875*^9, 3.561202966546875*^9}, { 3.561203043328125*^9, 3.5612030958125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "data", "]"}]], "Input", CellChangeTimes->{{3.561201469625*^9, 3.56120147828125*^9}}], Cell[BoxData["1"], "Output", CellChangeTimes->{3.561201479453125*^9, 3.56120181965625*^9}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Pour acc\[EAcute]der \[AGrave] cette sous - liste on \[EAcute]crit data[[1]] \ et on la place dans une nouvelle variable data1\ \>", "Section", CellChangeTimes->{{3.561203108203125*^9, 3.56120315984375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data1", "=", RowBox[{"data", "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.561201494921875*^9, 3.561201512328125*^9}, { 3.561202257421875*^9, 3.56120226425*^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.`", ",", "1.`", ",", "\<\"-\"\>", ",", "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.`", ",", "\<\"-\"\>", ",", "67.83`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Rafael\"\>", ",", "\<\"Dias Pereira\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"\"\>", ",", "\<\"carouge1994@hotmail.com\"\>", ",", "5.33`", ",", "\<\"-\"\>", ",", "4.67`", ",", "\<\"-\"\>", ",", "6.`", ",", "6.`", ",", "4.28`", ",", "4.02`", ",", "4.28`", ",", "1.`", ",", "\<\"-\"\>", ",", "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.`", ",", "\<\"-\"\>", ",", "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.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.`", ",", "1.`", ",", "1.`", ",", "\<\"-\"\>", ",", "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.`", ",", "\<\"-\"\>", ",", "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.`", ",", "\<\"-\"\>", ",", "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.`", ",", "\<\"-\"\>", ",", "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.`", ",", "\<\"-\"\>", ",", "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.5612015129375*^9, 3.561201823796875*^9, 3.561202162328125*^9, 3.561202270984375*^9, 3.561207816546875*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Cette fonction donnne le nombre de sous listes (ou d' \ \[EAcute]l\[EAcute]ments dans une liste)\ \>", "Section", CellChangeTimes->{{3.561204004734375*^9, 3.56120403778125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "data1", "]"}]], "Input", CellChangeTimes->{{3.561201543109375*^9, 3.561201549609375*^9}, 3.561202278828125*^9}], Cell[BoxData["19"], "Output", CellChangeTimes->{3.561201555125*^9, 3.561201827421875*^9, 3.5612021645625*^9, 3.5612022796875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data1", "[", RowBox[{"[", "9", "]"}], "]"}]], "Input", CellChangeTimes->{{3.561202304015625*^9, 3.56120232996875*^9}}], Cell[BoxData[ 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`"}], "}"}]], "Output", CellChangeTimes->{{3.5612023109375*^9, 3.561202330671875*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Pour obtenir la position d' un \[EAcute]l\[EAcute]ment dans une liste\ \>", "Section", CellChangeTimes->{{3.561204070125*^9, 3.561204080109375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Position", "[", RowBox[{"data1", ",", "\"\\""}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"19", ",", "1"}], "}"}], "}"}]], "Output", CellChangeTimes->{3.561204124046875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Position", "[", RowBox[{"data1", ",", "\"\\""}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.561204150546875*^9, 3.56120415265625*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"19", ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.5612041530625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Position", "[", RowBox[{"data1", ",", "\"\\""}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.561202420109375*^9, 3.5612024495625*^9}, { 3.5612025125*^9, 3.561202523046875*^9}, {3.561202641625*^9, 3.561202658484375*^9}}], Cell[BoxData["19"], "Output", CellChangeTimes->{ 3.56120245065625*^9, {3.561202517765625*^9, 3.561202523734375*^9}, { 3.56120263034375*^9, 3.56120265921875*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ En utilisant cettte syntaxe, on parvient \[AGrave] isoler l'\[EAcute]l\ \[EAcute]ment \"Federico\"\ \>", "Section", CellChangeTimes->{{3.56120418890625*^9, 3.561204255046875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data1", "[", RowBox[{"[", RowBox[{ RowBox[{"Position", "[", RowBox[{"data1", ",", "\"\\""}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{ 3.561202680765625*^9, {3.561203357*^9, 3.561203359640625*^9}, 3.56120418490625*^9, {3.561207911078125*^9, 3.561207912328125*^9}}], Cell[BoxData[ 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.561202705828125*^9, 3.5612033603125*^9, 3.561204258125*^9, 3.561207830625*^9, 3.561207913109375*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["On souhaite isoler uniquement les notes (nombres)", "Section", CellChangeTimes->{{3.561204278765625*^9, 3.56120431965625*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Select", "[", RowBox[{ RowBox[{"data1", "[", RowBox[{"[", RowBox[{ RowBox[{"Position", "[", RowBox[{"data1", ",", "\"\\""}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"NumberQ", "[", StyleBox["#", "Subsubtitle"], "]"}], "&"}]}], "]"}]], "Input", CellChangeTimes->{{3.561204324203125*^9, 3.56120437834375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "4.23`", ",", "3.81`", ",", "3.93`", ",", "4.`", ",", "4.41`", ",", "5.85`", ",", "5.31`", ",", "3.26`", ",", "4.06`", ",", "5.5`", ",", "73.51`"}], "}"}]], "Output", CellChangeTimes->{3.561204385015625*^9, 3.561207842484375*^9}] }, Open ]] }, Open ]], Cell["\<\ NumberQ[#] & est une fonction qui teste les \[EAcute]l\[EAcute]ments de la \ liste et qui retourne True s'il s'agit d'un nombre\ \>", "Section", CellChangeTimes->{{3.561204429640625*^9, 3.56120448096875*^9}}], Cell[CellGroupData[{ Cell["\<\ Le dernier nombre de la liste dont \[EHat]tre retir\[EAcute]. On \ d\[EAcute]finit comme pr\[EAcute]c\[EAcute]demment une fonction qui test s'il \ s'agit d'un nombre et s'il est inf\[EAcute]rieur ou \[EAcute]gal \[AGrave] 6\ \>", "Section", CellChangeTimes->{{3.5612045336875*^9, 3.561204558515625*^9}, { 3.561204651515625*^9, 3.5612046833125*^9}, {3.56120793134375*^9, 3.561207948*^9}}], 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.561204572671875*^9, 3.561204633609375*^9}, { 3.561207961453125*^9, 3.561207964359375*^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.561204636046875*^9, 3.56120785371875*^9, 3.561207965015625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.561204697796875*^9, 3.56120470396875*^9}}], Cell[BoxData["4.436`"], "Output", CellChangeTimes->{3.561204704828125*^9, 3.56120796915625*^9}] }, Open ]] }, Open ]], Cell["Assemblons en un petit programme ces quelques lignes", "Section", CellChangeTimes->{{3.561204731078125*^9, 3.56120474728125*^9}}], Cell[CellGroupData[{ Cell["Liste donn\[EAcute]e", "Section", CellChangeTimes->{{3.56120479553125*^9, 3.56120480428125*^9}}], Cell[BoxData[ RowBox[{ 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.`", ",", "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`"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.56120798859375*^9, 3.561207996203125*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Programme (les donn\[EAcute]es doivent se trouver dans la variable data1)\ \>", "Section", CellChangeTimes->{{3.561204867640625*^9, 3.561204869328125*^9}, { 3.561207630796875*^9, 3.56120765934375*^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", CellChangeTimes->{{3.561204882203125*^9, 3.561204948296875*^9}, { 3.5612080034375*^9, 3.56120804040625*^9}}], Cell[BoxData["4.575555555555556`"], "Output", CellChangeTimes->{{3.561204931390625*^9, 3.56120494896875*^9}, { 3.56120800525*^9, 3.561208041203125*^9}}] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1659, 993}, WindowMargins->{{Automatic, 6}, {Automatic, 62}}, ShowSelection->True, Magnification->1.399999976158142, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 249, 4, 40, "Input"], Cell[831, 28, 7998, 139, 566, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8866, 172, 109, 1, 114, "Title"], Cell[CellGroupData[{ Cell[9000, 177, 423, 7, 170, "Section"], Cell[9426, 186, 8495, 157, 591, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[17958, 348, 295, 5, 38, "Subsubtitle"], Cell[CellGroupData[{ Cell[18278, 357, 124, 2, 40, "Input"], Cell[18405, 361, 91, 1, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18533, 367, 219, 4, 98, "Section"], Cell[CellGroupData[{ Cell[18777, 375, 219, 5, 40, "Input"], Cell[18999, 382, 7906, 136, 566, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[26954, 524, 188, 4, 98, "Section"], Cell[CellGroupData[{ Cell[27167, 532, 155, 3, 40, "Input"], Cell[27325, 537, 133, 2, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27495, 544, 146, 3, 40, "Input"], Cell[27644, 549, 442, 7, 40, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[28135, 562, 159, 3, 98, "Section"], Cell[CellGroupData[{ Cell[28319, 569, 103, 2, 40, "Input"], Cell[28425, 573, 140, 4, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28602, 582, 220, 5, 40, "Input"], Cell[28825, 589, 114, 3, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28976, 597, 333, 8, 40, "Input"], Cell[29312, 607, 167, 3, 40, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[29528, 616, 190, 4, 98, "Section"], Cell[CellGroupData[{ Cell[29743, 624, 399, 10, 40, "Input"], Cell[30145, 636, 502, 8, 40, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[30696, 650, 133, 1, 98, "Section"], Cell[CellGroupData[{ Cell[30854, 655, 463, 13, 43, "Input"], Cell[31320, 670, 279, 6, 40, "Output"] }, Open ]] }, Open ]], Cell[31626, 680, 219, 4, 98, "Section"], Cell[CellGroupData[{ Cell[31870, 688, 403, 7, 91, "Section"], Cell[CellGroupData[{ Cell[32298, 699, 472, 13, 40, "Input"], Cell[32773, 714, 287, 7, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[33097, 726, 122, 2, 40, "Input"], Cell[33222, 730, 96, 1, 40, "Output"] }, Open ]] }, Open ]], Cell[33345, 735, 136, 1, 98, "Section"], Cell[CellGroupData[{ Cell[33506, 740, 103, 1, 55, "Section"], Cell[33612, 743, 8250, 151, 566, InheritFromParent] }, Open ]], Cell[CellGroupData[{ Cell[41899, 899, 214, 4, 98, "Section"], Cell[CellGroupData[{ Cell[42138, 907, 607, 17, 66, "Input"], Cell[42748, 926, 155, 2, 40, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)