{VERSION 3 0 "DEC ALPHA UNIX" "3.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 
0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 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 }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 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "j:=RootOf(x^2+x+1,x)
;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"jG-%'RootOfG6#,(*$%#_ZG\"\"#
\"\"\"F*F,F,F," }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 126 "On note que la
 variable employe'e x est tout de suite remplace'e par la variable _Z.
 Ceci  permet une unicite' de l'e'criture." }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 48 "eq:=(z+1)*(z+j)*(z+j^2)=(1+z)*(1+j*z)*(1+j^2*z);" }
}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#eqG/*(,&%\"zG\"\"\"F)F)F),&F(F)-%'
RootOfG6#,(*$%#_ZG\"\"#F)F0F)F)F)F)F),&F(F)*$F+F1F)F)*(F'F),&F)F)*&F+F
)F(F)F)F),&F)F)*&F+F1F(F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 14 "map(evala,eq);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/,&*$%\"zG\"\"
$\"\"\"F(F(F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalb(%);" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%trueG" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 199 "Les nombres du corps Q(j) s'écrivent d'une fac,on
 unique sous la forme a+b*j avec a et b rationnels; ceci fournit un e'
criture unique pour les polyno^mes de Q(j)[z] que l'on obtient par eva
la." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 
0 }{VIEWOPTS 1 1 0 1 1 1803 }