{VERSION 6 0 "IBM INTEL NT" "6.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 "Maple Output" -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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "with(LinearAlgebra);
" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#7br%#&xG%$AddG%(AdjointG%3Backward
SubstituteG%+BandMatrixG%&BasisG%-BezoutMatrixG%/BidiagonalFormG%-Bili
nearFormG%5CharacteristicMatrixG%9CharacteristicPolynomialG%'ColumnG%0
ColumnDimensionG%0ColumnOperationG%,ColumnSpaceG%0CompanionMatrixG%0Co
nditionNumberG%/ConstantMatrixG%/ConstantVectorG%%CopyG%2CreatePermuta
tionG%-CrossProductG%-DeleteColumnG%*DeleteRowG%,DeterminantG%)Diagona
lG%/DiagonalMatrixG%*DimensionG%+DimensionsG%+DotProductG%6EigenCondit
ionNumbersG%,EigenvaluesG%-EigenvectorsG%&EqualG%2ForwardSubstituteG%.
FrobeniusFormG%4GaussianEliminationG%2GenerateEquationsG%/GenerateMatr
ixG%2GetResultDataTypeG%/GetResultShapeG%5GivensRotationMatrixG%,GramS
chmidtG%-HankelMatrixG%,HermiteFormG%3HermitianTransposeG%/HessenbergF
ormG%.HilbertMatrixG%2HouseholderMatrixG%/IdentityMatrixG%2Intersectio
nBasisG%+IsDefiniteG%-IsOrthogonalG%*IsSimilarG%*IsUnitaryG%2JordanBlo
ckMatrixG%+JordanFormG%(LA_MainG%0LUDecompositionG%-LeastSquaresG%,Lin
earSolveG%$MapG%%Map2G%*MatrixAddG%2MatrixExponentialG%/MatrixFunction
G%.MatrixInverseG%5MatrixMatrixMultiplyG%+MatrixNormG%,MatrixPowerG%5M
atrixScalarMultiplyG%5MatrixVectorMultiplyG%2MinimalPolynomialG%&Minor
G%(ModularG%)MultiplyG%,NoUserValueG%%NormG%*NormalizeG%*NullSpaceG%3O
uterProductMatrixG%*PermanentG%&PivotG%*PopovFormG%0QRDecompositionG%-
RandomMatrixG%-RandomVectorG%%RankG%6RationalCanonicalFormG%6ReducedRo
wEchelonFormG%$RowG%-RowDimensionG%-RowOperationG%)RowSpaceG%-ScalarMa
trixG%/ScalarMultiplyG%-ScalarVectorG%*SchurFormG%/SingularValuesG%*Sm
ithFormG%*SubMatrixG%*SubVectorG%)SumBasisG%0SylvesterMatrixG%/Toeplit
zMatrixG%&TraceG%*TransposeG%0TridiagonalFormG%+UnitVectorG%2Vandermon
deMatrixG%*VectorAddG%,VectorAngleG%5VectorMatrixMultiplyG%+VectorNorm
G%5VectorScalarMultiplyG%+ZeroMatrixG%+ZeroVectorG%$ZipG" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "v1:=<2,1,0,0,0,0>:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "v2:=<0,0,2,1,0,0>:" }}{PARA 0 "> " 
0 "" {MPLTEXT 1 0 18 "v3:=<0,0,0,0,2,1>:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 64 "codewords:=\{seq(seq(seq(a*v1+b*v2+c*v3,a=0..4),b=0..
4),c=0..4)\}:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "nops(codew
ords);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"$D\"" }}}{EXCHG }{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 106 "HamWei:=proc(vec)\nlocal t,cou;\nc
ou:=0;\nfor t to 6 do\nif vec[t]<>0 then cou:=cou+1;\nfi;od;\nreturn c
ou;\nend;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'HamWeiGf*6#%$vecG6$%\"
tG%$couG6\"F+C%>8%\"\"!?(8$\"\"\"F2\"\"'%%trueG@$0&9$6#F1F/>F.,&F.F2F2
F2OF.F+F+F+" }}}{EXCHG }{EXCHG }{EXCHG }{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 36 "weicode:=seq(HamWei(c),c=codewords);" }}{PARA 12 "" 
1 "" {XPPMATH 20 "6#>%(weicodeG6ir\"\"%F&\"\"'F'F&F'\"\"#F&F&F&F'F'F'F
&F'F'F'F'F'\"\"!F'F(F'F'F'F'F'F'F&F(F'F'F'F&F'F(F'F'F&F&F'F&F&F&F&F&F'
F'F(F&F'F'F'F'F'F'F&F'F&F&F&F&F'F'F(F&F'F(F'F&F'F'F&F&F&F(F'F&F'F&F&F(
F'F'F'F(F&F'F'F&F'F'F(F'F&F&F'F&F&F&F'F&F&F(F'F&F&F&F&F'F'F&F'F'F'F'F'
F'F&F&F'F'F'F&F&" }}}{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 
"enupol:=x->add(x^HamWei(c),c=codewords);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%'enupolGf*6#%\"xG6\"6$%)operatorG%&arrowGF(-%$addG6$)
9$-%'HamWeiG6#%\"cG/F4%*codewordsGF(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 10 "enupol(x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,*\"\"
\"F$*&\"#[F$)%\"xG\"\"%F$F$*&\"#kF$)F(\"\"'F$F$*&\"#7F$)F(\"\"#F$F$" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "Berlekamp(x^10-1,x) mod 3;
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<&,&%\"xG\"\"\"\"\"#F&,&F%F&F&F&,,
*$)F%\"\"%F&F&*$)F%\"\"$F&F&*$)F%F'F&F&F%F&F&F&,,F*F&*&F'F&F.F&F&F0F&*
&F'F&F%F&F&F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "alias(a=
RootOf(x^2+x+1));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%\"aG" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "H1:=Matrix(5,2,[[0,1],[1,0],[1,1],[
1,a],[1,a+1]]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#H1G-%'RTABLEG6%
\"*OH\\^\"-%'MATRIXG6#7'7$\"\"!\"\"\"7$F/F.7$F/F/7$F/%\"aG7$F/,&F3F/F/
F/%'MatrixG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "NullSpace(Tr
anspose(H1)) mod 2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<%-%'RTABLEG6%
\"*o:$>:-%'MATRIXG6#7'7#,&%\"aG\"\"\"F/F/7#F/7#\"\"!F1F0&%'VectorG6#%'
columnG-F%6%\"*3;$>:-F)6#7'F0F0F0F1F1F3-F%6%\"*3I;`\"-F)6#7'7#F.F0F1F0
F1F3" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "H2:=Matrix(3,2,[[1,
1],[1,0],[0,1]]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#H2G-%'RTABLEG6
%\"*'zSE:-%'MATRIXG6#7%7$\"\"\"F.7$F.\"\"!7$F0F.%'MatrixG" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "NullSpace(Transpose(H2)) mod 2;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#<#-%'RTABLEG6%\"*3?$>:-%'MATRIXG6#7%7#
\"\"\"F,F,&%'VectorG6#%'columnG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 27 "H:=DiagonalMatrix([H1,H2]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#>%\"HG-%'RTABLEG6%\"*WJWZ\"-%'MATRIXG6#7*7&\"\"!\"\"\"F.F.7&F/F.F.F.7
&F/F/F.F.7&F/%\"aGF.F.7&F/,&F3F/F/F/F.F.7&F.F.F/F/7&F.F.F/F.7&F.F.F.F/
%'MatrixG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "21
 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }
{RTABLE_HANDLES 151492936 151931568 151931608 153163008 152640796 
151932008 147443144 }{RTABLE 
M7R0
I6RTABLE_SAVE/151492936X,%)anythingG6"6"[gl!"%!!!#+"&"#""!"""F(F(F(F(F'F(-%'Roo
tOfG6#,(*$%#_ZG""#F(F.F(F(F(,&F)F(F(F(F&
}
{RTABLE 
M7R0
I6RTABLE_SAVE/151931568X*%)anythingG6"6"[gl!#%!!!"&"&,&-%'RootOfG6#,(*$%#_ZG""#
"""F-F/F/F/F/F/F/F/""!F0F/F&
}
{RTABLE 
M7R0
I6RTABLE_SAVE/151931608X*%)anythingG6"6"[gl!#%!!!"&"&"""F'F'""!F(F&
}
{RTABLE 
M7R0
I6RTABLE_SAVE/153163008X*%)anythingG6"6"[gl!#%!!!"&"&-%'RootOfG6#,(*$%#_ZG""#""
"F,F.F.F.F.""!F.F/F&
}
{RTABLE 
M7R0
I6RTABLE_SAVE/152640796X,%)anythingG6"6"[gl!"%!!!#'"$"#"""F'""!F'F(F'F&
}
{RTABLE 
M7R0
I6RTABLE_SAVE/151932008X*%)anythingG6"6"[gl!#%!!!"$"$"""F'F'F&
}
{RTABLE 
M7R0
I6RTABLE_SAVE/147443144X,%)anythingG6"6"[gl!"%!!!#A")"%""!"""F(F(F(F'F'F'F(F'F(
-%'RootOfG6#,(*$%#_ZG""#F(F.F(F(F(,&F)F(F(F(F'F'F'F'F'F'F'F'F(F(F'F'F'F'F'F'F(F
'F(F&
}