Question: Graph the 649 as a set of single numbers

I decided to graph the 649 as a set of single numbers just for fun.  However with my code at 4 numbers Maple 12 stops responding the memory is at 1426 M and 337 sec.   Most likely better with Maple 15, but probably a memory issue after all plotting 49*48*47*46*45*44 = 10068347520 points is a lot of points.

Here is what I have for the first three numbers.


a:=table():
l:=1:
for i from 1 to 49 do
  for j from 1 to 49 do
   for k from 1 to 49 do
       if i<>j and i<>k and j<>k then a[l]:=parse(cat(i,j,k)): l:=l+1: end if:
     end do:
  end do:
end do:

b:=convert(a,list):

with(plots):

listplot(b,style=point,symbol=point)

and the similar code for 4 where it hangs


a:=table():
l:=1:
for i from 1 to 49 do
  for j from 1 to 49 do
   for k from 1 to 49 do
     for m from 1 to 49 do
       if i<>j and i<>k and i<>m and j<>k and j<>m and k<>m then a[l]:=parse(cat(i,j,k)): l:=l+1: end if:
      end do:
   end do:
  end do:
end do:

b:=convert(a,list):

with(plots):

listplot(b,style=point,symbol=point)

 

Please Wait...