Please Confirm 369,569

[NotLKH]

Are there 369569 subsets of 6 numbers that add to 150, from
a set of 61 numbers, range = 1 to 61?

ie...
Given:

Dim MySourceArr() As Integer
ReDim MySourceArr(60)
For MyI = 0 To 60
    MySourceArr(MyI) = MyI + 1
Next MyI

and:

Dim My4_arr() As Integer
ReDim My4_arr(5)

How many combinations of 61 elements, taken 6 at a time add to 150, if the 61 elements are the numbers 1 thru 61?

I've got an app that calculates 369569 of them over 71 seconds, and I'm wondering if it is correct?

-Lou

[jemidiah]

With that radom sampling method I put in your other post, I got around 350,000,000 of them, although that is with the ability to reuse numbers in each series (ie. 30, 30, 10, 10, 30, 40)

[NotLKH]

Originally posted by jemidiah
With that radom sampling method I put in your other post, I got around 350,000,000 of them, although that is with the ability to reuse numbers in each series (ie. 30, 30, 10, 10, 30, 40)

Then that is not a combination, but thanks anyways!

[jemidiah]

Most people use permutation and combination interchangeably, although I should've known you wouldn't after remembering you actually do post in the maths forum

[transcendental]

Yes, it is correct. I also got 369569 using C++. But I got it under 10 seconds on a AMD Athlon 2000+ (Actual speed: 1667Mhz)

[NotLKH]

If you see my thread in General VB Questions, Mine is now down to about 4 seconds. But Thanks for the confirmation! I don't have to worry now that my spaghetti code is missing a few combinations.


-Lou

[sql_lall]

Hey, just wondering,
isn't 1 to 62 = 62 numbers, not 61

1 to 1 = 1 number
1 to 2 = 2 numbers
...
1 to 62 = 62 numbers?

From ur source i'm guessing u mean 1 to 61...

[NotLKH]

Good Catch!
Yep! Meant 61!

Thanks
-Lou