أريد كود في احتمالات تشغيل عدد معين من المولدات مع بعضها

السلام عليكم ...

ربما انت بحاجة لإيجاد كل المجموعات الجزئية من مجموعة المولدات .... ثم تحسب مجموع القدرات في تلك المجموعة الجزئية ..مثلا لو كانت المولدات هي :

{1, 2, 3, 4, 5}

سيكون الخرج :

{1,}=1
{2,}=2
{1,2,}=3
{3,}=3
{1,3,}=4
{2,3,}=5
{1,2,3,}=6
{4,}=4
{1,4,}=5
{2,4,}=6
{1,2,4,}=7
{3,4,}=7
{1,3,4,}=8
{2,3,4,}=9
{1,2,3,4,}=10
{5,}=5
{1,5,}=6
{2,5,}=7
{1,2,5,}=8
{3,5,}=8
{1,3,5,}=9
{2,3,5,}=10
{1,2,3,5,}=11
{4,5,}=9
{1,4,5,}=10
{2,4,5,}=11
{1,2,4,5,}=12
{3,4,5,}=12
{1,3,4,5,}=13
{2,3,4,5,}=14
{1,2,3,4,5,}=15

و إليك الكود :

Function CreateSubsets(Of T)(ByVal originalArray() As T) As List(Of T())

        Dim subsets As New List(Of T())

        For i As Integer = 0 To originalArray.Length - 1

            Dim subsetCount As Integer = subsets.Count
            subsets.Add(New T() {originalArray(i)})

            For j As Integer = 0 To subsetCount - 1
                Dim newSubset(subsets(j).Length) As T
                subsets(j).CopyTo(newSubset, 0)
                newSubset(newSubset.Length - 1) = originalArray(i)
                subsets.Add(newSubset)
            Next

        Next

        Return subsets

    End Function

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim array() As Integer = {1, 2, 3, 4, 5}
        Dim subsets As List(Of Integer()) = CreateSubsets(array)

        For Each subset As Integer() In subsets
            Console.Write("{")
            For Each i As Integer In subset
                Console.Write(i & ",")
            Next
            Console.Write("}=")
            Dim sum As Integer = subset.Sum()
            Console.WriteLine(sum)

        Next

    End Sub

المصدر :

How to make all possible sum combinations from array elements in VB  رابط .