{VERSION 4 0 "IBM INTEL NT" "4.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 256 "" 1 36 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{PSTYLE "Normal " -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Heading 1" -1 3 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 8 4 1 0 1 0 2 2 0 1 }{PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Out put" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Normal" -1 256 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 256 "" 0 "" {TEXT 256 84 "R\351mi SOUVETON - A1\n Math\351matiques Assist\351es par Ordinateur\n(MAO)\nTh\350me 05 - 07/ 03/07\n" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 18 "Lecture de fichier" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 96 "chemin := \"C:/MAPLEV6/Users/souveton/MAO\";\n nom := \"Theme05.txt\";\nnomLong := cat(chemin,\"/\",nom);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'cheminGQ>C:/MAPLEV6/Users/souveton/MAO6\" " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$nomGQ,Theme05.txt6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(nomLongGQJC:/MAPLEV6/Users/souveton/MAO/T heme05.txt6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "fichier := fopen(nomLong,READ);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(fichierG\" \"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "fscanf(fichier,\"%[^ ;]\");" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7#Q]pNom|*Superficie~(km|]v) |*Population~(Khabitants)|*Nombre~de~Communes|*Revenu~des~m|dynages6\" " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "fscanf(fichier,\"%[;\\n ]\");" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7#Q#;|+6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 325 "compteur := 0;\ndata := NULL;\nnomRegion := NULL;\ntmp := [0];\nwhile tmp <> 0 do\n tmp := fscanf(fichier, \"%[^,]\");\n if tmp <> 0 then\n compteur := compteu r + 1;\n nomRegion := nomRegion,tmp[1];\n tmp := fsc anf(fichier,\",%d,%d,%d,%d\");\n data := data,tmp;\n fi; \nod;\nfclose(fichier);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)compteur G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%dataG6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*nomRegionG6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#>%$tmpG7#\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$tmpG7#Q'Alsace6 \"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$tmpG7#Q+|+Aquitaine6\"" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%$tmpG7#Q*|+Auvergne6\"" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%$tmpG7#Q1|+Basse-Normandie6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$tmpG7#Q+|+Bourgogne6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$tmpG7#Q*|+Bretagne6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$tmpG7#Q(|+Centre6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$tmp G7#Q4|+Champagne-Ardennes6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$tmp G7#Q'|+Corse6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$tmpG7#Q/|+Franch e-Comt|dy6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$tmpG7#Q1|+Haute-Nor mandie6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$tmpG7#Q/|+Ile-de-Franc e6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$tmpG7#Q6|+Languedoc-Roussil lon6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$tmpG7#Q*|+Limousin6\"" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%$tmpG7#Q*|+Lorraine6\"" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%$tmpG7#Q/|+Midi-Pyr|dyn|dyes6\"" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%$tmpG7#Q4|+Nord-Pas-de-Calais6\"" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%$tmpG7#Q/|+Pays-de-Loire6\"" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%$tmpG7#Q*|+Picardie6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$tmpG7#Q2|+Poitou-Charentes6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$tmpG7#Q&|+Paca6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #>%$tmpG7#Q-|+Rh|_zne-Alpes6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$t mpG7#Q#|+|+6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "compteur; \ndata;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#B" }}{PARA 12 "" 1 "" {XPPMATH 20 "697&\"$!G\"%%z\"\"$/*\"&du\"7&\"&48%\"%\\I\"%'H#\"&4c\"7& \"&8g#\"%48\"%58\"&#)[\"7&\"&ov\"\"%A9\"%7=\"&`Z\"7&\"&#eJ\"%5;\"%X?\" &Ba\"7&\"&3s#\"%1H\"%o7\"&Wc\"7&\"&^\"R\"%![#\"%U=\"&qf\"7&\"&1c#\"%U8 \"%Z>\"&@]\"7&\"%!o)\"$&G\"$g$\"&lP\"7&\"&-i\"\"%<6\"%'y\"\"&Nb\"7&\"& \"%d=\"%#H#\"&I^\"7&\"&5e#\"%,<\"%k9\"&B[\"7&\"&+9$\"%1X\"$j*\"&Va \"7&\"&)pV\"%0g\"%zG\"&!R;\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 82 "Superficie := 1;\nPopulation := 2;\nNbreCommunes := 3;\nRevenu s := 4;\ndata := [data];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+Superfi cieG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+PopulationG\"\"#" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%-NbreCommunesG\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(RevenusG\"\"%" }}{PARA 12 "" 1 "" {XPPMATH 20 " 6#>%%dataG797&\"$!G\"%%z\"\"$/*\"&du\"7&\"&48%\"%\\I\"%'H#\"&4c\"7&\"& 8g#\"%48\"%58\"&#)[\"7&\"&ov\"\"%A9\"%7=\"&`Z\"7&\"&#eJ\"%5;\"%X?\"&Ba \"7&\"&3s#\"%1H\"%o7\"&Wc\"7&\"&^\"R\"%![#\"%U=\"&qf\"7&\"&1c#\"%U8\"% Z>\"&@]\"7&\"%!o)\"$&G\"$g$\"&lP\"7&\"&-i\"\"%<6\"%'y\"\"&Nb\"7&\"&\"%d=\"%#H#\"&I^\"7&\"&5e#\"%,<\"%k9\"&B[\"7&\"&+9$\"%1X\"$j*\"&Va\"7 &\"&)pV\"%0g\"%zG\"&!R;\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 145 "x := NULL; # s\351rie \340 \351tudier\nnobs := nops(data)-1; # \+ nombre d'observations (r\351gion)\nfor i from 1 to nobs do\n x := x , data[i][Superficie];\nod;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG 6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%nobsG\"#A" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%\"xG\"$!G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG 6$\"$!G\"&48%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG6%\"$!G\"&48%\" &8g#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG6&\"$!G\"&48%\"&8g#\"&ov \"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG6'\"$!G\"&48%\"&8g#\"&ov\" \"&#eJ" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG6(\"$!G\"&48%\"&8g#\"& ov\"\"&#eJ\"&3s#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG6)\"$!G\"&48 %\"&8g#\"&ov\"\"&#eJ\"&3s#\"&^\"R" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#> %\"xG6*\"$!G\"&48%\"&8g#\"&ov\"\"&#eJ\"&3s#\"&^\"R\"&1c#" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%\"xG6+\"$!G\"&48%\"&8g#\"&ov\"\"&#eJ\"&3s#\"&^ \"R\"&1c#\"%!o)" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG6,\"$!G\"&48% \"&8g#\"&ov\"\"&#eJ\"&3s#\"&^\"R\"&1c#\"%!o)\"&-i\"" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%\"xG6-\"$!G\"&48%\"&8g#\"&ov\"\"&#eJ\"&3s#\"&^\"R\" &1c#\"%!o)\"&-i\"\"&%\"xG6.\" $!G\"&48%\"&8g#\"&ov\"\"&#eJ\"&3s#\"&^\"R\"&1c#\"%!o)\"&-i\"\"&%\"xG6/\"$!G\"&48%\"&8g#\"&ov \"\"&#eJ\"&3s#\"&^\"R\"&1c#\"%!o)\"&-i\"\"&%\"xG60\"$!G\"&48%\"&8g#\"&ov\"\"&#eJ\"&3s# \"&^\"R\"&1c#\"%!o)\"&-i\"\"&%\"xG61\"$!G\"&48%\"&8g#\"&ov\"\"&#eJ\"&3s#\"&^\" R\"&1c#\"%!o)\"&-i\"\"&%\"xG62\"$!G\"&48%\"&8g#\"&ov\"\"&#eJ\"&3s#\"&^\" R\"&1c#\"%!o)\"&-i\"\"&%\"xG63\"$!G\"&48%\"&8g#\"&ov\"\"&#eJ\"&3s# \"&^\"R\"&1c#\"%!o)\"&-i\"\"&%\"xG64\"$!G\"&48%\"&8g#\"&ov\" \"&#eJ\"&3s#\"&^\"R\"&1c#\"%!o)\"&-i\"\"&%\"xG65\"$!G \"&48%\"&8g#\"&ov\"\"&#eJ\"&3s#\"&^\"R\"&1c#\"%!o)\"&-i\"\"&" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"xG66\"$!G\"&48%\"&8g#\"&ov\"\"&#eJ\"&3s#\"&^\"R\"&1 c#\"%!o)\"&-i\"\"&\"&5e#" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"xG67\"$!G\"&48%\"&8g# \"&ov\"\"&#eJ\"&3s#\"&^\"R\"&1c#\"%!o)\"&-i\"\"&\"&5e#\"&+9$" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"xG68\"$!G\"&48%\"&8g#\"&ov\"\"&#eJ\"&3s#\"&^\"R\"&1 c#\"%!o)\"&-i\"\"&\"&5e#\"&+9$\"&)pV" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "x; " }}{PARA 12 "" 1 "" {XPPMATH 20 "68\"$!G\"&48%\"&8g#\"&ov\"\"&#eJ\"&3 s#\"&^\"R\"&1c#\"%!o)\"&-i\"\"&\"&5e#\"&+9$\"&)pV" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 25 "Statistiques descriptives" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "with(stats) ;\nwith(describe);" }}{PARA 7 "" 1 "" {TEXT -1 116 "Warning, these nam es have been redefined: anova, describe, fit, importdata, random, stat evalf, statplots, transform\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7*%&a novaG%)describeG%$fitG%+importdataG%'randomG%*statevalfG%*statplotsG%* transformG" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#79%7coefficientofvariati onG%&countG%-countmissingG%+covarianceG%'decileG%.geometricmeanG%-harm onicmeanG%)kurtosisG%2linearcorrelationG%%meanG%.meandeviationG%'media nG%%modeG%'momentG%+percentileG%.quadraticmeanG%)quantileG%)quartileG% &rangeG%)skewnessG%2standarddeviationG%(sumdataG%)varianceG" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "x := [x];" }}{PARA 12 "" 1 " " {XPPMATH 20 "6#>%\"xG78\"$!G\"&48%\"&8g#\"&ov\"\"&#eJ\"&3s#\"&^\"R\" &1c#\"%!o)\"&-i\"\"&\"&5e#\"&+9$\"&)pV" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "evalf(mean(x));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+\"44hV#!\"&" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "evalf(median(x));" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#$\"&3d#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "evalf(variance(x));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+n)HuM\"!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "evalf(standarddeviation(x));" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#$\"+o%)yg6!\"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "etendue := range(x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(etendueG;\"$!G\"&[ `%" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 62 "rhs et lhs permettent d'iso ler les deux bornes d'un intervalle" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "rhs(etendue) - lhs(etendue);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\" &o]%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 198 "IsolerSerie := pro c(data,index)\nlocal y,i,nobs;\ny := NULL; # s\351rie \340 \351tudier \nnobs := nops(data)-1; # nombre d'observations (r\351gion)\nfor i fro m 1 to nobs do\n y := y , data[i][index];\nod;\n[y];\nend;" }} {PARA 12 "" 1 "" {XPPMATH 20 "6#>%,IsolerSerieGR6$%%dataG%&indexG6%%\" yG%\"iG%%nobsG6\"F-C&>8$%%NULLG>8&,&-%%nopsG6#9$\"\"\"F9!\"\"?(8%F9F9F 3%%trueG>F06$F0&&F86#F<6#9%7#F0F-F-F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "x := IsolerSerie(data,Superficie);" }}{PARA 12 "" 1 " " {XPPMATH 20 "6#>%\"xG78\"$!G\"&48%\"&8g#\"&ov\"\"&#eJ\"&3s#\"&^\"R\" &1c#\"%!o)\"&-i\"\"&\"&5e#\"&+9$\"&)pV" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "y := IsolerSerie(data,Population);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6 #>%\"yG78\"%%z\"\"%\\I\"%48\"%A9\"%5;\"%1H\"%![#\"%U8\"$&G\"%<6\"%!y\" \"&\"\\6\"%'H#\"$7(\"%MB\"%_D\"%ES\"%AK\"%d=\"%,<\"%1X\"%0g" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 73 "Calcul de la corr\351lation entre \+ la superficie et la population des r\351gions" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 67 "evalf(covariance(x,y)/(standarddeviation(x)*standardd eviation(y)));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+ClW0\"*!#6" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 91 "correlation := (x,y) -> eval f(covariance(x,y)/(standarddeviation(x)*standarddeviation(y)));" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%,correlationGR6$%\"xG%\"yG6\"6$%)ope ratorG%&arrowGF)-%&evalfG6#*&-%+covarianceG6$9$9%\"\"\"*&-%2standardde viationG6#F4F6-F96#F5F6!\"\"F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 83 "correlation(IsolerSerie(data,Revenus),\n I solerSerie(data,NbreCommunes));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\" +bAN)\\'!#6" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}}{MARK "12 14 0 0" 0 }{VIEWOPTS 1 1 0 3 2 1804 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }