{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 } {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 6 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 2 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 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 61 "read(\"c:\\\\docume~ 1\\\\xwen\\\\mydocu~1\\\\maple\\\\Wytoff\\\\mex.txt\"):" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#%7~Version~of~Feb~6~2004G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%[oThis~is~2-dimensional~Wytoff~game~mex~functions,~A~M aple~packageG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%fnthat~guess~the~per iod~patten~for~f(m,n)~of~the~wytoff~game.G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%OWritten~by~Xiangdong~Wen~and~Doron~Zeilberger.G" }} {PARA 6 "" 1 "" {TEXT -1 2 "``" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%YFo r~general~help,~and~a~list~of~the~available~functions,G" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#%fn~type~ezra();.~For~specific~help~type~ezra(pr ocedure_name)~G" }}{PARA 6 "" 1 "" {TEXT -1 2 "``" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 7 "ezra();" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%+ wytoff~mexG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%eoA~Maple~package~that ~automatically~guess~the~period~patten~for~wytoff~gameG" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#%+~and~proofG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #%CThis~package~contains~Procedures:~G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%?~mex,f,optmex,optf,guess,proofG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%N~For~specific~help~type~ezra(procedure_name)~G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "ezra(mex);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%Nmex~is~a~simple~mex(minimum~exclude)~functionG" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#%6~Example:mex([3,1,2])G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "mex([3,1,2]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "ezra (f);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%>f(a,b)~is~the~wytoff~functio nG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%0Example:~f(3,3)G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "f(3,3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "ezr a(optmex);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%Poptmex(chain,from)~is~ a~optimized~mex~function~G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%eoit~re turns~a~value~bigger~or~equal~to~'from'~and~the~value~is~not~in~chainG " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%C~Example:optmex([m+3,m+1,m+2],m- 1)G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "optmex([m+3,m+1,m+2] ,m+1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&%\"mG\"\"\"\"\"%F%" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "ezra(guess);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%foguess(chain,symbol):using~the~symbol~guess~the~ period~patten~of~the~chain.~G" }}{PARA 11 "" 1 "" {TEXT -1 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "Example: guess([seq(optf(i,4 ),i=0..1000)],m);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%\"#7\"#57.,&%\" mG\"\"\"\"\"#!\"\",&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)\"#6F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "ezra(proof);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%Gprove~the~guessed~chain~is~true~or~notG" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#%2Example:~proof(2)G" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 9 "proof(2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$7%\"\"$ \"\"\"7%,&%\"mGF%F%F%,&F(F%F%!\"\"F(%%trueG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "symbolf(3,11,m);" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#7-,&\"\"#\"\"\"%\"mGF&,&!\"#F&F'F&,&\"\"$F&F'F&,&\"\"&F&F'F&,&F&F&F' F&F',&\"\")F&F'F&,&\"\"%F&F'F&,&\"\"*F&F'F&,&\"#6F&F'F&,&\"\"(F&F'F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "symbolmex(3,11,m);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#,&\"\"(\"\"\"%\"mGF%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "optmex(expandchain([m-1],100),m+5);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#,&%\"mG\"\"\"\"#**F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "ch:=[seq(f(n,5),n=0..100)];" }}{PARA 12 " " 1 "" {XPPMATH 20 "6#>%#chG7aq\"\"&\"\"$\"\"%\"\"!\"\"'\"\")\"#5\"\" \"\"\"#\"\"(\"#7\"#9\"\"*\"#:\"#<\"#8\"#=\"#6\"#;\"#@\"#B\"#>\"#C\"#E \"#A\"#F\"#?\"#D\"#I\"#K\"#G\"#L\"#N\"#J\"#O\"#H\"#M\"#R\"#T\"#P\"#U\" #W\"#S\"#X\"#Z\"#Q\"#[\"#]\"#Y\"#^\"#V\"#\\\"#a\"#c\"#_\"#d\"#f\"#b\"# g\"#`\"#e\"#j\"#l\"#h\"#m\"#o\"#k\"#p\"#r\"#i\"#s\"#u\"#q\"#v\"#n\"#t \"#y\"#!)\"#w\"#\")\"#$)\"#z\"#%)\"#x\"##)\"#()\"#*)\"#&)\"#!*\"##*\"# ))\"#$*\"#&*\"#')\"#'*\"#)*\"#%*\"#**\"#\"*\"#(*\"$-\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "nops([1,2,5]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "ch: =[seq(optf(n,3),n=0..500)];" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#chG7 ajl\"\"$\"\"%\"\"&\"\"'\"\"#\"\"!\"\"\"\"\"*\"#5\"#7\"\")\"\"(\"#:\"#6 \"#;\"#=\"#9\"#8\"#@\"#<\"#A\"#C\"#?\"#>\"#F\"#B\"#G\"#I\"#E\"#D\"#L\" #H\"#M\"#O\"#K\"#J\"#R\"#N\"#S\"#U\"#Q\"#P\"#X\"#T\"#Y\"#[\"#W\"#V\"#^ \"#Z\"#_\"#a\"#]\"#\\\"#d\"#`\"#e\"#g\"#c\"#b\"#j\"#f\"#k\"#m\"#i\"#h \"#p\"#l\"#q\"#s\"#o\"#n\"#v\"#r\"#w\"#y\"#u\"#t\"#\")\"#x\"##)\"#%)\" #!)\"#z\"#()\"#$)\"#))\"#!*\"#')\"#&)\"#$*\"#*)\"#%*\"#'*\"##*\"#\"*\" #**\"#&*\"$+\"\"$-\"\"#)*\"#(*\"$0\"\"$,\"\"$1\"\"$3\"\"$/\"\"$.\"\"$6 \"\"$2\"\"$7\"\"$9\"\"$5\"\"$4\"\"$<\"\"$8\"\"$=\"\"$?\"\"$;\"\"$:\"\" $B\"\"$>\"\"$C\"\"$E\"\"$A\"\"$@\"\"$H\"\"$D\"\"$I\"\"$K\"\"$G\"\"$F\" \"$N\"\"$J\"\"$O\"\"$Q\"\"$M\"\"$L\"\"$T\"\"$P\"\"$U\"\"$W\"\"$S\"\"$R \"\"$Z\"\"$V\"\"$[\"\"$]\"\"$Y\"\"$X\"\"$`\"\"$\\\"\"$a\"\"$c\"\"$_\" \"$^\"\"$f\"\"$b\"\"$g\"\"$i\"\"$e\"\"$d\"\"$l\"\"$h\"\"$m\"\"$o\"\"$k \"\"$j\"\"$r\"\"$n\"\"$s\"\"$u\"\"$q\"\"$p\"\"$x\"\"$t\"\"$y\"\"$!=\"$ w\"\"$v\"\"$$=\"$z\"\"$%=\"$'=\"$#=\"$\"=\"$*=\"$&=\"$!>\"$#>\"$)=\"$( =\"$&>\"$\">\"$'>\"$)>\"$%>\"$$>\"$,#\"$(>\"$-#\"$/#\"$+#\"$*>\"$2#\"$ .#\"$3#\"$5#\"$1#\"$0#\"$8#\"$4#\"$9#\"$;#\"$7#\"$6#\"$>#\"$:#\"$?#\"$ A#\"$=#\"$<#\"$D#\"$@#\"$E#\"$G#\"$C#\"$B#\"$J#\"$F#\"$K#\"$M#\"$I#\"$ H#\"$P#\"$L#\"$Q#\"$S#\"$O#\"$N#\"$V#\"$R#\"$W#\"$Y#\"$U#\"$T#\"$\\#\" $X#\"$]#\"$_#\"$[#\"$Z#\"$b#\"$^#\"$c#\"$e#\"$a#\"$`#\"$h#\"$d#\"$i#\" $k#\"$g#\"$f#\"$n#\"$j#\"$o#\"$q#\"$m#\"$l#\"$t#\"$p#\"$u#\"$w#\"$s#\" $r#\"$z#\"$v#\"$!G\"$#G\"$y#\"$x#\"$&G\"$\"G\"$'G\"$)G\"$%G\"$$G\"$\"H \"$(G\"$#H\"$%H\"$!H\"$*G\"$(H\"$$H\"$)H\"$+$\"$'H\"$&H\"$.$\"$*H\"$/$ \"$1$\"$-$\"$,$\"$4$\"$0$\"$5$\"$7$\"$3$\"$2$\"$:$\"$6$\"$;$\"$=$\"$9$ \"$8$\"$@$\"$<$\"$A$\"$C$\"$?$\"$>$\"$F$\"$B$\"$G$\"$I$\"$E$\"$D$\"$L$ \"$H$\"$M$\"$O$\"$K$\"$J$\"$R$\"$N$\"$S$\"$U$\"$Q$\"$P$\"$X$\"$T$\"$Y$ \"$[$\"$W$\"$V$\"$^$\"$Z$\"$_$\"$a$\"$]$\"$\\$\"$d$\"$`$\"$e$\"$g$\"$c $\"$b$\"$j$\"$f$\"$k$\"$m$\"$i$\"$h$\"$p$\"$l$\"$q$\"$s$\"$o$\"$n$\"$v $\"$r$\"$w$\"$y$\"$u$\"$t$\"$\"Q\"$x$\"$#Q\"$%Q\"$!Q\"$z$\"$(Q\"$$Q\"$ )Q\"$!R\"$'Q\"$&Q\"$$R\"$*Q\"$%R\"$'R\"$#R\"$\"R\"$*R\"$&R\"$+%\"$-%\" $)R\"$(R\"$0%\"$,%\"$1%\"$3%\"$/%\"$.%\"$6%\"$2%\"$7%\"$9%\"$5%\"$4%\" $<%\"$8%\"$=%\"$?%\"$;%\"$:%\"$B%\"$>%\"$C%\"$E%\"$A%\"$@%\"$H%\"$D%\" $I%\"$K%\"$G%\"$F%\"$N%\"$J%\"$O%\"$Q%\"$M%\"$L%\"$T%\"$P%\"$U%\"$W%\" $S%\"$R%\"$Z%\"$V%\"$[%\"$]%\"$Y%\"$X%\"$`%\"$\\%\"$a%\"$c%\"$_%\"$^% \"$f%\"$b%\"$g%\"$i%\"$e%\"$d%\"$l%\"$h%\"$m%\"$o%\"$k%\"$j%\"$r%\"$n% \"$s%\"$u%\"$q%\"$p%\"$x%\"$t%\"$y%\"$![\"$w%\"$v%\"$$[\"$z%\"$%[\"$'[ \"$#[\"$\"[\"$*[\"$&[\"$!\\\"$#\\\"$)[\"$([\"$&\\\"$\"\\\"$'\\\"$)\\\" $%\\\"$$\\\"$,&\"$(\\\"$-&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "guess([seq(f(m,7),m=0..100)],m);" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#7#!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "symbolf(0,100, m);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#7`q,&!\"\"\"\"\"%\"mGF&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&,&\"#5F&F'F&,&\"#6F&F'F&,&F'F&\" #7F&,&\"#8F&F'F&,&\"#9F&F'F&,&\"#:F&F'F&,&\"#;F&F'F&,&\"#F&F'F&,&\"#?F&F'F&,&\"#@F&F'F&,&\"#AF&F'F&,&\"#BF&F'F&,&F' F&\"#CF&,&\"#DF&F'F&,&\"#EF&F'F&,&\"#FF&F'F&,&\"#GF&F'F&,&\"#HF&F'F&,& F'F&\"#IF&,&\"#JF&F'F&,&\"#KF&F'F&,&\"#LF&F'F&,&\"#MF&F'F&,&\"#NF&F'F& ,&F'F&\"#OF&,&\"#PF&F'F&,&\"#QF&F'F&,&\"#RF&F'F&,&\"#SF&F'F&,&\"#TF&F' F&,&F'F&\"#UF&,&\"#VF&F'F&,&\"#WF&F'F&,&\"#XF&F'F&,&\"#YF&F'F&,&\"#ZF& F'F&,&F'F&\"#[F&,&\"#\\F&F'F&,&\"#]F&F'F&,&\"#^F&F'F&,&\"#_F&F'F&,&\"# `F&F'F&,&F'F&\"#aF&,&\"#bF&F'F&,&\"#cF&F'F&,&\"#dF&F'F&,&\"#eF&F'F&,& \"#fF&F'F&,&F'F&\"#gF&,&\"#hF&F'F&,&\"#iF&F'F&,&\"#jF&F'F&,&\"#kF&F'F& ,&\"#lF&F'F&,&F'F&\"#mF&,&\"#nF&F'F&,&\"#oF&F'F&,&\"#pF&F'F&,&\"#qF&F' F&,&\"#rF&F'F&,&F'F&\"#sF&,&\"#tF&F'F&,&\"#uF&F'F&,&\"#vF&F'F&,&\"#wF& F'F&,&\"#xF&F'F&,&F'F&\"#yF&,&\"#zF&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 {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "m:='m';" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"mGF$" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "guess([seq(optf(n,0),n=0.. 300)],m);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7&\"\"\"F$\"\"!7#,&!\"\"F $%\"mGF$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "guess([seq(optf (n,1),n=0..300)],m);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7&\"\"$\"\"\"F %7%%\"mG,&F%F%F'F%,&!\"\"F%F'F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "guess([seq(optf(n,2),n=0..300)],m);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7&\"\"$\"\"\"\"\"#7%,&F%F%%\"mGF%,&!\"\"F%F)F%F)" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "guess([seq(optf(n,3),n=0..30 0)],m);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7&\"\"'\"\"*\"#57(,&\"\"#\" \"\"%\"mGF*,&!\"#F*F+F*,&\"\"$F*F+F*,&\"\"&F*F+F*,&F*F*F+F*F+" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "guess([seq(optf(n,4),n=0..30 0)],m);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7&\"#7\"#5\"\")7.,&!\"#\"\" \"%\"mGF*,&\"\"$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*,&\"#6F*F+F *" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 35 "guess([seq(optf(n,5),n=0..300)],m);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#7&\"#C\"#G\"#D7:,&!\"$\"\"\"%\"mGF*,&\"\"#F* F+F*,&!\"'F*F+F*F+,&\"\"&F*F+F*,&\"\"(F*F+F*,&\"\"$F*F+F*,&\"\")F*F+F* ,&\"#5F*F+F*,&\"\"'F*F+F*,&\"#6F*F+F*,&\"\"%F*F+F*,&\"\"*F*F+F*,&\"#9F *F+F*,&\"#;F*F+F*,&\"#7F*F+F*,&\"#F*F+F*,&\"#:F*F+F*,&\"# ?F*F+F*,&\"#AF*F+F*,&\"#8F*F+F*,&\"#BF*F+F*,&F&F*F+F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "seq(evalb(optf(n,5)>=n-10),n=0..300);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6i]l%%trueGF#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#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#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 {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 0 "" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 15 "evalb(n+2>n+1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%trueG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "grow1([[[1 ]],2],2,x,4);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%7$7$7#\"\"\"&%\"xG6 #\"\"#\"\"$7$7$F&&F)6#F'F+7$7$F&,$F/!\"\"F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "SGJ(3,\{[1,2,3],[1,3,2],[2,1,3],[2,3,1],[3,1,2],[3 ,2,1]\},s);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,(*$)%\"sG\"\"#\"\"\" !\"#F'!\"\"F)F+F),(F%F)*&F(F)F'F)F)F)F+F+" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "Mist( 6,3);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6# " 0 "" {MPLTEXT 1 0 8 "op(SGJ);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#R6%% \"nG%*MISTAKES1G%\"sG6*%\"vG%#eqG%$varG%\"iG%#luG%\"CG%)MISTAKESG%$ans G6\"F1C+>8*-%'HaktenG6#9%>8%<\">8&F;?(8'\"\"\"F@-%%nopsG6#F4%%trueGC%> 8$-%#opG6$F?F4>F:-%&unionG6$F:<#-%(findeqzG6&FGF48)9&>F=-FM6$F=<#&FS6# -FI6#FG>F=-%&solveG6$F:F=>8(,&F@F@*&FTF@9$F@!\"\"?(F?F@F@FAFDC$>FGFH>F \\o,&F\\oF@-%%subsG6$F=FYF`o>8+-%'normalG6#*&F@F@F\\oF`o*&-%(collectG6 $-%&numerG6#FjoFTF@-Fap6$-%&denomGFepFTF`oF1F1F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 246 "MISTAKES := Hakten(\{[1,2,3],[1,3,2],[2,1,3] ,[2,3,1],[3,1,2],[3,2,1]\}); eq := \{\}; var := \{\}; for i to nops(MI STAKES) do v := op(i,MISTAKES); eq := `union`(eq,\{findeqz(v,MISTAKES, C,s)\}); var := `union`(var,\{C[op(v)]\}) end do; var := solve(eq,var) ; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)MISTAKESG<(7%\"\"\"\"\"#\"\"$ 7%F(F)F'7%F)F'F(7%F'F)F(7%F(F'F)7%F)F(F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#eqG<\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$varG<\"" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"vG7%\"\"\"\"\"#\"\"$" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%#eqG<#/,,&%\"CG6%\"\"\"\"\"#\"\"$F+*$)%\"sGF-F +F+*&)F0F,F+&F)6%F,F-F+F+F+*&F0F+&F)6%F-F+F,F+F+*&F2F+&F)6%F-F,F+F+F+ \"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$varG<#&%\"CG6%\"\"\"\"\"# \"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"vG7%\"\"#\"\"$\"\"\"" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#eqG<$/,,&%\"CG6%\"\"\"\"\"#\"\"$F+* $)%\"sGF-F+F+*&)F0F,F+&F)6%F,F-F+F+F+*&F0F+&F)6%F-F+F,F+F+*&F2F+&F)6%F -F,F+F+F+\"\"!/,,F3F+F.F+*&F0F+F(F+F+*&F2F+F6F+F+*&F2F+&F)6%F+F-F,F+F+ F;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$varG<$&%\"CG6%\"\"\"\"\"#\"\" $&F'6%F*F+F)" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"vG7%\"\"$\"\"\"\" \"#" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#eqG<%/,,&%\"CG6%\"\"\"\"\"# \"\"$F+*$)%\"sGF-F+F+*&)F0F,F+&F)6%F,F-F+F+F+*&F0F+&F)6%F-F+F,F+F+*&F2 F+&F)6%F-F,F+F+F+\"\"!/,,F3F+F.F+*&F0F+F(F+F+*&F2F+F6F+F+*&F2F+&F)6%F+ F-F,F+F+F;/,,F6F+F.F+*&F2F+F(F+F+*&F0F+F3F+F+*&F2F+&F)6%F,F+F-F+F+F;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$varG<%&%\"CG6%\"\"\"\"\"#\"\"$&F' 6%F*F+F)&F'6%F+F)F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"vG7%\"\"\" \"\"$\"\"#" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#eqG<&/,,&%\"CG6%\"\" \"\"\"#\"\"$F+*$)%\"sGF-F+F+*&)F0F,F+&F)6%F,F-F+F+F+*&F0F+&F)6%F-F+F,F +F+*&F2F+&F)6%F-F,F+F+F+\"\"!/,,F3F+F.F+*&F0F+F(F+F+*&F2F+F6F+F+*&F2F+ &F)6%F+F-F,F+F+F;/,,F6F+F.F+*&F2F+F(F+F+*&F0F+F3F+F+*&F2F+&F)6%F,F+F-F +F+F;/,,FAF+F.F+F1F+*&F0F+FHF+F+F8F+F;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$varG<&&%\"CG6%\"\"\"\"\"#\"\"$&F'6%F*F+F)&F'6%F+F)F*&F'6%F)F+ F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"vG7%\"\"#\"\"\"\"\"$" }} {PARA 12 "" 1 "" {XPPMATH 20 "6#>%#eqG<'/,,&%\"CG6%\"\"\"\"\"#\"\"$F+* $)%\"sGF-F+F+*&)F0F,F+&F)6%F,F-F+F+F+*&F0F+&F)6%F-F+F,F+F+*&F2F+&F)6%F -F,F+F+F+\"\"!/,,F3F+F.F+*&F0F+F(F+F+*&F2F+F6F+F+*&F2F+&F)6%F+F-F,F+F+ F;/,,F6F+F.F+*&F2F+F(F+F+*&F0F+F3F+F+*&F2F+&F)6%F,F+F-F+F+F;/,,FAF+F.F +F1F+*&F0F+FHF+F+F8F+F;/,,FHF+F.F+F?F+F@F+*&F0F+F9F+F+F;" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%$varG<'&%\"CG6%\"\"\"\"\"#\"\"$&F'6%F*F+F)&F'6 %F+F)F*&F'6%F)F+F*&F'6%F*F)F+" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"v G7%\"\"$\"\"#\"\"\"" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#eqG<(/,,&%\" CG6%\"\"\"\"\"#\"\"$F+*$)%\"sGF-F+F+*&)F0F,F+&F)6%F,F-F+F+F+*&F0F+&F)6 %F-F+F,F+F+*&F2F+&F)6%F-F,F+F+F+\"\"!/,,F3F+F.F+*&F0F+F(F+F+*&F2F+F6F+ F+*&F2F+&F)6%F+F-F,F+F+F;/,,F6F+F.F+*&F2F+F(F+F+*&F0F+F3F+F+*&F2F+&F)6 %F,F+F-F+F+F;/,,FAF+F.F+F1F+*&F0F+FHF+F+F8F+F;/,,FHF+F.F+F?F+F@F+*&F0F +F9F+F+F;/,,F9F+F.F+FEF+*&F0F+FAF+F+FGF+F;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$varG<(&%\"CG6%\"\"\"\"\"#\"\"$&F'6%F*F+F)&F'6%F+F)F* &F'6%F)F+F*&F'6%F*F)F+&F'6%F+F*F)" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#> %$varG<(/&%\"CG6%\"\"$\"\"#\"\"\",$*&*$)%\"sGF*F,F,,(*$)F1F+F,F+F1F,F, F,!\"\"F5/&F(6%F+F*F,F-/&F(6%F*F,F+F-/&F(6%F+F,F*F-/&F(6%F,F+F*F-/&F(6 %F,F*F+F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "SSGJ(n,[[1,2,3 ],[1,1]],s);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,(*&,&%\"nG\"\"#*$)F 'F(\"\"\"!\"\"F+)%\"sGF(F+F+*&,&F'F,F+F+F+F.F+F+F+F,F+,&F,F+F.F+F," }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "ezra(SAW_SSGJ);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%7SAW_SSGJ(n,MISTAKES,s)G" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#%>Finding~generating~functions~G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%enfor~the~number~of~words,~in~the~alphabet~-1,1,-2,2,. .,-d,dG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%R~avoiding~a~prescribed,~f inite,~set~of~\"MISTAKES\"G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%inthe~ set~of~mistakes~is~closed~under~the~action~of~the~group~ofG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%4signed~permutationsG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%[oFor~example~to~get~the~g.f.~for~a_m:=number~of~words ~of~length~mG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%goin~the~alphabet~|f r-1,1,-2,2,-3,3,...,-n,n|hr,~2~memory~self~avoiding~walk,type~G" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#%9~SAW_SSGJ(n,[[1,-1]],s);G" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "a:=SAW_SSGJ(n,[[1,-1]],s);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"aG*&,&!\"\"\"\"\"%\"sGF'F(,&*&,& F'F(*&\"\"#F(%\"nGF(F(F(F)F(F(F(F'F'" }}}{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 12 "subs(n=4,a);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&, &!\"\"\"\"\"%\"sGF%F&,&F'\"\"(F&F%F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "b:=SSGJ(n,[[1,1],[1,2,2,3],[1,2,3,3,2,3]],s);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "IsIsoSubString([1,2,3],[2,3] );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "eq1:=findequ(n,[1,1], [[1,1],[1,2,1,2]],s);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "eq 2:=findequ(n,[1,1,1],[[1,1,1],[1,1]],s);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "eq2 := C(1,1,1) = -s^3-C(1,2,3)*s^2;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "solve(\{eq1,eq2\},\{C(1,1,1),C(1,1) \});" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "trace(smblsymgj);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "?cont" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 41 "kernalarr([[1,2,3],[2,3,1],[1,1],[2,2]]);" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "?expand" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "?ta" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "GetOffIsoSupstring([[1,1],[1,2,2,1]]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "kernalarr([[2,3,1],[3,2,1],[1,1]]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "issubword([1,2,3,4],[2,3,1]);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "superflous(\{[1,2,3],[0,1,2, 3,4]\},[1,2,3]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "Hakten( \{[1,2,3],[0,1,2,3,4]\});" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "hakten1(\{[0,1,2,3,4],[1,2,3]\});" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "overlapz([1,2,3,4],[3,4,5],s);" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 39 "findeqz([1,2,3],\{[1,2,3],[1,1,1]\},C,s);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "saw_findequ(n,[1,2,3],[[1,2, 3],[1,1]],s);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/-%\"CG6%\"\"\"\"\"# \"\"$,**$)%\"sGF)F'!\"\"*(F$F',&%\"nGF'F(F.F'F-F'F.**F$F',&F1F'F'F.F'F 0F')F-F(F'F.*&-F%6$F'F'F'F4F'F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "saw_isostring([-1,2,1,-2],[2,-1,-2,1]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%trueG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "ab s(-a);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%$absG6#%\"aG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "saw_kernal([1,-1,2,-2,-3,3,-4,4,5,- 1,1,6]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7(\"\"\"\"\"#!\"$!\"%\"\"& \"\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "a:=saw_SSGJ(n,[[1, -1],[1,2,-1,-2]],s);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"aG*&,**&,& %\"nG!\"#\"\"\"F+F+)%\"sG\"\"$F+F+*&\"\"#F+)F-F0F+!\"\"*&F0F+F-F+F2F+F 2F+,**$F,F+F+*&,&F)F0F0F2F+F1F+F+*&F7F+F-F+F+F+F2F2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "taylor(subs(n=4,a),s);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#+1%\"sG\"\"\"\"\"!\"\")F%\"#c\"\"#\"$#R\"\"$\"%WF\"\" %\"&3#>\"\"&-%\"OG6#F%\"\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "subs(n=5,a);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,&%\"sG\"\")\"\" \"F'F',(*$)F%\"\"#F'\"#S*&\"\"$F'F%F'F'F'F'!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "saw_findequ(n,[1,-1],[[1,-1]],s);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/-%\"CG6$\"\"\"!\"\",&*$)%\"sG\"\"#F'F(*&F$F 'F,F'F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "trace(saw_findeq u);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%,saw_findequG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "saw_kernal([1,2,-1]);" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#7$\"\"\"\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "nops(saw_kernal([1,2,-1]))-nops(saw_kernal([1,2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "13 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }