{VERSION 4 0 "IBM INTEL LINUX22" "4.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 1 12 0 0 255 1 0 2 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 1 14 128 0 0 1 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 1 14 0 0 128 1 0 0 0 0 0 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 14 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 3 0 3 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 Output" -1 11 1 {CSTYLE " " -1 -1 "Times" 1 16 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 16 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 "Map le Plot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 14 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 3 0 3 0 2 2 0 1 }{PSTYLE "R3 Font 0" -1 256 1 {CSTYLE "" -1 -1 "Courier" 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 "R3 Font 2" -1 257 1 {CSTYLE "" -1 -1 "Ti mes" 1 12 128 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 "Normal" -1 258 1 {CSTYLE "" -1 -1 "Times" 1 16 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 0 "> " 0 "" {MPLTEXT 1 0 20 "restart; with(pldx): " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%fopldx~~;~~author~:~~~;~~last~modif~(V6)~:~Sun~28/10/2001G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 225 "with(plots, display); with(stats);\nwith(statpl ots, histogram);\nchi2:= (nu,t)->stats[statevalf,pdf,chisquare[nu]](t) :\nChi2:= (nu,t)->stats[statevalf,cdf,chisquare[nu]](t):\nIChi:= (nu,t )->stats[statevalf,icdf,chisquare[nu]](t):" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7#%(displayG" }}{PARA 7 "" 1 "" {TEXT -1 116 "Warning, \+ these names have been redefined: anova, describe, fit, importdata, ran dom, statevalf, statplots, transform\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7*%&anovaG%)describeG%$fitG%+importdataG%'randomG%*statevalfG%*s tatplotsG%*transformG" }}{PARA 7 "" 1 "" {TEXT -1 47 "Warning, the nam e histogram has been redefined\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7# %*histogramG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 854 "`stats/tra nsform/functions/tally`:= \nproc(data, topname) global tally_table; lo cal count, item, value;\noption `Copyright (c) 1993 by Waterloo Maple \+ Inc. All rights reserved.`;\n if nargs <> 2 then RETURN(`stats/abort`( args[nargs], [args[nargs], `Incorrect number of arguments`], [args])) \n end if;\n if not type(data, `stats/data`) then\n RETURN(`stats/abo rt`(topname, [topname, `requires data of type stats/data, received`, d ata], [args]))\n end if;\n tally_table := table();\n for item in data \+ do\n if type(item, function) and op(0, item) = 'Weight' then value := op(1, item); count := op(2, item)\n else value := item; count := 1\n end if;\n if assigned(tally_table[value]) then tally_table[value] : = tally_table[value] + count\n else tally_table[value] := count\n en d if\n end do;\nmap(Weight@op, (op@eval)(tally_table));\nstats[transfo rm, statsort](%); \nend;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%@stats/transform/functions/tallyGR6$ %%dataG%(topnameG6%%&countG%%itemG%&valueG6#%inCopyright~(c)~1993~by~W aterloo~Maple~Inc.~All~rights~reserved.G6\"C(@$09#\"\"#-%'RETURNG6#-%, stats/abortG6%&9\"6#F37$F;%>Incorrect~number~of~argumentsG7#F<@$4-%%ty peG6$9$%+stats/dataG-F66#-F96%9%7%FL%Krequires~data~of~type~stats/data ,~receivedGFFF@>%,tally_tableG-%&tableGF/?&8%FF%%trueGC$@%3-FD6$FT%)fu nctionG/-%#opG6$\"\"!FT.%'WeightGC$>8&-Fhn6$\"\"\"FT>8$-Fhn6$F4FTC$>F_ oFT>FdoFbo@%-%)assignedG6#&FP6#F_o>F^p,&F^pFboFdoFbo>F^pFdo-%$mapG6$-% \"@G6$F\\oFhn--Fgp6$Fhn%%evalG6#FP-&%&statsG6$%*transformG%)statsortG6 #%\"%GF/F]qF/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "r:= r and(1..6):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "n:=60;" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG\"#g" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 50 "ici:= proc(nu,li) local z; member(nu,li,z); z end; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$iciGR6$%#nuG%#liG6#%\"zG6\"F+C$ -%'memberG6%9$9%8$F2F+F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "li:=sort( [ 'r'()$n]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "[(op@map)(ici,[$1..6],li), n+1]; X:=[seq(%[k+1]-%[k], k=1..6)];" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#7)\"\"\"\"#5\"#A\"#K\"#Z\"#]\"#h" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"XG7(\"\"*\"#7\"#5\"#:\"\"$\"#6" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "data:=[seq(Weight(k-1/2..k+ 1/2,X[k]/n), k=1..6)];" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%%dataG7(-% 'WeightG6$;#\"\"\"\"\"##\"\"$F,#F.\"#?-F'6$;F-#\"\"&F,#F+F5-F'6$;F4#\" \"(F,#F+\"\"'-F'6$;F:#\"\"*F,#F+\"\"%-F'6$;FA#\"#6F,#F+F0-F'6$;FH#\"#8 F,#FI\"#g" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "pl1:= histogra m(data):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "pl2:= plot(1/6, x=0..7):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "displayf(pl1,p l2, tickmarks=[[$1..6],[0.167]]);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6)-%)POLYGONSG6)7&7$#\"\"\"\"\"#\"\"!7$F(#\"\"$\" #?7$#F.F*F-7$F1F+7&F27$F1#F)\"\"&7$#F6F*F57$F8F+7&F97$F8#F)\"\"'7$#\" \"(F*F<7$F?F+7&FA7$F?#F)\"\"%7$#\"\"*F*FD7$FGF+7&FI7$FG#F)F/7$#\"#6F*F L7$FNF+7&FP7$FN#FO\"#g7$#\"#8F*FS7$FVF+-%&COLORG6&%$RGBG$F@!\"\"Fgn$\" #5Fhn-%'CURVESG6$7S7$$F+F+$\"3emmmmmmm;!#=7$$\"3gmmm\"z+e_\"FcoFao7$$ \"3rLL3->R`GFcoFao7$$\"3nmm;apSYVFcoFao7$$\"3Pnm;z'=$\\eFcoFao7$$\"3!R L$3Ft3XtFcoFao7$$\"3tmmTNj&=t)FcoFao7$$\"33+](=`xn,\"!#FipFao7$$\"3:++]s2O[?FipFa o7$$\"3vm;aG\"H5=#FipFao7$$\"3^LL$ej%yQBFipFao7$$\"3nLLLVUUsCFipFao7$$ \"35+](o()yyi#FipFao7$$\"3GLLLoD[lFFipFao7$$\"3P+](oibk\"HFipFao7$$\"3 b+]i!o<-1$FipFao7$$\"3qLL3-$=-@$FipFao7$$\"3jL$3xplzM$FipFao7$$\"3gmm \"H([a'\\$FipFao7$$\"3wm;ayo(3l$FipFao7$$\"3?+]7VLA&y$FipFao7$$\"3'pm; a?@.$RFipFao7$$\"3)******\\\\@-3%FipFao7$$\"3Q++v$opoA%FipFao7$$\"3c+] (oMf(oVFipFao7$$\"3#)***\\ii.j_%FipFao7$$\"3%GLL$oT'ym%FipFao7$$\"3'3+ +DE5!>[FipFao7$$\"3Nm;a)3rf&\\FipFao7$$\"3*4++vW0d5&FipFao7$$\"3;L$3- \"QfY_FipFao7$$\"3C+]PWF'QR&FipFao7$$\"3[LL$e/Xy`&FipFao7$$\"3n**\\(=< \"e)o&FipFao7$$\"3%ymmm(zvLeFipFao7$$\"3.nm\"zAAA)fFipFao7$$\"3LM$3-7d %HhFipFao7$$\"3$4++]p]ZE'FipFao7$$\"3$QL$e*R7)>kFipFao7$$\"3'pmmmV,&el FipFao7$$\"3<+](o(GP1nFipFao7$$\"3f+]78Z!z%oFipFao7$$F@F+Fao-%'COLOURG 6&FfnFinF`oF`o-%+AXESLABELSG6%%!GFjx-%%FONTG6%%&TIMESG%&ROMANGF/-%*AXE STICKSG6%7(F)F*F.FEF6F=7#$\"$n\"!\"$F[yF[y-%&TITLEG6$Q!6\"F[y-%%VIEWG6 $;$!0+++++++\"!#:$\"0++++++5(!#9%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "chi^2 = add((X[k]-n/6)^2/(n/6.),k=1..6); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/*$)%$chiG\"\"#\"\"\"$\"+********z !\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "M:=2500: m_chi:=arr ay[1..M]:\nfor m to M do " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "li:=so rt( [ 'r'()$n]):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 111 "[(op@map)(ici, [$1..6],li), n+1]; X:=[seq(%[k+1]-%[k], k=1..6)];\nm_chi[m]:= add((X[k ]-n/6)^2/(n/6.),k=1..6);\nod:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 150 "dx:=2; li_chi:= c onvert(m_chi, list): (max@op)(%)/dx:\ngri:= [seq(dx*k..dx*(k+1),k=0..% )]:\ntal_chi:= transform[tallyinto](li_chi, gri); nu:= nops(%)-1;" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#dxG\"\"#" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%(tal_chiG72-%'WeightG6$;\"\"!\"\"#\"$N$-F'6$;F+\"\"% \"$l(-F'6$;F0\"\"'\"$\\'-F'6$;F5\"\")\"$%Q-F'6$;F:\"#5\"$/#-F'6$;F?\"# 7\"#))-F'6$;FD\"#9\"#Q-F'6$;FI\"#;\"#:-F'6$;FN\"#=F?-F'6$;FS\"#?\"\"(- F'6$;FW\"#AF+-F'6$;Ffn\"#C\"\"\"-F'6$;Fjn\"#EF*-F'6$;F_o\"#GF[o-F'6$;F co\"#IF*-F'6$;Fgo\"#KF[o" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#nuG\"#: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 25 "ql1:= histogram(tal_chi):" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 59 "ql2:= plot(M*chi2(5,x),x=0..20, linestyle=24 , color=black):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "display( ql1,ql2);" }}{PARA 13 "" 1 "" {GLPLOT2D 593 485 485 {PLOTDATA 2 "6&-%) POLYGONSG637&7$\"\"!F(7$F(#\"$N$\"\"#7$F,F*7$F,F(7&F.7$F,#\"$l(F,7$\" \"%F17$F4F(7&F57$F4#\"$\\'F,7$\"\"'F87$F;F(7&F<7$F;\"$#>7$\"\")F?7$FAF (7&FB7$FA\"$-\"7$\"#5FE7$FGF(7&FH7$FG\"#W7$\"#7FK7$FMF(7&FN7$FM\"#>7$ \"#9FQ7$FSF(7&FT7$FS#\"#:F,7$\"#;FW7$FZF(7&Fen7$FZ\"\"&7$\"#=Fhn7$FjnF (7&F[o7$Fjn#\"\"(F,7$\"#?F^o7$FaoF(7&Fbo7$Fao\"\"\"7$\"#AFeo7$FgoF(7&F ho7$Fgo#FeoF,7$\"#CF[p7$F]pF(7&F^pF^p7$\"#EF(F`p7&F`p7$FapF[p7$\"#GF[p 7$FepF(7&FfpFfp7$\"#IF(Fhp7&Fhp7$FipF[p7$\"#KF[p7$F]qF(-%&COLORG6&%$RG BG$F_o!\"\"Fcq$FGFdq-%'CURVESG6%7bo7$$F(F(F[r7$$\"+3x&)*3\"!#5$\"+PpqK 6!\")7$$\"+5xI&F_r$\"+v$H!f)*Fbr7$$\"+j&*)fD'F_r$\"+nl;.7 !\"(7$$\"+G*oU?(F_r$\"+@f*zT\"F\\t7$$\"+#H[D:)F_r$\"+%fSzi\"F\\t7$$\"+ ;w)*=#*F_r$\"+(Q[f&=F\\t7$$\"+%pU&G5!\"*$\"+RBct?F\\t7$$\"+Em=N6F_u$\" +wUVzAF\\t7$$\"+e0$=C\"F_u$\"+gxksCF\\t7$$\"+LA`c9F_u$\"+Ga:@GF\\t7$$ \"+3RBr;F_u$\"+!HYW6$F\\t7$$\"+W^\"\\)=F_u$\"+?2X_LF\\t7$$\"+zjf)4#F_u $\"+GLIRNF\\t7$$\"+Qiq'H#F_u$\"+S*y*pOF\\t7$$\"+'4;[\\#F_u$\"+Nk3jPF\\ t7$$\"+Q_6,$F_u$\"+#RoW&QF\\t7$$\"+j*)=kIF_u$\"+)e.K&QF\\t7$$\"+Id AY,PF\\t7$$\"+<_M (=%F_u$\"+]+[5NF\\t7$$\"+4y_qXF_u$\"+QOA0LF\\t7$$\"+]1!>+&F_u$\"+I\"y) \\IF\\t7$$\"+]Z/NaF_u$\"+bo\"=y#F\\t7$$\"+]$fC&eF_u$\"+lw%G_#F\\t7$$\" +'z6:B'F_u$\"+OJJ$H#F\\t7$$\"+<=C#o'F_u$\"+2&RF.#F\\t7$$\"+n#pS1(F_u$ \"+BAWD=F\\t7$$\"+j`A3vF_u$\"+'*H$>g\"F\\t7$$\"+n(y8!zF_u$\"+8%f2U\"F \\t7$$\"+j.tK$)F_u$\"+nw;S7F\\t7$$\"+)3zMu)F_u$\"+6w]&3\"F\\t7$$\"+#H_ ?<*F_u$\"+0&=LT*Fbr7$$\"+!G;cc*F_u$\"+QBwM#)Fbr7$$\"+4#G,***F_u$\"+U3: 3rFbr7$$\"+!o2J/\"Fbr$\"+lDN$3'Fbr7$$\"+%Q#\\\"3\"Fbr$\"+=!*p+`Fbr7$$ \"+;*[H7\"Fbr$\"+#))R%eXFbr7$$\"+qvxl6Fbr$\"+Q.B#*QFbr7$$\"+`qn27Fbr$ \"+KIEGLFbr7$$\"+cp@[7Fbr$\"+sgebGFbr7$$\"+3'HKH\"Fbr$\"+[\"GXS#Fbr7$$ \"+xanL8Fbr$\"+*RVr0#Fbr7$$\"+v+'oP\"Fbr$\"+M4!)QFbr$\"+XvoD>F_u7 $$\"+/Uac>Fbr$\"+-cBB;F_u7$$FaoF($\"+f^)*\\8F_u-%'COLOURG6&FbqF(F(F(-% *LINESTYLEG6#F]p-%+AXESLABELSG6$Q\"x6\"Q!6\"-%%VIEWG6$;$!0++++++?$!#9$ \"0++++++_$!#8%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "modele:= map(proc(z) (Chi2(5,rhs(z))-Chi2(5,lhs(z)))* M end, gri);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%'modeleG72$\"+-TPrP! \"($\"+=rA$\\(F($\"+?e#*zgF($\"+sAe\\PF($\"+N&4]-#F($\"+Sm=65F($\"++6f %z%!\")$\"+]bL\">#F5$\"+]K$FA$\"+++$4K\"FA$\"*+]DT&FA$\"*+D=?#FA" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 29 "valeurs:= map2(op,2,tal_chi);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(valeursG72\"$N$\"$l(\"$\\'\"$%Q\"$/#\"#))\"#Q\" #:\"#5\"\"(\"\"#\"\"\"\"\"!F1F2F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "add((modele[k]-valeurs[k])^2/modele[k], k=1..nu+1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+2AHQl!\")" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 21 "IChi(nu,[0.03,0.97]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$$\"+c\\A.l!\"*$\"+gPz%o#!\")" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 231 "wal_chi:= tal_chi: for k \+ from nops(tal_chi) by -1 to 2 do \ntmp:= wal_chi[k]: \nif op(2,tmp)<5 \+ then \n tmq:= wal_chi[k-1];\n Weight(lhs(op(1,tmq))..rhs(op(1,tmp)), o p(2,tmq)+op(2,tmp));\n wal_chi:= subs(tmq=%, tmp=NULL, wal_chi)\nfi;\n od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "wal_chi;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#7--%'WeightG6$;\"\"!\"\"#\"$N$-F%6$;F)\"\"%\"$l (-F%6$;F.\"\"'\"$\\'-F%6$;F3\"\")\"$%Q-F%6$;F8\"#5\"$/#-F%6$;F=\"#7\"# ))-F%6$;FB\"#9\"#Q-F%6$;FG\"#;\"#:-F%6$;FL\"#=F=-F%6$;FQ\"#?\"\"(-F%6$ ;FU\"#K\"\"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "ql3:= histo gram(wal_chi):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "display(q l3,ql2);" }}{PARA 13 "" 1 "" {GLPLOT2D 593 485 485 {PLOTDATA 2 "6&-%)P OLYGONSG6.7&7$\"\"!F(7$F(#\"$N$\"\"#7$F,F*7$F,F(7&F.7$F,#\"$l(F,7$\"\" %F17$F4F(7&F57$F4#\"$\\'F,7$\"\"'F87$F;F(7&F<7$F;\"$#>7$\"\")F?7$FAF(7 &FB7$FA\"$-\"7$\"#5FE7$FGF(7&FH7$FG\"#W7$\"#7FK7$FMF(7&FN7$FM\"#>7$\"# 9FQ7$FSF(7&FT7$FS#\"#:F,7$\"#;FW7$FZF(7&Fen7$FZ\"\"&7$\"#=Fhn7$FjnF(7& F[o7$Fjn#\"\"(F,7$\"#?F^o7$FaoF(7&Fbo7$Fao#FhnFM7$\"#KFeo7$FgoF(-%&COL ORG6&%$RGBG$F_o!\"\"F]p$FGF^p-%'CURVESG6%7bo7$$F(F(Fep7$$\"+3x&)*3\"!# 5$\"+PpqK6!\")7$$\"+5xI&Fip$\"+v$H!f)*F\\q7$$\"+j&*)fD 'Fip$\"+nl;.7!\"(7$$\"+G*oU?(Fip$\"+@f*zT\"Ffr7$$\"+#H[D:)Fip$\"+%fSzi \"Ffr7$$\"+;w)*=#*Fip$\"+(Q[f&=Ffr7$$\"+%pU&G5!\"*$\"+RBct?Ffr7$$\"+Em =N6Fis$\"+wUVzAFfr7$$\"+e0$=C\"Fis$\"+gxksCFfr7$$\"+LA`c9Fis$\"+Ga:@GF fr7$$\"+3RBr;Fis$\"+!HYW6$Ffr7$$\"+W^\"\\)=Fis$\"+?2X_LFfr7$$\"+zjf)4# Fis$\"+GLIRNFfr7$$\"+Qiq'H#Fis$\"+S*y*pOFfr7$$\"+'4;[\\#Fis$\"+Nk3jPFf r7$$\"+Q_6,$Fis$\"+#RoW&QFfr7$$\"+j*)=kIFis$\"+)e.K&QFfr7$$\"+IdAY,PFfr7$$\"+<_M(=%Fis$\"+] +[5NFfr7$$\"+4y_qXFis$\"+QOA0LFfr7$$\"+]1!>+&Fis$\"+I\"y)\\IFfr7$$\"+] Z/NaFis$\"+bo\"=y#Ffr7$$\"+]$fC&eFis$\"+lw%G_#Ffr7$$\"+'z6:B'Fis$\"+OJ J$H#Ffr7$$\"+<=C#o'Fis$\"+2&RF.#Ffr7$$\"+n#pS1(Fis$\"+BAWD=Ffr7$$\"+j` A3vFis$\"+'*H$>g\"Ffr7$$\"+n(y8!zFis$\"+8%f2U\"Ffr7$$\"+j.tK$)Fis$\"+n w;S7Ffr7$$\"+)3zMu)Fis$\"+6w]&3\"Ffr7$$\"+#H_?<*Fis$\"+0&=LT*F\\q7$$\" +!G;cc*Fis$\"+QBwM#)F\\q7$$\"+4#G,***Fis$\"+U3:3rF\\q7$$\"+!o2J/\"F\\q $\"+lDN$3'F\\q7$$\"+%Q#\\\"3\"F\\q$\"+=!*p+`F\\q7$$\"+;*[H7\"F\\q$\"+# ))R%eXF\\q7$$\"+qvxl6F\\q$\"+Q.B#*QF\\q7$$\"+`qn27F\\q$\"+KIEGLF\\q7$$ \"+cp@[7F\\q$\"+sgebGF\\q7$$\"+3'HKH\"F\\q$\"+[\"GXS#F\\q7$$\"+xanL8F \\q$\"+*RVr0#F\\q7$$\"+v+'oP\"F\\q$\"+M4!)QF\\q$ \"+XvoD>Fis7$$\"+/Uac>F\\q$\"+-cBB;Fis7$$FaoF($\"+f^)*\\8Fis-%'COLOURG 6&F\\pF(F(F(-%*LINESTYLEG6#\"#C-%+AXESLABELSG6$Q\"x6\"Q!6\"-%%VIEWG6$; $!0++++++?$!#9$\"0++++++_$!#8%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "modele:= map(proc(z): op(1,z); (Chi2(5,rh s(%))-Chi2(5,lhs(%)))*M end, wal_chi);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%'modeleG7-$\"+-TPrP!\"($\"+=rA$\\(F($\"+?e#*zgF($\"+sAe\\PF($ \"+N&4]-#F($\"+Sm=65F($\"++6f%z%!\")$\"+]bL\">#F5$\"+]K " 0 "" {MPLTEXT 1 0 45 "valeurs: = map2(op,2,wal_chi); nu:= nops(%)-1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(valeursG7-\"$N$\"$l(\"$\\'\"$%Q\"$/#\"#))\"#Q\"#:\"#5\"\"(\"\"& " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#nuG\"#5" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 63 "add((modele[k]-valeurs[k])^2/modele[k], k=1..n u+1); Chi2(nu,%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+f+q#p\"!\")" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+@/0S#*!#5" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 21 "IChi(nu,[0.03,0.97]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$$\"+Z&o?T$!\"*$\"+,5>#*>!\")" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "37 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }