{VERSION 6 0 "IBM INTEL LINUX" "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 } {CSTYLE "" -1 256 "" 0 1 0 0 0 0 0 1 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 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 }{PSTYLE "" 0 256 1 {CSTYLE " " -1 -1 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 257 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 258 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "read \"Symmetries.mp l\";" }}}{EXCHG {PARA 256 "" 0 "" {TEXT -1 10 "Steinhaus " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "for n from 3 to 14 do SteinhausRota tional(n); end do;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%\"\"!&%\"xG6# \"\"\"F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7&,&&%\"xG6#\"\"\"F(&F&6# \"\"#F(F%F)F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7'\"\"!&%\"xG6#\"\"#F %F%F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7(,&&%\"xG6#\"\"#\"\"\"&F&6# \"\"$F)F%F%F*F*F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7),&&%\"xG6#\"\"# \"\"\"&F&6#\"\"%F)F*F%&F&6#\"\"$F*F%F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7*,&&%\"xG6#\"\"$\"\"\"&F&6#\"\"%F)F*F*F%F*F%F%F$" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#7+\"\"!,(&%\"xG6#\"\"$\"\"\"&F'6#\"\"%F*&F'6#\" \"&F*F+F&F+F.F+F%F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7,,&&%\"xG6#\" \"%\"\"\"&F&6#\"\"&F)F%,(&F&6#\"\"$F)F*F)&F&6#\"\"'F)F.F%F*F1,(F.F)F%F )F1F)F*F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7-,&&%\"xG6#\"\"%\"\"\"&F &6#\"\"'F)F*F%,(F%F)&F&6#\"\"&F)F*F)F%F.F*F-F*F%F$" }}{PARA 12 "" 1 " " {XPPMATH 20 "6#7.,&&%\"xG6#\"\"%\"\"\"&F&6#\"\"(F),(&F&6#\"\"&F)&F&6 #\"\"'F)F*F)F-,(F%F)F.F)F1F)F%F.F1F*F-F4F4F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7/,&&%\"xG6#\"\"%\"\"\"&F&6#\"\")F),(&F&6#\"\"&F)&F&6# \"\"(F)F*F)F*,(F.F)&F&6#\"\"'F)F*F)F%F.F5F1F*,(F%F)F5F)F1F)F%,(F%F)F.F )F1F)F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#70,&&%\"xG6#\"\"&\"\"\"&F&6 #\"\")F)F*,(F%F)&F&6#\"\"'F)&F&6#\"\"(F),(F%F)F.F)F*F)F*F%F.F1F*F%,(F% F)F1F)F*F),(F.F)F1F)F*F)F%F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "for n from 3 to 25 do if testSR(n)=false then print(n) end if en d do;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "for n from 3 to 14 do SteinhausDihedral(n); end do;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7 %\"\"!&%\"xG6#\"\"\"F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7&\"\"!&%\"x G6#\"\"\"F%F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7'\"\"!&%\"xG6#\"\"#F %F%F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7(\"\"!&%\"xG6#\"\"#F%F%F%F$ " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7)\"\"!&%\"xG6#\"\"#F%&F&6#\"\"$F% F%F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7*\"\"!&%\"xG6#\"\"$F%F%F%F%F% F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7+\"\"!&%\"xG6#\"\"%F%&F&6#\"\"$ F%F)F%F%F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7,\"\"!&%\"xG6#\"\"%F%&F &6#\"\"$F%F%F)F%F%F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7-\"\"!&%\"xG6 #\"\"%F%&F&6#\"\"&F%F)F%F)F%F%F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7. \"\"!&%\"xG6#\"\"%F%F%F%&F&6#\"\"&F)F%F%F%F%F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7/\"\"!&%\"xG6#\"\"%F%,(F%\"\"\"&F&6#\"\"&F*&F&6#\"\"'F *F%F+F.F+F%F)F%F%F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#70\"\"!&%\"xG6# \"\"&F%&F&6#\"\"'F%F%F)F)F%F%F)F%F%F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "for n from 3 to 25 do if testSD(n)=false then print(n ) end if end do;" }{TEXT -1 0 "" }}}{EXCHG {PARA 258 "" 0 "" {TEXT -1 6 "Pascal" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "for k from 3 t o 14 do PascalRotational(k) end do;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #7%&%\"aG6#\"\"!F'&F%6#\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7&&%\" aG6#\"\"!,&F$\"\"\"&F%6#\"\"$F)F(F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #7'&%\"aG6#\"\"!&F%6#\"\"\",&F(F*&F%6#\"\"$F*F,&F%6#\"\"%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7(&%\"aG6#\"\"!&F%6#\"\"\",(F$F*F(F*&F%6#\"\"&F *,(F$F*F,F*&F%6#\"\"%F*F0F," }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7)&%\"a G6#\"\"!&F%6#\"\"\",(F$F*&F%6#\"\"'F*&F%6#\"\"&F*F',(F$F*F(F*F,F*F/F, " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7*&%\"aG6#\"\"!&F%6#\"\"\"&F%6#\" \"#,*F$F*&F%6#\"\"(F*&F%6#\"\"'F*&F%6#\"\"&F*,*F$F*F(F*F+F*F/F*F5F2F/ " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7+&%\"aG6#\"\"!&F%6#\"\"\"&F%6#\" \"#,&F(F*&F%6#\"\"(F*,*F(F*F+F*F/F*&F%6#\"\"'F*F.F3F/&F%6#\"\")" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#7,&%\"aG6#\"\"!&F%6#\"\"\"&F%6#\"\"#,& F+F*&F%6#\"\"(F*,*F$F*F(F*&F%6#\"\"*F*F/F*,*F$F*F+F*F3F*&F%6#\"\")F*F. F/F7F3" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7-&%\"aG6#\"\"!&F%6#\"\"\"&F %6#\"\"#&F%6#\"\"$,.F$F*F+F*F.F*&F%6#\"#5F*&F%6#\"\"*F*&F%6#\"\"(F*,&F .F*F8F*,.F$F*F(F*F.F*F2F*&F%6#\"\")F*F8F*F8F=F5F2" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#7.&%\"aG6#\"\"!&F%6#\"\"\"&F%6#\"\"#&F%6#\"\"$,,F$F*F.F *&F%6#\"#6F*&F%6#\"#5F*&F%6#\"\"*F*,.F(F*F+F*F.F*F5F*F8F*&F%6#\"\")F*F ;,,F$F*F(F*F+F*F2F*FF;FBF8F5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "for k from 3 to 25 do if testPR(k)=false then print(k ) end if end do;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "for k f rom 3 to 14 do PascalDihedral(k); end do;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%&%\"aG6#\"\"!F'F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# 7&&%\"aG6#\"\"!F'F'F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7'&%\"aG6#\" \"!&F%6#\"\"\"F'F(F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7(&%\"aG6#\"\" !&F%6#\"\"\"F(F(F(F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7)&%\"aG6#\"\" !&F%6#\"\"\"F(F'F(F(F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7*&%\"aG6#\" \"!&F%6#\"\"\"&F%6#\"\"#,&F(F*F+F*F.F+F(F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7+&%\"aG6#\"\"!&F%6#\"\"\"&F%6#\"\"#F'F'F'F+F(F$" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#7,&%\"aG6#\"\"!&F%6#\"\"\"&F%6#\"\"#F' ,&F(F*F+F*F.F'F+F(F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7-&%\"aG6#\"\" !&F%6#\"\"\"&F%6#\"\"#&F%6#\"\"$,&F(F*F+F*F'F1F.F+F(F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7.&%\"aG6#\"\"!&F%6#\"\"\"&F%6#\"\"#&F%6#\"\"$,(F( F*F+F*F.F*F'F'F1F.F+F(F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7/&%\"aG6# \"\"!&F%6#\"\"\"&F%6#\"\"#&F%6#\"\"$,(F(F*F+F*F.F*F.F'F.F1F.F+F(F$" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#70&%\"aG6#\"\"!&F%6#\"\"\"&F%6#\"\"#&F %6#\"\"$&F%6#\"\"%,(F(F*F+F*F1F*F.F.F4F1F.F+F(F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "for k from 3 to 25 do if testPD(k)=false then print(k) end if end do;" }}}{EXCHG {PARA 257 "" 0 "" {TEXT -1 37 "Gen erating random symmetric triangles" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 92 "n:=10: L:=RandomSteinhausRotational(n); \nfor i from \+ 1 to n do print(steinhaus(L)[i]) end do;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"LG7,\"\"!F&\"\"\"F&F&F&F'F'F&F&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7,\"\"!F$\"\"\"F$F$F$F%F%F$F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7+\"\"!\"\"\"F%F$F$F%F$F%F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7*\"\"\"\"\"!F$F%F$F$F$F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7)\"\"\"F$F$F$\"\"!F%F%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7(\" \"!F$F$\"\"\"F$F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7'\"\"!F$\"\"\"F% F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7&\"\"!\"\"\"F$F%" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#7%\"\"\"F$F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# 7$\"\"!F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 90 "n:=10: L:=RandomSteinhausDihedral(n); \nf or i from 1 to n do print(steinhaus(L)[i]) end do;" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%\"LG7,\"\"!F&F&\"\"\"F&F&F'F&F&F&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7,\"\"!F$F$\"\"\"F$F$F%F$F$F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7+\"\"!F$\"\"\"F%F$F%F%F$F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7*\"\"!\"\"\"F$F%F%F$F%F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7)\"\"\"F$F$\"\"!F$F$F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7(\" \"!F$\"\"\"F%F$F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7'\"\"!\"\"\"F$F% F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7&\"\"\"F$F$F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%\"\"!F$F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$\" \"!F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 88 "k:=10: L:=RandomPascalRotational(k): \nfor i \+ from 1 to k+1 do print(pascal(L)[i]) end do;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$\"\"!\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%\"\" \"F$F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7&\"\"\"\"\"!F%F%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7'\"\"\"F$\"\"!F%F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7(\"\"!F$\"\"\"F$F%F%" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#7)\"\"\"\"\"!F$F$F$F%F%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7*\"\"\"F $F$\"\"!F%F$F%F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7+\"\"!F$F$\"\"\"F $F%F%F%F%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7,\"\"\"\"\"!F%F$F$F$F%F% F%F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7-\"\"\"F$\"\"!F$F%F%F$F%F%F$F %" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7,\"\"!\"\"\"F%F%F$F%F%F$F%F%" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 86 "k:=10: L:=RandomPascalDihed ral(k): \nfor i from 1 to k+1 do print(pascal(L)[i]) end do;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$\"\"\"F$" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#7%\"\"\"\"\"!F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7&\"\"!\"\"\"F%F$ " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7'\"\"!\"\"\"F$F%F$" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#7(\"\"\"F$F$F$F$F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7)\"\"\"\"\"!F%F%F%F%F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7*\" \"!\"\"\"F$F$F$F$F%F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7+\"\"!\"\"\" F%F$F$F$F%F%F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7,\"\"\"F$\"\"!F$F%F %F$F%F$F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7-\"\"\"\"\"!F$F$F$F%F$F$ F$F%F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7,\"\"\"F$\"\"!F%F$F$F%F%F$F $" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 256 45 "Generating all symmetric tr iangles of a class" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 310 "# Ac cording to the dimension, the number of structures.\n# N:nomber S:Ste inhaus P:Pascal R:Rotational D:dihedral\nNSR:=proc(k) 2^(floor(k/3) +((k mod 3) mod 2)) end: \nNSD:=proc(k) 2^ceil((floor(k/3)+((k mod 3) mod 2))/2) end: \nNPR:=proc(k) 2^(2*floor((k+1)/3)) end: \nNPD:=proc( k) 2^(floor((2*k+3)/6)) end: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "n:=11: T:=GeneratingAllSR(n); nops(T)=NSR(n);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"TG7*7-\"\"!F'F'F'F'F'F'F'F'F'F'7-\"\"\"F'F)F)F )F'F'F)F'F)F)7-F'F'F'F)F'F)F'F)F'F'F'7-F)F'F)F'F)F)F'F'F'F)F)7-F)F)F'F )F'F'F)F)F)F'F)7-F'F)F)F'F)F'F)F'F)F)F'7-F)F)F'F'F'F)F)F'F)F'F)7-F'F)F )F)F)F)F)F)F)F)F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/\"\")F$" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "n:=12: T:=GeneratingAllSD(n) ; nops(T)=NSD(n);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"TG7&7.\"\"!F' F'F'F'F'F'F'F'F'F'F'7.F'\"\"\"F)F)F)F'F'F)F)F)F)F'7.F'F'F'F'F'F)F)F'F' F'F'F'7.F'F)F)F)F)F)F)F)F)F)F)F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/ \"\"%F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "k:=7: T:=Generat ingAllPR(k); nops(T)=NPR(k);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"TG 727)\"\"!F'F'F'F'F'F'7)\"\"\"F'F)F'F)F'F'7)F'F)F'F'F)F'F'7)F)F)F)F'F'F 'F'7)F'F'F)F'F'F)F'7)F)F'F'F'F)F)F'7)F'F)F)F'F)F)F'7)F)F)F'F'F'F)F'7)F 'F'F)F'F)F'F)7)F)F'F'F'F'F'F)7)F'F)F)F'F'F'F)7)F)F)F'F'F)F'F)7)F'F'F'F 'F)F)F)7)F)F'F)F'F'F)F)7)F'F)F'F'F'F)F)7)F)F)F)F'F)F)F)" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#/\"#;F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "k:=8: T:=GeneratingAllPD(k); nops(T)=NPD(k);" }}{PARA 12 "" 1 " " {XPPMATH 20 "6#>%\"TG7*7*\"\"!F'F'F'F'F'F'F'7*\"\"\"F'F'F'F'F'F'F)7* F'F)F'F)F)F'F)F'7*F)F)F'F)F)F'F)F)7*F'F'F)F)F)F)F'F'7*F)F'F)F)F)F)F'F) 7*F'F)F)F'F'F)F)F'7*F)F)F)F'F'F)F)F)" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#/\"\")F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{PARA 11 "" 1 "" {TEXT -1 0 "" }}}{MARK "20 0 0" 0 }{VIEWOPTS 0 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }