# Question:Graph the 649 as a set of single numbers

## 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)

﻿