How can I have a 3d plot rotate? 

Am I using map correctly here?  And is this a good way to vary the size of points for a set of data?

a:=[[1,1,1],[2,2,1],[3,4,4.5],[2,1,2.4]]

b:=map(a->[a[1],a[2]],a)

c:=ListTools[Flatten](map(a->[a[3]],a))

d:=seq(pointplot(b[i],symbolsize=c[i]*10),i=1..nops(b))

display(d);

I have a set of points and 2 questions

Each point has different values associated with them.  I want each value of the points to be displayed as a specific symbolsize.  The only way I could figure out how to do that was to create a list of the points of one value and set it at a specific size, for example like this.

Suppose pointset a has value 1
a:=[[1,2],[3,4],[5,6],[4,4]]

and suppose pointset b has value 2
b:=[[2,2],[3,3],[4,4],[2,3]]

I think the only way to do what I want is this

Maple carries digits through based on the digits or precision you have preset.  Is the calculation slowed down any if you have 7 trailing 0's as opposed to 100 trailing 0's? 

a:=["34mt5","tru532","64E22N"]

I thought this command worked on Lists.

Select(HasDigit,a)
    Error, (in StringTools:-Select) second argument must be a string

So then I thought maybe map might work

map(HasDigit,b)
     [true,true,true]

okay closer. 

Select(map(HasDigit, c), c)
     Error, (in StringTools:-Select) second argument must be a string

Can't figure out how to get around that string problem