{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 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 "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 1 0 0 255 1 0 0 0 0 0 0 1 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 "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 101 "Read in classification da ta. The first n-1 columns are the inputs followed by the class index i n the " }}{PARA 0 "" 0 "" {TEXT -1 105 "last column. The array \"a\" \+ contains some extraneous info at the top such as the number of input v ectors." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "fname := `H:\\\\public_h tml\\\\classes\\\\cs449\\\\Maple\\\\iris\\\\iris.dat`;" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 23 "with(plots):\ncols := 5;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "a := readdata(fname,cols):\nb := a[4..nops(a)]:\nlen \+ := nops(b);\ndim := cols-1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&fnam eG%QH:\\public_html\\classes\\cs449\\Maple\\iris\\iris.datG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%colsG\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$lenG\"$]\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$dimG\"\"%" } }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 76 "The function pickClass picks out all vectors in array x that are in class i." }}{PARA 0 "" 0 "" {TEXT -1 77 "v is a list containing the class indices (no duplicates). The l oop separates " }}{PARA 0 "" 0 "" {TEXT -1 44 "the different classes i nto their own arrays." }}{PARA 0 "" 0 "" {TEXT -1 76 "The array \"clas ses\" is a list of arrays. There is one array for each class." }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 201 "pickClass := proc(x,i) is(x[dim+1 ]=i); end:\nv := sort(convert(\{op(map(u->u[dim+1], b))\},list));\ncla sses := []:\nfor i from 1 to nops(v) do \n classes := [ op(classes) ,select( pickClass, b,v[i])];\nod:" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%\"vG7%$\"\"\"\"\"!$\"\"#F($\"\"$F(" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 81 "This function takes two columns( n and m) and plots them with e ach class being a " }}{PARA 0 "" 0 "" {TEXT -1 16 "different color." } }{PARA 0 "> " 0 "" {MPLTEXT 1 0 114 "myColors := [ blue, black, red, g reen, orange ];\nplotCut := proc(m,n) \n fig := []:\n for i from 1 to nops(v) do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 131 " mm := ma p(u->[ u[n],u[m] ], classes[i]);\n fig := [op(fig), pointplot(m m,color=myColors[i],labels=[`x`.n,`x`.m])]; " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 " od:\n fig;\nend:" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)myColorsG7'%%blueG%&blackG%$redG%&greenG%'orangeG" }}{PARA 7 "" 1 "" {TEXT -1 43 "Warning, `fig` is implicitly declared local" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 61 "This function loops over all pairs of columns and plots them." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "all \+ := []:\nfor i from 1 to dim do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 69 " \+ for j from i+1 to dim do\n all := [op(all), plotCut(i,j)]; \+ " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 " od; " }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 52 "od:\nfor i from 1 to nops(all) do display(all[i]) o d;" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'POINTSG 6U7$$\"#N!\"\"$\"#^F)7$$\"#IF)$\"#\\F)7$$\"#KF)$\"#ZF)7$$\"#JF)$\"#YF) 7$$\"#OF)$\"#]F)7$$\"#RF)$\"#aF)7$$\"#MF)F97$FFF>7$$\"#HF)$\"#WF)7$F7F /7$$\"#PF)FC7$FF$\"#[F)7$F-FS7$F-$\"#VF)7$$\"#SF)$\"#eF)7$FL$\"#dF)F@F &7$$\"#QF)Fin7$F\\oF*7$FFFC7$FPF*7$FFH7$F'$\"#_F )7$FFFgoF17$F7FSF_o7$$\"#TF)Fgo7$$\"#UF)$\"#bF)FN7$F2F>7$F'FapFN7$F-FL 7$FFF*7$F'F>7$$\"#BF)$\"#XF)7$F2FLFgpF^oFUF^o7$F2F97$FP$\"#`F)7$FcoF>- %'COLOURG6&%$RGBG\"\"!Fgq$\"*++++\"!\")-F$6U7$F2$\"#qF)7$F2$\"#kF)7$F7 $\"#pF)7$FipFap7$$\"#GF)$\"#lF)7$FhrFin7$Fco$\"#jF)7$$\"#CF)F/7$FJ$\"# mF)7$$\"#FF)Fgo7$$\"#?F)F>7$F-$\"#fF)7$$\"#AF)$\"#gF)7$FJ$\"#hF)7$FJ$ \"#cF)7$F7$\"#nF)7$F-Fht7$FgsFfn7$F`t$\"#iF)7$$\"#DF)Fht7$F2F]t7$FhrFe t7$FcuF^sFfu7$FJFar7$F-Fds7$Fhr$\"#oF)7$F-F[u7$FJFbt7$$\"#EF)Fin7$FasF apFbvF^u7$FgsFbt7$F-FC7$FFFbtFjt7$FipF^sF]u7$FcuFap7$F`vFap7$F-Fet7$F` vFfn7$FipF>7$FgsFht7$F-Fin7$FJFin7$FJF`u7$FcuF*F\\s-Fdq6&FfqFgqFgqFgq- F$6UF]sF^u7$F-$\"#rF)7$FJF^s7$F-Fjr7$F-$\"#wF)7$FcuF/7$FJ$\"#tF)7$FcuF [u7$F<$\"#sF)7$F2Fjr7$FgsFar7$F-F[v7$FcuFin7$FhrFfnF`rFiw7$F\\o$\"#xF) 7$F`vF[yF_t7$F2Fdr7$FhrFht7$FhrF[y7$FgsF^s7$FcoF[u7$F2Fcx7$FhrF`uFiv7$ FhrFar7$F-Fcx7$Fhr$\"#uF)7$F\\o$\"#zF)Fey7$FhrF^s7$F`vFet7$F-F[y7$FFF^ s7$F7Far7$F-FbtFcrFjtFcrF^u7$F2F[vFbyF]vFguFiw7$FFF`uF\\t-Fdq6&FfqFhqF gqFgq-%+AXESLABELSG6$%#x2G%#x1G" 1 2 0 1 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 }}}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'POINTSG6U7$$\"#9!\"\"$\"#^F)7$F'$\"#\\F)7$$\"#8F)$\" #ZF)7$$\"#:F)$\"#YF)7$F'$\"#]F)7$$\"#F)FK7$FIF:F_o7 $F5$\"#_F)7$F'Fao7$FIF2FHFGF`o7$F'$\"#bF)FF7$FTF:7$F0FfoFF7$F0FDFgn7$F 0F:7$F0$\"#XF)FjoF_o7$F]oF*FM7$FIF*FA7$F5$\"#`F)F9-%'COLOURG6&%$RGBG\" \"!Fhp$\"*++++\"!\")-F$6U7$F2$\"#qF)7$F]p$\"#kF)7$F-$\"#pF)7$$\"#SF)Ff o7$F7$\"#lF)7$F]pFY7$F2$\"#jF)7$$\"#LF)F-7$F7$\"#mF)7$$\"#RF)Fao7$$\"# NF)F:7$$\"#UF)$\"#fF)7$Fhq$\"#gF)7$F2$\"#hF)7$$\"#OF)$\"#cF)7$FD$\"#nF )7$F]pF[t7$$\"#TF)FV7$F]p$\"#iF)7$FhrF[t7$FKF`s7$FhqFfs7$F-F_rFes7$FQF bq7$FDFer7$FK$\"#oF)7$F:F^t7$F]pFcs7$F[sFY7$$\"#QF)Ffo7$$\"#PF)Ffo7$Fh rFV7$F*Fcs7$F]pF?Fau7$F2F^t7$FDF_r7$FbtF[tFgq7$FDFfo7$F7Ffs7$FhqFV7$Fb rF:7$F^sF[t7$F^sFYFdv7$FQFet7$$\"#IF)F*7$FbtFY-Fep6&FgpFhpFhpFhp-F$6U7 $FcsF_r7$F*FV7$F`s$\"#rF)7$F[tF_r7$FVF[r7$Fer$\"#wF)7$F]pF-7$F_r$\"#tF )7$FVF^t7$Ffs$\"#sF)7$F*F[r7$FbpFbq7$FfoF^u7$F:FYF_wFax7$FfoF[r7$F^t$ \"#xF)7$FeqFfx7$F:Fcs7$FYFeq7$F-F[tFexFjt7$FYF^t7$FcsF^x7$FKFet7$F-Ffs 7$F[tFbq7$FVF^x7$Ffs$\"#uF)7$Fbq$\"#zF)F`y7$F*F_r7$F[tFfs7$FfsFfxFcw7$ FfoFbq7$FKFcs7$F?Feq7$F[tF^t7$F*FeqF_w7$F`sF^uF\\y7$FaoF^t7$F:F_r7$Fao F[r7$F?Fet7$F*F`s-Fep6&FgpFipFhpFhp-%+AXESLABELSG6$%#x3G%#x1G" 1 2 0 1 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 }}}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'POINTSG6U7$$\"\"#!\"\"$\"#^F)7 $F'$\"#\\F)7$F'$\"#ZF)7$F'$\"#YF)7$F'$\"#]F)7$$\"\"%F)$\"#aF)7$$\"\"$F )F3F57$F'$\"#WF)7$$\"\"\"F)F-7$F'F;7$F'$\"#[F)7$FDFH7$FD$\"#VF)7$F'$\" #eF)7$F9$\"#dF)F87$F>F*7$F>FRFTFF7$F9F*F27$$\"\"&F)F*FGF57$F9F67$F'$\" #_F)FenF/FGF87$FDFfn7$F'$\"#bF)FCF5FinFCF@F&7$F>F67$F>$\"#XF)F@7$$\"\" 'F)F6FV7$F>FHF&F27$F'$\"#`F)F5-%'COLOURG6&%$RGBG\"\"!F[p$\"*++++\"!\") -F$6U7$$\"#9F)$\"#qF)7$$\"#:F)$\"#kF)7$Fgp$\"#pF)7$$\"#8F)Fjn7$Fgp$\"# lF)7$F_qFR7$$\"#;F)$\"#jF)7$$\"#5F)F-7$F_q$\"#mF)7$FbpFfn7$F[rF67$Fgp$ \"#fF)7$F[r$\"#gF)7$Fbp$\"#hF)7$F_q$\"#cF)7$Fbp$\"#nF)7$FgpF\\s7$F[rFO 7$Fgp$\"#iF)7$$\"#6F)F\\s7$$\"#=F)Fcr7$F_qFir7$FgpFhq7$$\"#7F)Fir7$F_q Fip7$FbpF^r7$Fbp$\"#oF)7$$\"#F)FO7$$ \"#@F)$\"#rF)7$FjsFhq7$$\"#AF)Fbq7$Fav$\"#wF)7$FgtF-7$Fjs$\"#tF)7$FjsF _s7$F[v$\"#sF)7$$\"#?F)Fbq7$F^vFip7$FavFdt7$FewFR7$$\"#CF)FO7$$\"#BF)F ip7$FjsFbq7$Fgv$\"#xF)7$F^xFbxFit7$F^xF\\q7$FewF\\s7$FewFbxFev7$FavF_s 7$FjsFbw7$FjsFds7$FjsFir7$FavFip7$FfqFbw7$F^v$\"#uF)7$Few$\"#zF)7$FgvF ipF]tFhrFdx7$F[xFhq7$FjsFip7$FjsFfr7$FavF\\q7$F[xF_sFexF]v7$F^xFdt7$F[ vF_s7$F^xF_s7$F^vFhqFdw7$F^xFdsFis-Fho6&FjoF\\pF[pF[p-%+AXESLABELSG6$% #x4G%#x1G" 1 2 0 1 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 }}} {PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'POINTSG6U7$$ \"#9!\"\"$\"#NF)7$F'$\"#IF)7$$\"#8F)$\"#KF)7$$\"#:F)$\"#JF)7$F'$\"#OF) 7$$\"#F)FB7$FLF-FK7$F5F*FA7$FLF27$FLF7FD7$F5$ \"#TF)7$F'$\"#UF)F47$FRF27$F0F*F47$F0F-FDF]p7$F0$\"#BF)F/7$FLF*7$F`oFe nF,7$FLFen7$F'F2FH7$F'F]o-%'COLOURG6&%$RGBG\"\"!F[q$\"*++++\"!\")-F$6U 7$$\"#ZF)F27$$\"#XF)F27$$\"#\\F)F77$FTF`p7$$\"#YF)$\"#GF)7$FeqF^r7$Fbq F]o7$F]o$\"#CF)7$F\\rFF7$F?$\"#FF)7$F*$\"#?F)7$FjoF-7$FT$\"#AF)7$FbqFF 7$F:FF7$FWF77$FeqF-7$FgoFgr7$FeqF^s7$F?$\"#DF)7$$\"#[F)F27$FTF^r7$FhqF gs7$FbqF^r7$$\"#VF)FF7$FWF-7$FjsF^r7$$\"#]F)F-7$FeqFF7$F*$\"#EF)7$FenF cr7$FIFcrFfr7$$\"#^F)FgrFcs7$FeqFB7$FbqF77$FWF`p7$FgoF-7$FTFgs7$FWFit7 $F\\rF-7$FTFit7$F]oF`p7$FjoFgrF\\s7$FjoFFF_t7$F-Fgs7$FgoF^r-Fhp6&FjpF[ qF[qF[q-F$6U7$$\"#gF)F]oF]u7$$\"#fF)F-7$$\"#cF)FF7$$\"#eF)F-7$$\"#mF)F -7$FeqFgs7$$\"#jF)FF7$F[wFgs7$$\"#hF)F:7$F^uF27$$\"#`F)Fgr7$$\"#bF)F-7 $FetFgs7$F^uF^r7$FjwF2F\\x7$$\"#nF)Fen7$$\"#pF)Fit7$FetF^s7$$\"#dF)F27 $FhqF^r7$FcxF^r7$FhqFgr7$FjxF]o7$FbvF2Fct7$FhqF-7$FhvF^rFjv7$FfwF^r7$$ \"#kF)FenFbyF`x7$FhvFit7$FfwF-7$FhvFB7$F]xF77$FjsF-7$$\"#aF)F77$FhvF77 $F^uF7F]u7$FevF2F_y7$$\"#_F)F-F_xFbz7$F]zFB7$F^uF--Fhp6&FjpF\\qF[qF[q- %+AXESLABELSG6$%#x3G%#x2G" 1 2 0 1 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 }}}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&- %'POINTSG6U7$$\"\"#!\"\"$\"#NF)7$F'$\"#IF)7$F'$\"#KF)7$F'$\"#JF)7$F'$ \"#OF)7$$\"\"%F)$\"#RF)7$$\"\"$F)$\"#MF)7$F'F@7$F'$\"#HF)7$$\"\"\"F)F3 7$F'$\"#PF)FB7$FGF-FL7$F'$\"#SF)7$F9$\"#WF)F87$F>F*7$F>$\"#QF)FTFB7$F9 FJF57$$\"\"&F)$\"#LF)FBF,7$F9F@F&FBF/F2Fgn7$FG$\"#TF)7$F'$\"#UF)FFF/F& FFF,FBFS7$F>$\"#BF)F/7$$\"\"'F)F*7$F9FU7$F>F-7$F'FUF/FI7$F'Fen-%'COLOU RG6&%$RGBG\"\"!F\\p$\"*++++\"!\")-F$6U7$$\"#9F)F07$$\"#:F)F07$FfpF37$$ \"#8F)F_o7$Ffp$\"#GF)7$FjpF]q7$$\"#;F)Fen7$$\"#5F)$\"#CF)7$FjpFD7$Fcp$ \"#FF)7$Fdq$\"#?F)7$FfpF-7$Fdq$\"#AF)7$FcpFDFhq7$FcpF3F_r7$FdqFjq7$Ffp Far7$$\"#6F)$\"#DF)7$$\"#=F)F0F_q7$FfpFjr7$$\"#7F)F]qFhq7$FcpF-7$FcpF] q7$$\"#F)Fjq7$$\"#@F)F-7$F]sFD7$FarF-F ^u7$FfsFjrFau7$F]sFjr7$FjrF67$F]rF0F[uF^u7$F]rFjr7$FfqF]q7$F_oF07$F]sF -7$FarFU7$F_oFjsFfrFiu7$F]rF]qF]v7$F]sFjq7$F_uFenF\\s7$F]sF]qFju7$F_uF ]q7$FaqF-7$F\\uF]q7$F]rFU7$FarF]qF\\q7$FcpFjs7$F_oF-7$FfqF@7$F]sF3Fju7 $F_uF37$FfqF37$F_oF3F[uFiuFjtFgv7$F\\uFjr7$F]rF-7$F_oF@Fju-Fio6&F[pF]p F\\pF\\p-%+AXESLABELSG6$%#x4G%#x2G" 1 2 0 1 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 }}}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'POINTSG6U7$$\"\"#!\"\"$\"#9F)F&7$F'$\"#8F)7$F'$\"#:F )F&7$$\"\"%F)$\"#F)F=7$F3F>F/F&F=F=FGF:F&F:FDF,F:F,F/7$F8F-FVF,7$$\"\"' F)F>7$F3FSF7F=F&F/F&-%'COLOURG6&%$RGBG\"\"!Fin$\"*++++\"!\")-F$6U7$F*$ \"#ZF)7$F0$\"#XF)7$F0$\"#\\F)7$F-$\"#SF)7$F0$\"#YF)7$F-Fco7$F>F`o7$FM$ \"#LF)7$F-F\\p7$F*$\"#RF)7$FM$\"#NF)7$F0$\"#UF)7$FMFioF_o7$F-$\"#OF)7$ F*$\"#WF)Fbo7$FM$\"#TF)Fbo7$FBFep7$$\"#=F)$\"#[F)FhoFeo7$FEF`o7$F-$\"# VF)Faq7$F*F[r7$F5$\"#]F)FboFgp7$FB$\"#QF)7$FM$\"#PF)7$FEFep7$F>$\"#^F) Fbo7$F>Fco7$F0F`o7$F-Fbq7$F-FeqFho7$FEFbq7$F*F\\p7$FEFioF`p7$F-F[q7$FE F[qFfsF^r7$FB$\"#IF)Fbs-Ffn6&FhnFinFinFin-F$6U7$$\"#DF)$\"#gF)7$FSF]s7 $$\"#@F)$\"#fF)7$Fiq$\"#cF)7$$\"#AF)$\"#eF)7$Fft$\"#mF)7$F5Fco7$Fiq$\" #jF)7$FiqF`u7$F`t$\"#hF)7$$\"#?F)F]s7$FS$\"#`F)7$Fft$\"#bF)7$F^vFcr7$$ \"#CF)F]s7$$\"#BF)Fav7$FiqFdv7$F^u$\"#nF)7$F[w$\"#pF)7$F0Fcr7$F[w$\"#d F)7$F^vFfo7$F^vF_w7$FiqFfo7$FftFfw7$FiqFbtFhqFjw7$FftF[u7$F>F`u7$FSF[v 7$F^v$\"#kF)7$F^uF[u7$F0F]s7$F*F[u7$F[wF[v7$FhvF[uF]wFhq7$Fft$\"#aF)Fg x7$F[wF]sFdt7$F[wFht7$F`tFfw7$F[w$\"#_F)7$FSFcr7$F^vF_y7$F[wFix7$FiqF] s-Ffn6&FhnFjnFinFin-%+AXESLABELSG6$%#x4G%#x3G" 1 2 0 1 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "2 6 0" 43 }{VIEWOPTS 1 1 0 1 1 1803 }