{VERSION 5 0 "IBM INTEL NT" "5.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 "" {TEXT -1 43 "Quickly Creating an Image \+
Box from a Matrix" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" 
{TEXT -1 39 "Created by Julie Olsen and Jesse Windle" }}{PARA 0 "" 0 "
" {TEXT -1 9 "June 2003" }}{PARA 0 "" 0 "" {TEXT -1 41 "Grand Valley S
tate University REU Program" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 84 "(NOTE:  COMMANDS TO CREATE THE ORIGINAL MATRIX AND TO PRO
CESS IT HAVE BEEN DELETED.)" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 26 "HE
RE'S THE ORIGINAL MATRIX" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 
"signal := Array(X);step:=0;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'sig
nalG-%'RTABLEG6%\")s2\">#-%'MATRIXG6#7272\"$b#F.F.F.F.F.F.F.F.F.F.F.F.
F.F.F.F-72F.F.F.F.F.\"\"!F0F0F0F.F.F.F.F.F.F.72F.F.F.F.F.F0F.F.F0F.F.F
.F.F.F.F.72F.F.F.F.F0F.F.F.F.F0F.F.F.F.F.F.F272F.F.F.F0F.F.F.F.F.F.F0F
.F.F.F.F.F372F.F.F.F0F0F0F0F0F0F0F0F.F.F.F.F.F3F3F3F3F3F-F-%&ArrayG" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%stepG\"\"!" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 71 "CLICK ON THE MATRIX, THEN LEFT-CLICK TO GET THE MENU
.  SELECT \"BROWSE\"." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "
" {TEXT -1 79 "HERE'S THE MATRIX OF WAVLET COEFFICIENTS AFTER ONE PASS
 OF THE 2D HAAR FILTERS." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 
"signal := stepFilter(signal,lo,hi_v,hi_h,hi_d,step);step:=step+1;" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%'signalG-%'RTABLEG6%\")%)f\">#-%'MAT
RIXG6#7272$\"+++++^!\"(F.F.F.F.F.F.F.$\"\"!F2F1F1F1F1F1F1F172F.F.$\"++
++]DF0F4F4F.F.F.F1F1F1$!++++]DF0F1F1F1F172F.F.F4F.F4F.F.F.F1F1F1F1F1F1
F1F172F.F4F.F.F.F4F.F.F1F1F1F1F1F1F1F172F.F4F4F4F4F4F.F.F1F1F6F6F6F1F1
F1F9F9F-72F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F172F1F1F4F1F6F1F1F1F1F1F1F1F1
F1F1F172F1F1F6F1F4F1F1F1F1F1F1F1F1F1F1F172F1F4F1F1F1F6F1F1F1F1F1F1F1F1
F1F1F>F>F>F;%&ArrayG" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 98 "AGAIN, CL
ICK ON THE MATRIX, THEN LEFT-CLICK TO GET THE MENU.  SELECT \"BROWSE\"
 TO GET AN IMAGE BOX." }}}{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 "" }}}
}{MARK "0 5 0" 0 }{VIEWOPTS 1 1 0 3 4 1802 1 1 1 1 }{PAGENUMBERS 0 1 
2 33 1 1 }{RTABLE_HANDLES 21910772 21915984 }{RTABLE 
M7R0
I5RTABLE_SAVE/21910772X,%)anythingG6"6"[gl!!%!!!#[[l"1"1"$b#F'F'F'F'F'F'F'F'F'F
'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'
F'F'F'F'""!F(F(F(F(F(F(F(F'F'F'F'F'F'F(F(F'F'F(F'F'F'F'F'F'F'F'F'F(F(F'F'F'F'F(
F'F'F'F'F'F'F'F'F'F(F'F'F'F'F'F(F'F'F'F'F'F'F'F'F'F(F'F'F'F'F'F(F'F'F'F'F'F'F'F
'F'F(F(F'F'F'F'F(F'F'F'F'F'F'F'F'F'F'F'F(F(F'F'F(F'F'F'F'F'F'F'F'F'F'F'F'F'F(F(
F(F(F(F(F(F(F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F
'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'
F'F'F'F'F'F'F'F'F'6"
}
{RTABLE 
M7R0
I5RTABLE_SAVE/21915984X,%)anythingG6"6"[gl!!%!!!#[[l"1"1$"+++++^!"(F'F'F'F'F'F'
F'$""!F+F*F*F*F*F*F*F*F'F'F'$"++++]DF)F,F,F,F'F*F*F*F,F,F,F,F*F'F,F,F'F,F'F'F'F
*F,$!++++]DF)F*F*F*F*F*F'F,F'F'F,F'F'F'F*F*F*F*F*F*F*F*F'F,F,F'F,F'F'F'F*F.F,F*
F*F*F*F*F'F'F'F,F,F,F,F'F*F*F*F.F.F.F.F*F'F'F'F'F'F'F'F'F*F*F*F*F*F*F*F*F'F'F'F
'F'F'F'F'F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*
F*F*F*F*F*F*F*F*F*F.F*F*F*F*F*F*F*F*F*F*F*F*F.F*F*F.F*F*F*F*F*F*F*F*F*F*F*F*F*F
*F*F.F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*
F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*F*6"
}