kombinasyon çözümü için !lütfen yardım

[jalji]

Selamlar herkese,
Uzun bir süredir çözmeye çalıştığım fakat yapamadığım kombinasyon problrminde yardımcı olmanızı çok ama çok rica ediyorum.
Bir torbada 30 tane (1 den 30 a kadar) sayı var.Rasgele ve sırayla 14 tane sayı çekiyorum.öyle ki,Yapacağım 7 li kombinasyonda enaz bir kombinasyonunda 7 sininde doğru olduğu tüm kombinasyon listesini nasıl elde edebilirim.
kombinasyon örneği:
1 3 8 15 22 29 30
2 6 8 12 14 17 18
3 5 9 25 26 28 29
....
......
......
......
gibi giden liste.bu 7 li kombinasyonun enaz biri çekilen 14 topun içinde olmalı.İşte böyle bir soru.
Şimdiden ilginize ve yardımlarınıza teşekkür ediyorum.

 

[xternet]

Sanırım sorunuz tam anlaşılamadığı için yorum yapılmamış. Biraz daha açarsanız belki yardımcı olabilirim.

 

[mami68]

Bu eğer tombolaya benziyorsa forumda hazır dosya var,araştır.

 

[ECYavuz]

Aynı konuda benim soruma da yanıt alamadım.

 

[Zeki Gürsoy]

Sonuçları inceleyin.

Sub Rastgele()
Dim i As Byte, j As Byte, k As Byte, m As Byte, R As Byte
Dim AkSh As String, Sh As Worksheet
 
Randomize
 
AkSh = Sheets(1).Name
 
For i = 1 To 14
 
    Do Until j = 7
 
        R = Int((Rnd() * (30 - 1)) + 1)
        If WorksheetFunction.CountIf(Sheets(AkSh).Columns(i), R) = 0 Then
            j = j + 1
            Sheets(AkSh).Cells(j, i) = R
        End If
 
    Loop
 
    j = 0
Next i
 
For k = 1 To 14
    Sheets(AkSh).Columns(k).Sort Key1:=Sheets(AkSh).Cells(1, k)
Next k
 
On Error Resume Next
 
Do
    Err.Clear
    m = m + 1
    Set Sh = Worksheets.Add(After:=Sheets(Sheets.Count))
    Sh.Name = "Sonuc " & m
    If Err = 0 Then Exit Do
Loop
 
Sheets(Sh.Name).Range("a1:g14") = _
Application.Transpose(Sheets(AkSh).Range("a1:n7"))
 
Sheets(Sh.Name).Columns("a:g").AutoFit
 
End Sub

 

[jalji]

Teşekkür ediyorum sayın anemos.Eklediğim dosyada biraz daha açıklama yaptım.Rica etsem bir gözatabilirmisiniz?
Hoşçakalın.

 

[jalji]

Sayın anemos ilgili soru için yaptığınız kodları kullandım.Yeni bir dosya ekleyerek durumu izah etmeye çalıştım.Şöyleki kombinasyon (30,7) listesi içinden çekilen 14 sayı için kombinasyon (14,7) listesini nasıl bulmak?Asıl soru bu.Rasgele kombinasyon yapmak değil yani.Her yeni çekilişte 30 sayının 7 li kombinasyonu değişmiyeceğinden her çekilişte değişen 14 sayının 7 li kombinasyonunun en az ve doğru olan 1 kombinasyonu bulabilmeliyim. MinİMUM Toplam kombinasyon sayısı 594 kadar benim hesabıma göre.
C(30,7)=30!/(7!(30-7)!)=2035800
C(14,7)=14!/(7!(14-7)!)=3432

C(30,7)/C(16,7)=593
Bu 593 kombinasyonları hangileridir,Çekilişler ne olursa olsun 14 sayı için öyle bir kombinasyon listesi yapılmalıki EN AZ biri 30 un 7 li kombinasyonu içinde olabilsin.
Hoşçakalın.

 

[Zeki Gürsoy]

=KOMBİNASYON(14;7) = 3.432 dizi. Aşağıdaki prosedur, bu listeyi verecektir.

Sub Komb()
Dim X As Byte, z As Integer
Dim a As Byte, b As Byte, c As Byte, d As Byte, e As Byte, f As Byte, g As Byte
 
DoEvents
X = 14
For a = 1 To X
    For b = 1 To X
        For c = 1 To X
            For d = 1 To X
                For e = 1 To X
                    For f = 1 To X
                        For g = 1 To X
                                If a <> b And a <> c And a <> d And a <> e And _
                                        a <> f And a <> g And _
                                    b <> c And b <> d And b <> e And b <> e And _
                                        b <> f And b <> g And _
                                    c <> d And c <> e And c <> f And c <> g And _
                                    d <> e And d <> f And d <> g And _
                                    e <> f And e <> g And _
                                    f <> g Then
 
                                    z = z + 1
                                    Cells(z, 1) = a
                                    Cells(z, 2) = b
                                    Cells(z, 3) = c
                                    Cells(z, 4) = d
                                    Cells(z, 5) = e
                                    Cells(z, 6) = f
                                    Cells(z, 7) = g
                                    Application.StatusBar = "Toplam : " & z
                                    If z = Application.Combin(X, 7) Then _
                                        Exit Sub
                            End If
                        Next g
                    Next f
                Next e
            Next d
        Next c
    Next b
Next a
End Sub

 

[jalji]

İyi akşamlar sayın anemos,
Bu (14,7)=3432 kombi. listesinden 593 lük kombi listesini nasıl bulucam.Bu hala meçhul.Kombi. 30,7 listesi ile karşılaştırılıp kesişen bu 593 diziyi nasıl bulacağım.

 

[jalji]

Sayın anemos
sizden önemle rica ederek bir sorumu eklemek istiyorum.En son yaptığınız 14,7 lik kombinasyon dizisinde ,14,8 veya 15,5 gibi kombinasyonları denemek istedim fakat olmadı.vba kodları kırmızıya döndü.Acaba bunu nasıl düzenlemek için ne yapabilirsiniz,kodlarda nasıl bir değişiklik önerirsiniz.
Hoşçakalın.

 

[jalji]

Yeni farkettim sayın Anemos,
14,7 kombi. dizi sayısı doğru fakat sıralama problemi var.Bütün dizilerde 1 sayısı var.Oysa kombinasyon için 1 sayısının olmadığı dizilerde olması gerekir.Ekli dosyanın sayfa 2 sinde ve ayrıca benim düzenlediğim kodlardada var.Dosya eklemede sorun çıktı.Fakat sanırım anladınız.
Hoşçakalın.

 

[Zeki Gürsoy]

Yukarıdaki döngüler hatalıymış. Onları unutun gitsin.

Sub Komb_Son()
Dim X As Byte, z As Long
Dim a As Byte, b As Byte, c As Byte, d As Byte, e As Byte, f As Byte, g As Byte
 
X = 14
 
For a = 1 To X
    For b = a + 1 To X
        For c = b + 1 To X
            For d = c + 1 To X
                For e = d + 1 To X
                    For f = e + 1 To X
                        For g = f + 1 To X
                            z = z + 1
                            Cells(z, 1) = a
                            Cells(z, 2) = b
                            Cells(z, 3) = c
                            Cells(z, 4) = d
                            Cells(z, 5) = e
                            Cells(z, 6) = f
                            Cells(z, 7) = g
                        Next g
                    Next f
                Next e
            Next d
        Next c
    Next b
Next a
 
End Sub

 

[dafdindak]

arkadaşlar ben yeni üyeyim ve bu konuda yeniyim.
bu kodları otomatik çalıştıracak bir program lazım sanırım bana çünkü bunları nereye nasıl yazacagımı dahi bilmiyorum.
benim sorum şu 175 tane sayı var. 2li 3lü 4lü 5li......13lü 14lü 15li grupları excelde görebilir miyim.Ayrıca bu 175 sayıdan kulladıgımı çıkarıcam gruptan, yani 2 tane kullanmışsam bu seferde 173 tane sayının 1den 15e kadar gruplanmış halini görmem gerek.
sayın üstadlar yardımlarınızı bekliyorum lütfen!!!

 

[dafdindak]

sanırım bu iş imkansız bişey çünkü 147 sayı varmış toplam, bunun içinden herhangi 15 tanesi almanın 33basamaklı bir sayı kadar değişik kombinasyonu var galiba. 15tane 147yi çarpınca öle çıktı,emin de değilim dogru yaptıgıma,
excelde o kadar kombinasyonu yazacak satır ve sütun varmıki???

 

[dafdindak]

aslında benim tam aradıgım şey buda değil.hani KAKURO diye bi oyun var ona benzer bir bulmacayı çözmeme yardım edecek bir proğram lazım.
şimdi 147 adet sayı(bazıları + bazıları - ) var elimde ve istiyorumki
bu 147 sayıdan 6 tanesinin toplamı -79 olsun, bu koşulu sağlayan kaç farklı kombinasyon varsa görmek istiyorum.
yada 8 tanesinin toplamı 88 olsun,3tanesinin toplamı 162 olsun,7 tanesinin toplamı -43 olsun gibi koşulları sağlayan kombinasyonları gösterebilecek bir proğram var mı acaba dünyada???

 

[jalji]

Sayın anemos gecikmiş teşekkürümü lütfen kabul edin.İyi çalışmalar.