{VERSION 2 2 "IBM INTEL NT" "2.2" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier New" 0 1 255 0 0 1 0 1 
0 0 1 0 0 0 0 }{CSTYLE "" -1 256 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 }
{CSTYLE "" -1 257 "" 1 12 32 112 111 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" 
-1 258 "" 0 1 2 0 110 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 259 "" 0 1 
26 1 64 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 260 "" 0 1 74 0 6 0 0 1 0 
0 0 0 0 0 0 }{CSTYLE "" -1 261 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }
{CSTYLE "" -1 262 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 263 
"" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 264 "" 0 1 0 0 0 0 0 
1 0 0 0 0 0 0 0 }{CSTYLE "" -1 265 "" 1 12 32 112 111 0 0 1 0 0 0 0 0 
0 0 }{CSTYLE "" -1 266 "" 0 1 221 167 152 0 0 1 0 0 0 0 0 0 0 }
{CSTYLE "" -1 267 "" 0 1 0 0 3 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 268 
"" 0 1 4 1 97 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 269 "" 0 1 105 1 0 0 
0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 270 "" 0 1 0 0 88 0 0 1 0 0 0 0 0 0 
0 }{CSTYLE "" -1 272 "System" 0 1 0 0 196 0 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 273 "" 0 1 0 0 7 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 274 
"System" 0 1 220 0 123 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 275 "System
" 0 1 0 0 0 0 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 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 
-1 3 "   " }{TEXT 256 38 "                       Help for Rubik4" }}
{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 72 "This pack
age simulates the moves of the 4x4 Rubik's cube. You must have " }
{TEXT 273 5 "plots" }{TEXT -1 5 " and " }{TEXT 272 10 "rubik3.mpl" }
{TEXT -1 19 " loaded into MAPLE." }}{PARA 0 "" 0 "" {TEXT -1 53 "CALLI
NG SEQUENCE : rc(<list of moves>,<color array>);" }}{PARA 0 "" 0 "" 
{TEXT -1 46 "The color array has already been entered into " }{TEXT 
275 10 "rubik4.mpl" }{TEXT -1 56 ", so the usual command would be \nrc
(<list of moves>,A0);" }}{PARA 0 "" 0 "" {TEXT -1 74 "When no move is \+
made, the move is denoted by 1, in which case the command " }{TEXT 
274 9 "rc(1,A0);" }{TEXT -1 25 " returns the solved cube:" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 36 "To see the solved rubik's cube, type" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "rc(1,A0);" }}}{EXCHG {PARA 0 
"" 0 "" {TEXT -1 63 "We use a 4x4 analog of the \"Singmaster notation
\" for the moves:" }}{PARA 0 "" 0 "" {TEXT -1 52 "    U1 =  90 degree \+
clockwise rotation of the outer " }{TEXT 257 1 "u" }{TEXT -1 7 "p face
," }}{PARA 0 "" 0 "" {TEXT -1 56 "    U2 =  90 degree clockwise rotati
on of the 2nd level " }{TEXT 265 1 "u" }{TEXT -1 8 "p slice," }}{PARA 
0 "" 0 "" {TEXT -1 52 "    D1 =  90 degree clockwise rotation of the o
uter " }{TEXT 258 1 "d" }{TEXT -1 9 "own face," }}{PARA 0 "" 0 "" 
{TEXT -1 56 "    D2 =  90 degree clockwise rotation of the 2nd level \+
" }{TEXT 266 1 "d" }{TEXT -1 10 "own slice," }}{PARA 0 "" 0 "" {TEXT 
-1 52 "    R1 =  90 degree clockwise rotation of the outer " }{TEXT 
259 1 "r" }{TEXT -1 67 "ight face,\n    R2 =  90 degree clockwise rota
tion of the 2nd level " }{TEXT 267 1 "r" }{TEXT -1 64 "ight slice,\n  \+
  L1 =  90 degree clockwise rotation of the outer " }{TEXT 260 1 "l" }
{TEXT -1 66 "eft face,\n    L2 =  90 degree clockwise rotation of the \+
2nd level " }{TEXT 268 1 "l" }{TEXT -1 63 "eft slice,\n    F1 =  90 de
gree clockwise rotation of the outer " }{TEXT 261 1 "f" }{TEXT -1 67 "
ront face,\n    F2 =  90 degree clockwise rotation of the 2nd level " 
}{TEXT 269 1 "f" }{TEXT -1 64 "ront slice,\n    B1 =  90 degree clockw
ise rotation of the outer " }{TEXT 262 1 "b" }{TEXT -1 66 "ack face,\n
    B2 =  90 degree clockwise rotation of the 2nd level " }{TEXT 270 
1 "b" }{TEXT -1 10 "ack slice." }}{PARA 0 "" 0 "" {TEXT 263 6 "Rubik4
" }{TEXT -1 85 " understands, for example, that U1^(-2) means to perfo
rm the inverse of U1 twice. In " }{TEXT 264 6 "rubik4" }{TEXT -1 58 ",
 moves are combined using list and exponential notation. " }}{PARA 0 "
" 0 "" {TEXT -1 50 " Here are a few examples (all due to Jeff Adams): \+
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 78 "move4:=[R1,B1,L1,F1,U1,
F1^(-1),L1^(-1),B1^(-1),R1^(-1),U1^(-1)]:\nrc(move4,A0);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 78 "move5:=[F1^(-1),R2,F1,R2^(-1),U1,R2
,F1^(-1),R2^(-1),F1,U1^(-1)]:\nrc(move5,A0);" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 78 "move6:=[F1^(-1),L2^(-1),F1,L2,U1,L2^(-1),F1^(-1)
,L2,F1,U1^(-1)]:\nrc(move6,A0);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 98 "move7:=[R1^(-1),U1^2,R1^2,U1,R1^(-1),U1^(-1),R1^(-1),U1^2,L1,F
1,R1,F1^(-1),L1^(-1)]:\nrc(move7,A0);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 88 "move8:=[L2^2,D1^2,U2,F1^3,U2^3,F1,D1^2,L2^2,L1,U1,L1^
3,U2^3,L1,U1^3,L1^3]:\nrc(move8,A0);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 67 "move9:=[R1^(-1),F2,R2^(-1),F2^(-1),R1,F2,R2,F2^(-1)]:
\nrc(move9,A0);" }}}}{MARK "3 7 0" 47 }{VIEWOPTS 1 1 0 1 1 1803 }