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]);

 

Did you catch this one.  It appears more real than just a glitch.   

http://www.mapleprimes.com/questions/89420-Is-Histogram-Default-Still-Displayed-Incorrectly-In-Maple-14

It displays 13 hours ago on the recent page

but yet the last action comment was 3 hours ago. 

Will this be fixed soon?

I should have added more info

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

b := Histogram(a, binwidth = 1, frequencyscale = absolute)

op(b)

   POLYGONS([[1., 0], [2., 0], [2., 1], [1., 1]], [[2., 0], [3., 0], [3., 0], [2., 0]], [[3., 0], [4., 0], [4., 1], [3., 1]], [[4., 0], [5., 0], [5., 2], [4., 2]], [[5., 0], [6., 0], [6., 1], [5., 1]], [[6., 0], [7., 0], [7., 1], [6., 1]], [[7., 0], [8., 0], [8., 1], [7., 1]], [[8., 0], [9., 0], [9., 4], [8., 4]], COLOUR(HSV, .5476190475, 1.000000000, .7000000000))

nops(op(1,b))
               9

So now I found a way to extract it into a list

g := [seq(op([1, i], b), i = 1 .. nops(op(1, b))-1)]

g := [[[1., 0], [2., 0], [2., 1], [1., 1]], [[2., 0], [3., 0], [3., 0], [2., 0]], [[3., 0], [4., 0], [4., 1], [3., 1]], [[4., 0], [5., 0], [5., 2], [4., 2]], [[5., 0], [6., 0], [6., 1], [5., 1]], [[6., 0], [7., 0], [7., 1], [6., 1]], [[7., 0], [8., 0], [8., 1], [7., 1]], [[8., 0], [9., 0], [9., 4], [8., 4]]]

And now I'm trying to take the max in the second position of each set of sets. 
So the 2nd position max of [[1., 0], [2., 0], [2., 1], [1., 1]] and the max of the next set ... etc..

And I should end up with  1,0,1,2,1,1,1,4

How can I do that?

Okay, I've submitted an SCR. 

Okay, I've submitted an SCR. 

Check this post I recently commented to http://www.mapleprimes.com/questions/89335-Why-Are-Histogram-Bar-Widths-Not-Consistent

Last action says 2 hours ago but yet my commented post was 49 minutes ago.  And therefore the last action date value is not being correctly updated.

Thanks.  Looks good. 

Now if I had two different datasets, I would need to manually create a few intermediary datasets and plot them in sequence if I wanted to observe something similar.

Thanks.  Looks good. 

Now if I had two different datasets, I would need to manually create a few intermediary datasets and plot them in sequence if I wanted to observe something similar.