{VERSION 5 0 "IBM INTEL NT" "5.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 } {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 "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 1 0 0 255 1 0 0 0 0 0 0 1 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "with(combinat):" }} {PARA 7 "" 1 "" {TEXT -1 67 "Warning, the protected name Chi has been \+ redefined and unprotected\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 357 "mean:=proc(x)local tm,i,j,k,l,n,m,r,p,a,f; n:=nops(x); tm:=remove (has,partition(n),1);\na:=permute(n); a:=subs(\{seq(i=x[i],i=1..n)\},a ); r:=0;\nfor i to nops(tm) do p:=tm[i]; m:=nops(p);\nf:=mul(p[j]!,j=1 ..m)*nops(p)!/numbperm(p); p:=[seq(add(p[j],j=1..k),k=0..m)];\nfor l t o n! do r:=r+S[sort([seq(mul(a[l,j],j=1+p[k]..p[k+1]),k=1..m)])]/f end do\nend do; r end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "mean ([X,X,Y,Y]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(&%\"SG6#7$*$)%\"XG\" \"#\"\"\"*$)%\"YGF+F,F,*&F+F,&F%6#7$*&F*F,F/F,F4F,F,&F%6#7#*&F)F,F.F,F ," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "mean([X,X,X,Y,Y,Z]);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,:*&\"\"'\"\"\"&%\"SG6#7%*&%\"YGF&% \"ZGF&*$)%\"XG\"\"#F&*&F0F&F,F&F&F&*&\"\"$F&&F(6#7%*&F0F&F-F&F.*$)F,F1 F&F&F&*&F%F&&F(6#7%F8F2F2F&F&&F(6#7$*$)F0F4F&*&F:F&F-F&F&*&F%F&&F(6#7$ *&F/F&F,F&*(F0F&F,F&F-F&F&F&*&F4F&&F(6#7$*&F/F&F-F&*&F0F&F:F&F&F&*&F4F &&F(6#7$F.*(F0F&F:F&F-F&F&F&*&F%F&&F(6#7$F2*(F/F&F,F&F-F&F&F&*&F4F&&F( 6#7$F8*&F/F&F:F&F&F&&F(6#7$F9*&FCF&F-F&F&*&F1F&&F(6#7$F+*&FCF&F,F&F&F& &F(6#7#*(FCF&F:F&F-F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}}{MARK "4 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }