{VERSION 6 0 "IBM INTEL LINUX" "6.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{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 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 47 "MapleTypes922.mws\nThu Sep 22 07:50:02 MDT 2005\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "r estart;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 36 "Some housekeeping \"with\" statements:" }}{PARA 0 "" 0 " " {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "with(plot s, display);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 " " {TEXT -1 39 "Here we look at some Maple data types: " }}{PARA 0 "" 0 "" {TEXT -1 53 " range, \n sequence,\n list, \n \+ set." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "dwim := 6;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 68 "## ##################################################################" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "Mrange := -5..dwim; " } {TEXT -1 11 "Maple Range" }{MPLTEXT 1 0 32 " \n-22/7..exp(4);\n-dwim.. dwim^2; " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "evalf(%); \n10 ..-9; \nnerk := plot(t -> t^2/5, Mrange): \ndisplay(nerk);" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 72 "################################## ######################################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "Mseq := eenie, meenie, meinie, moe; " }{TEXT -1 14 " Maple Sequence" }{MPLTEXT 1 0 2 " \n" }{TEXT -1 0 "" }{MPLTEXT 1 0 31 "Mseq[3]; \nMseq[0]; \nMseq[12];" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 77 "############################################################### ##############" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "Mlist := \+ [J,A,S,O,N]; " }{TEXT -1 10 "Maple List" }{MPLTEXT 1 0 28 " \nMlis t[3]; \nMlist[2..4];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "op (Mlist); " }{TEXT -1 10 "A Sequence" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "nops(Mlist);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 74 " ###################################################################### ####" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "Mset := \{is, are, \+ was, were, have, has, had\}; " }{TEXT -1 9 "Maple Set" }{MPLTEXT 1 0 1 "\n" }{TEXT -1 0 "" }{MPLTEXT 1 0 12 "Mset[4]; " }{TEXT -1 19 "Re peated Executions" }{MPLTEXT 1 0 15 "\nMset[1..3]; " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "Nset := \{1,2,7,have,have,3,5,5,5,are,2,2,is,7,3,8,3, 9,3\};" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "Mset intersect Ns et;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 74 "########################## ##############################################\n " }}{PARA 0 "" 0 "" {TEXT -1 20 "Maple Sequence Stuff" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }} {PARA 0 "" 0 "" {TEXT -1 73 "######################################### ################################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "Mseq;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "me mber(meenie, Mseq);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "memb er(meenie,[Mseq]); member(tweedle, [Mseq]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "seq(j, j=Mrange);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "MSeq := %; " }{TEXT -1 19 "A BAD variable name" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "MSeq, Mseq; " }{TEXT -1 11 "Concatenate" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "%[10];" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "MSeq := MSeq, 729; " } {TEXT -1 6 "Append" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "MSeq \+ := 1024, MSeq; " }{TEXT -1 7 "Prepend" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "seq(x^3-25, x=2..5);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "seq(x^3-25, x= 8..3); " }{TEXT -1 14 "Empty Sequence" }{MPLTEXT 1 0 19 " \+ " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "poo := NULL;" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "poo := poo, 34,-9;" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "seq( ithprime(i), i=1..15); " }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 16 "Random Squences:" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "randomize();" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 24 "seq( rand(), n=1..20); " }{TEXT -1 31 "Twelve-digi t positive integers." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "seq ( rand()/10^11, n=1..20);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalf(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "Katrina := se q( floor( rand()/10^11 ), n=1..20);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "\{%\}; " }{TEXT -1 43 "Use of the set type to extirpa te duplicats." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "tweet := r and(Mrange); " }{TEXT -1 21 "Generates a procedure" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "tweet();" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Birdie := seq( tweet(), i=1..10);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 68 "################################################# ###################" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 " " {TEXT -1 17 "Maple List Stuff\n" }}{PARA 0 "" 0 "" {TEXT -1 69 "#### #################################################################" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "op(Mlist); nops(Mlist);" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "nops(MSeq); " }{TEXT -1 33 "\"nops\" doesn't apply to sequences" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "member(N, Mlist);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "PT := [3, 3^2-4];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "radius := 1/5; " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "D1 := plottools[disk](PT, radius, colour=red): displ ay(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "cons := [nerk, D1 ]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "plots[textplot]([2,2, \"Wow!\"]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "cons := [op( cons), %]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "plots[textplo t]([op(PT),\"PT here!\"], align=\{BELOW,RIGHT\}):" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 25 "cons := [op(cons), %]: " }{TEXT -1 60 "If \+ we move PT somewhere else, then the PT label will follow." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "display(cons);" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 34 "display(cons,scaling=CONSTRAINED);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "map( t -> t^3, Mlist);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Eagle := map( t -> t^2, [Bir die]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "select( x -> x > \+ 7, Eagle);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 72 "################### #####################################################" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 15 "Maple Set Stuff" }} {PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "op(Mset); nops(Mset);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "numtheory[factorset](144); " }{TEXT -1 20 "Like, prime factors. " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "numtheory[divisors](144 );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "member(go,Mset);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "member(was,Mset);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "\{op(Eagle)\};" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "select( x -> x > 7, %);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "select( n -> isprime(n), \{Katrina \});" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "74" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }