I like to add new objects, heh heh.  No, I just wanted to know why I couldn't get map to work with indicies in my loop. 

Thanks for the inputs.

I like to add new objects, heh heh.  No, I just wanted to know why I couldn't get map to work with indicies in my loop. 

Thanks for the inputs.

Can map work with such indicies?  (I see comments are not updating posts yet)

For some reason I was thinking b[i] might wipe out the position of b[i]. 

Okay, so if I change my name structure so it's

a[1]:= [[ ...

a[2]:=[[ ...

a[3]:=[[ ...

and use b[i] it still doesn't work like I thought it would. 

It appears map doesn't like variable b[i][4] and b[i][6]

 

For some reason I was thinking b[i] might wipe out the position of b[i]. 

Okay, so if I change my name structure so it's

a[1]:= [[ ...

a[2]:=[[ ...

a[3]:=[[ ...

and use b[i] it still doesn't work like I thought it would. 

It appears map doesn't like variable b[i][4] and b[i][6]

 

... In my hurry I just realized I meant a list of lists, that's why I need map.  I didn't have Maple in front of me so please excuse my mistake.  Let me try that again and elaborate on my example

a1:=[[1,2,3,4,5,6,7],[9,8,7,6,5,4,3],[4,5,4,5,4,5,4]]

a2:=[[2,3,4,5,6,7,8],[8,7,6,5,4,3,2],[3,4,3,4,3,4,3]]

a3:=[[3,4,5,6,7,8,9],[7,6,5,4,3,2,1],[2,3,2,3,2,3,2]]

So that's why the need for map.  Any ideas

I usually just open the post select and highlight the whole comments of the post -- then crtl-c (copy) open microsoft word and crtl-v (paste) into the document then save it. Graphics and everything are there. Just have to clean it up a little bit. The same operation on the old site worked slower for me but I do enjoy the faster saving to word to archive the posts however with the old primes you didn't need to clean up the pasted work.

Okay I did find it, but the site is agonizingly slow compared to the old mapleprimes. You high speed users probably don't notice it much but with my dial up connection, it is quite noticeable. And because I'm not agreeing with the layout and can't seem to adapt it's even more frustrating. Maybe I should pose a question. Why was the old mapleprimes faster and more fun to navigate than the new mapleprimes? I must be the only mapleprime user who thinks this way. Am I?

A small modification and you could watch a set of 649 numbers

histogram649 := proc (sets)
local i, a, b, c, d, aa, bb, lotto:
lotto := [seq(k, k = 1 .. 49)]:
for i to sets do
  a[i] := combinat[randcomb](lotto, 6):
  b[i] := Statistics[Histogram](a[i], frequencyscale = absolute, binwidth = 1, range = 1 .. 50):
  c[i] := [seq(op(a[j]), j = 1 .. i)]:
  d[i] := Statistics[Histogram](c[i], frequencyscale = absolute, binwidth = 1, range = 1 .. 50):
end do:
aa := plots[display](seq(b[i], i = 1 .. sets), insequence = true):
bb := plots[display](seq(d[i], i = 1 .. sets), insequence = true):
plots[display](Array([aa, bb]))
end proc:

histogram649(9) # displays 9 sets of random 649 picks

For the standard deviation
with(plots):
a := [seq(i, i = 1 .. 49)]:
b := [seq(op(randcomb(a, 6)), i = 1 .. 10)];

                 14.85123024

We can observe the convergence on larger sets

listplot([seq(Statistics[StandardDeviation]([seq(op(randcomb(a, 6)), i = 1 .. j)]), j = 1 .. 1000)])

How do I write that as a limit to infinity?

Sometimes I can search for hours and not find exactly what I was looking for because I can't think of a good key word. 

Sometimes I believe people want a quick exact answer and don't want to have to wade through tons of posts.  I have seen many new comers ask questions where similar questions have already been posted before, but I think also that this line of questioning falls under `I want an answer without having to search`

As for down votes, I don't use them.  I think they should be reserved for users who have been a mapleprimes user for 5 years or more.

Thanks, I missed that one. Had I chosen a smaller number of sets I probably would have figured something was amiss.

@John May Thanks.  I fixed it now.  I had scripts turned off on my end, which is why I didn't see a menu bar.

I had it nicely entered with spaces. Seems mapleprimes formatting is broken. Hope you can figure it out. All of my lines seem to be concatenated without returns.

@beekek 

I realize this is an old post but I didn't think it was finished properly. 

I believe beekek was looking for something like this

data := [[3, 3], [5, 20], [7, 63], [9, 144], [11, 275]]
a:=CurveFitting[Spline](data,z):
with(plots):
display([plot(a,z=0..12),pointplot(data)],view=[default,0..300]);

 

@beekek 

I realize this is an old post but I didn't think it was finished properly. 

I believe beekek was looking for something like this

data := [[3, 3], [5, 20], [7, 63], [9, 144], [11, 275]]
a:=CurveFitting[Spline](data,z):
with(plots):
display([plot(a,z=0..12),pointplot(data)],view=[default,0..300]);