8008 satırdan benzersiz 8 satırı seçmek

[Muhammet Okumuş]

Arkadaşlar merhaba,
1-16 arası 6'lı şekilde sıralanmış 8008 kombinasyon var. Bu kombinasyonlardan aynı sayılar aynı satırda denk gelmeyecek şekilde 8 tane sıralamam gerekiyor. Her defasında farklı kombinasyonlar vermeli.
1-2-3-4-5-6 gelmiş ise bu 6 sayı diğer 7 kombinasyonda aynı satırda yer almamalı.

 

[Muhammet Okumuş]

Sanırım 8 satırın bu koşullarda çıkması imkansız.

 

[cems]

Sub benzersizkombinasyonlaruret()
Dim combinations(1 To 8, 1 To 6) As Integer
Dim usedNumbers As String
Dim i, j, num As Integer

' Kullanılan sayıları saklamak için bir dize oluşturuyoruz
usedNumbers = ","

' Her bir kombinasyon için döngü
For i = 1 To 8
' Her bir kombinasyondaki sayılar için döngü
For j = 1 To 6
' Benzersiz bir sayı üretmek için döngü
Do
num = Int((16 - 1 + 1) * Rnd + 1)
Loop While InStr(usedNumbers, "," & num & ",") > 0

' Kullanılan sayıları güncelliyoruz
usedNumbers = usedNumbers & num & ","

' Kombinasyona sayıyı ekliyoruz
combinations(i, j) = num
Next j
Next i

' Kombinasyonları ekrana yazdırıyoruz
For i = 1 To 8
For j = 1 To 6
Debug.Print combinations(i, j);
Next j
Debug.Print
Next i
End Sub

Bu kodu denedim ancak kombinasyon kontrolü için sürekli geriyoklama yüzünden fan fena çalıştı ve işlemci şişti, excel donduğundan cihazımın zarar görmemesi için dosyayı kapattım. Sanıyorum daha guclu islemcisi olan bir cihazda çalışır zira bende hata vermedi ama ısınmaya sebep oldu. Tam ne sonuç verir ona şahit olamadım.

 

[Muhammet Okumuş]

Cevabınız için teşekkür ederim. Aynı 3 sayı ikinci defa aynı grupta yer almayacak şekilde kaç kombinasyon yapılabilir.
1-2-3-4-5-6
1-2-7-8-9-10
1-3-7-11-12-13
1-4-8-11-12-13
....

 

[cems]

Sayın Okumuş
Kullandığım cihaz yeterli değil ısınıyor ve kilitleniyor

 

[Muzaffer Ali]

Merhaba.

Yanlış örneği vermişsiniz fakat doğru örneği vermemişsiniz.
Aşağıdaki örnek doğru mu ve bu şekilde sıralı olsa olur mu?

 

[Muhammet Okumuş]

1 ve 2 aynı satırda 3 defa bulunmuş. Aynı 2 sayı aynı grupta 2den fazla yer almamalı.

 

[Korhan Ayhan]

Oluşacak 8 satırlık listedeki her sayı toplamda 3 kez mi tekrarlanacak?

 

[Muhammet Okumuş]

48 sayı secileceginden her sayidan 3er tane olmali. Bu 8 satirin ayni satirinda iki sayi en fazla 2 defa bulunmali.

 

[Muhammet Okumuş]

Oluşacak 8 satırlık listedeki her sayı toplamda 3 kez mi tekrarlanacak?

Evet Korhan Bey.

 

[Korhan Ayhan]

Birşeyler yapmaya çalıştım. Kontrol edersiniz..

 

[Muhammet Okumuş]

Korhan Bey, cevabınız için çok teşekkür ederim. Denemeler yaptım birden fazla 3lü eşleme hiç gelmedi.