{VERSION 3 0 "IBM INTEL NT" "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 Input" 2 19 "" 0 1 255 0 0 1 0 0 0 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 "" {TEXT -1 64 "These are auxuliarry funct
ions used in the other CNO worksheets:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "Invoke:=proc(v,f)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
15 "local i,result:" }}{PARA 0 "> " 0 "" {XPPEDIT 19 1 "RETURN(vector(
vectdim(v),i->f(v[i],i))):" "6#-%'RETURNG6#-%'vectorG6$-%(vectdimG6#%
\"vGR6#%\"iG7\"6$%)operatorG%&arrowG6\"-%\"fG6$&F,6#F/F/F4F4F4" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end;" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%'InvokeGR6$%\"vG%\"fG6$%\"iG%'resultG6\"F,-%'RETURNG6#-%'vecto
rG6$-%(vectdimG6#9$R6#F*F,6$%)operatorG%&arrowGF,-T&6$&T$F5F6F,F,6&F'F
6F(9%F,F,F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "Diagonal:=pr
oc(v)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "local i:" }}{PARA 0 "> " 0 
"" {XPPEDIT 19 1 "RETURN(diag(seq(v[i],i=1..vectdim(v)))):" "6#-%'RETU
RNG6#-%%diagG6#-%$seqG6$&%\"vG6#%\"iG/F/;\"\"\"-%(vectdimG6#F-" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end;" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%)DiagonalGR6#%\"vG6#%\"iG6\"F*-%'RETURNG6#-%%diagG6#-%$seqG6$&
9$6#8$/F7;\"\"\"-%(vectdimG6#F5F*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "VecSum:=proc(v)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "
local i:" }}{PARA 0 "> " 0 "" {XPPEDIT 19 1 "RETURN(add(v[i],i=1..vect
dim(v))):" "6#-%'RETURNG6#-%$addG6$&%\"vG6#%\"iG/F,;\"\"\"-%(vectdimG6
#F*" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%'VecSumGR6#%\"vG6#%\"iG6\"F*-%'RETURNG6#-%$addG6$&9$6
#8$/F4;\"\"\"-%(vectdimG6#F2F*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "MinLoc:=proc(v)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 
"local i, min_val, min_loc :" }}{PARA 0 "> " 0 "" {XPPEDIT 19 1 "min_v
al:=infinity: min_loc:=1:" "6#C$>%(min_valG%)infinityG>%(min_locG\"\"
\"" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "for i from 1 to nops(v) do" }
}{PARA 0 "> " 0 "" {XPPEDIT 19 1 "if v[i]<min_val then " "6#@$2&%\"vG6
#%\"iG%(min_valG6\"" }}{PARA 0 "> " 0 "" {XPPEDIT 19 1 "min_val:=v[i]:
" "6#>%(min_valG&%\"vG6#%\"iG" }}{PARA 0 "> " 0 "" {XPPEDIT 19 1 "min_
loc:=i:" "6#>%(min_locG%\"iG" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "fi: \+
od:" }}{PARA 0 "> " 0 "" {XPPEDIT 19 1 "RETURN(min_loc):" "6#-%'RETURN
G6#%(min_locG" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end;" }}{PARA 12 "
" 1 "" {XPPMATH 20 "6#>%'MinLocGR6#%\"vG6%%\"iG%(min_valG%(min_locG6\"
F,C&>8%%)infinityG>8&\"\"\"?(8$F3F3-%%nopsG6#9$%%trueG@$2&F96#F5F/C$>F
/F=>F2F5-%'RETURNG6#F2F,F,F," }}}}{MARK "1 0 0" 0 }{VIEWOPTS 1 1 0 1 
1 1803 }