MapleTypes922.mws
Thu Sep 22 07:50:02 MDT 2005

>

restart;

Some housekeeping "with" statements:

>	with(plots, display);

Here we look at some Maple data types:

      range,  
     sequence,
      list,
      set.

>	dwim := 6;

####################################################################

>	Mrange := -5..dwim; Maple Range   -22/7..exp(4); -dwim..dwim^2;

>	evalf(%);   10..-9; nerk := plot(t -> t^2/5, Mrange):     display(nerk);

########################################################################

>	Mseq := eenie, meenie, meinie, moe;   Maple Sequence   Mseq[3];   Mseq[0];   Mseq[12];

Error, invalid subscript selector

Error, invalid subscript selector

#############################################################################

>	Mlist := [J,A,S,O,N];    Maple List     Mlist[3];   Mlist[2..4];

>	op(Mlist);   A Sequence

>	nops(Mlist);

##########################################################################

>	Mset := {is, are, was, were, have, has, had};   Maple Set Mset[4];     Repeated Executions Mset[1..3];

>

>	Nset := {1,2,7,have,have,3,5,5,5,are,2,2,is,7,3,8,3,9,3};

>	Mset intersect Nset;

########################################################################
 

Maple Sequence Stuff

#########################################################################

>

Mseq;

>	member(meenie, Mseq);

Error, invalid input: member expects 2 or 3 arguments, but received 5

>	member(meenie,[Mseq]);  member(tweedle, [Mseq]);

>	seq(j, j=Mrange);

>	MSeq := %;   A BAD variable name

>	MSeq, Mseq;    Concatenate

>

%[10];

>	MSeq := MSeq, 729;    Append

>	MSeq := 1024, MSeq;    Prepend

>	seq(x^3-25, x=2..5);

>	seq(x^3-25, x=8..3);   Empty Sequence

>	poo := NULL;

>	poo := poo, 34,-9;

>	seq( ithprime(i), i=1..15);

Random Squences:

>	randomize();

>	seq( rand(), n=1..20);   Twelve-digit positive integers.

>	seq( rand()/10^11, n=1..20);

>

evalf(%);

>	Katrina := seq( floor( rand()/10^11  ), n=1..20);

>	{%};   Use of the set type to extirpate duplicats.

>	tweet := rand(Mrange); Generates a procedure

>

tweet();

>	Birdie := seq( tweet(), i=1..10);

####################################################################

Maple List Stuff

#####################################################################

>	op(Mlist);  nops(Mlist);

>	nops(MSeq);   "nops" doesn't apply to sequences

Error, invalid input: nops expects 1 argument, but received 14

>	member(N, Mlist);

>	PT := [3, 3^2-4];

>	radius := 1/5;

>	D1 := plottools[disk](PT, radius, colour=red):  display(%);

>	cons := [nerk, D1]:

>	plots[textplot]([2,2,"Wow!"]):

>	cons := [op(cons), %]:

>	plots[textplot]([op(PT),"PT here!"], align={BELOW,RIGHT}):

>	cons := [op(cons), %]:    If we move PT somewhere else, then the PT label will follow.

>	display(cons);

>	display(cons,scaling=CONSTRAINED);

>	map( t -> t^3, Mlist);

>	Eagle := map( t -> t^2, [Birdie]);

>	select( x -> x > 7, Eagle);

########################################################################

Maple Set Stuff

>	op(Mset);  nops(Mset);

>	numtheory[factorset](144);   Like, prime factors.

>	numtheory[divisors](144);

>	member(go,Mset);

>	member(was,Mset);

>	{op(Eagle)};

>	select( x -> x > 7, %);

>	select( n -> isprime(n), {Katrina});

>

>