{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 "Times" 1 14 0 0 0 0 2 2 2 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 "Error" 7 8 1 {CSTYLE "" -1 -1 "" 0 1 255 0 255 1 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 }{PSTYLE "R3 Font 0" -1 256 1 {CSTYLE "" -1 -1 "Helvetica" 1 14 0 0 0 0 2 1 2 0 0 0 0 0 0 } 0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 2" -1 257 1 {CSTYLE "" -1 -1 "Courier" 1 14 0 0 0 0 2 2 2 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 95 "# SET data type ---- a sequence between braces----No Duplicates------No control on the ord ering" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "s1:= \{0,1,2,3\};" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#s1G<&\"\"!\"\"\"\"\"#\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "s2:=\{8,3,8,9,0\};" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#s2G<&\"\"!\"\"$\"\")\"\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "# set operators: union, minus, intersect, member" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 17 "s3:= s1 union s2;" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#>%#s3G<(\"\"!\"\"\"\"\"#\"\"$\"\")\"\"*" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 15 "member(2, s3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# %%trueG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "member(2, s3, 'p os');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%trueG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "pos;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"$ " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "?powerset" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "# load the combinat package" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "with( combinat):" }}{PARA 7 "" 1 "" {TEXT -1 37 "Warning, new definition for fibonacci" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "powerset(3); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<*<\"<#\"\"\"<%F&\"\"#\"\"$<$F(F)< #F)<$F&F)<#F(<$F&F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "powe rset(s1);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#<2<\"<&\"\"!\"\"\"\"\"#\" \"$<#F'<%F'F(F)<$F(F)<#F)<$F'F)<#F(<$F'F(<%F&F(F)<$F&F)<%F&F'F)<#F&<$F &F'<$F&F(<%F&F'F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 28 "# select elements from a set" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 " select(isprime, s1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<$\"\"#\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "s1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<&\"\"!\"\"\"\"\"#\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "select(type, s1, 'nonnegint');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<&\"\"!\"\"\"\"\"#\"\"$" }}}{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 87 "# LIST data type ------seq in brackets---- allows \+ duplicates ----ordering is preserved" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "list:= \+ [1, 0, 2, 4, 0];" }}{PARA 8 "" 1 "" {TEXT -1 56 "Error, attempting to \+ assign to `list` which is protected" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "l1:= [1, 0, 2, 4, 0];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#l1G7'\"\"\"\"\"!\"\"#\"\"%F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "l2:=[x$5];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#l2G7 '%\"xGF&F&F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 70 "# member, append, insert, concatenate, replace, sort, rotate, reverse" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 21 "member(0, l1, 'pos');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%trueG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "l1[3];" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "[l2[2..3], l1];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7 $7$%\"xGF%7'\"\"\"\"\"!\"\"#\"\"%F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "# op : extract operands from an expression" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "[l2[2..3], op(l1)];" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#7(7$%\"xGF%\"\"\"\"\"!\"\"#\"\"%F'" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "subs( 0 = alpha, l1);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#7'\"\"\"%&alphaG\"\"#\"\"%F%" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "#rotate left one position" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "[ l1[2..nops(l1)], l1[1]] ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$7&\"\"!\"\"#\"\"%F%\"\"\"" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "#### ASK them to do it ----- -- reverse the list" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "l1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7'\"\"\"\"\"!\"\"#\"\"%F%" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "[seq ( l1[nops(l1) -i +1], \+ i=1..nops(l1) ) ];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7'\"\"!\" \"%\"\"#F$\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "## defi ne a Maple function" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "rotateleft := proc(l::list) \n [ op(l[2..nops(l) ]), l[1] ]\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "rotateleft(l1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #7'\"\"!\"\"#\"\"%F$\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "# ARRAYS --- vectors --- matrices" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "#vector v" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "v:= array ( [a, b, c]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"vG- %'vectorG6#7%%\"aG%\"bG%\"cG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "M:= array( [ [a, b], [c, d] ] );" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"MG-%'matrixG6#7$7$%\"aG%\"bG7$%\"cG%\"dG" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "# actually v is a vector and M is a matrix" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "type(v, ' vector'); type(M, 'matrix'); type(v, 'array');" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#%%trueG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%tru eG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%trueG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 87 "# NOTE: Maple considers vectors as column vector s even if they are printed horizontally" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 88 "# you c an use matrix and vector from the linalg package (use even the s ame format)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(linalg):" }}{PARA 7 "" 1 "" {TEXT -1 37 "Warning, new definition for fibonacci" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "matrix(3,3, 0); # the zero matrix" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7%7%\"\"!F(F(F'F'" }}} {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 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 9 "# CONVERT" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "# convert a seq int o a set or list -------> easy " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "# more sophisticated -----" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "convert ( [a, b, c], 'vector');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'vectorG6#7%%\"aG%\"bG%\"cG" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 26 "l2:= [1, 2, 4, 5, 6, 7];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#l2G7(\"\"\"\"\"#\"\"%\"\"&\"\"'\"\"(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "convert(l2, 'set');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<(\"\"\"\"\"#\"\"%\"\"&\"\"'\"\"(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "l2:= convert( linalg[matrix] (2, 3, l2), 'listlist');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#l2G7$7%\"\" \"\"\"#\"\"%7%\"\"&\"\"'\"\"(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "l3:=op(l2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#l3G6$7%\"\"\" \"\"#\"\"%7%\"\"&\"\"'\"\"(" }}}}{MARK "74" 0 }{VIEWOPTS 1 1 0 1 1 1803 }