Carré Latin 12 colonnes 20 lignes

Marius19

XLDnaute Nouveau
Bonjour à tous,

J'ai parcouru le forum, me suis amuser à éditer le VBA de certains fichiers similaires à ma demande et rien y fait.

Je suis actuellement en parcours recherche en Master Sciences du Mouvement à l'Université de Caen.
Je souhaite faire passer 20 sujets selon 12 conditions différentes, avec un ordre bien aléatoire à chaque fois, et qu'aucune condition ne soit répétée.
J'aimerais aussi si possible que ce fichier soit extensible si j'ai la chance de faire passer plus de 20 sujets !

D'avance merci,

QUESNEY Marius
UFR STAPS Caen
M1 Recherche Biomécanique Chronobiologie.
 

Modeste geedee

XLDnaute Barbatruc
Re : Carré Latin 12 colonnes 20 lignes

Bonsour®
comme son nom l'indique un carré latin reste un carré !!!
n lignes / n colonnes

il y a déjà 7 580 721 483 160 132 811 489 280 dispositions différentes pour un carré latin d'ordre 10 !!!


essaie déja de modéliser un carré latin d'ordre 9 (nombreuses sources sur le Web exemple : sudoku)
 

JCGL

XLDnaute Barbatruc
Re : Carré Latin 12 colonnes 20 lignes

Bonjour à tous,

Bienvenue sur XLD

Enoncé un peu court et demande qui manque cruellement de fichier....

Un exemple de "carré" latin de l'ami Jean-Marie :)

A + à tous
 

Pièces jointes

  • Carre Latin.xls
    34.5 KB · Affichages: 88

Marius19

XLDnaute Nouveau
Re : Carré Latin 12 colonnes 20 lignes

L'idée c'est qu'aucune condition ne soit suivi de la même suivante.

Par exemple le carré du type
1 2 3
2 3 1
3 1 2
N'est pas interessant car il n'y a pas de randomisation.
1 3 2
2 3 1
3 1 2
C'est ce type de carré que je souhaite !

Je joint un fichier qui permetterait peut etre d'etre plus clair,

Merci !
 

Pièces jointes

  • Carrélatin à remplir.xlsx
    9.6 KB · Affichages: 61

pierrejean

XLDnaute Barbatruc
Re : Carré Latin 12 colonnes 20 lignes

Re

Version qui permet la modification en + ou en - des sujets et des conditions
 

Pièces jointes

  • Carrélatin à remplir.xlsm
    21.8 KB · Affichages: 64
  • Carrélatin à remplir.xlsm
    21.8 KB · Affichages: 62
  • Carrélatin à remplir.xlsm
    21.8 KB · Affichages: 56

ROGER2327

XLDnaute Barbatruc
Re : Carré Latin 12 colonnes 20 lignes

Bonsoir à tous


Un autre essai :​
VB:
Sub test2()
'La référence à Microsoft Scripting Runtime (scrrun.dll) doit être disponible.
Dim i&, j&, c&, u$, ITM(), DIC As New Dictionary
Dim plg As Range, dst As Range, n&, k&
'
    Set plg = Range("O2:O13") '*** (données)
    Set dst = Range("A1") '*** (début de tableau)
    n = 20 '*** (nb. de sujets)
    k = 100000 '*** (protection contre le bouclage éternel)

    c = plg.Rows.Count
    dst.Resize(n, c).Offset(1, 1).ClearContents
    ITM = WorksheetFunction.Transpose(plg.Value)
    Randomize
    Do
        For i = c To 1 Step -1
            u = ITM(i)
            ITM(i) = ITM(1 + Int(i * Rnd()))
            ITM(1 + Int(i * Rnd(0))) = u
        Next
        u = Join(ITM, "/")
        If DIC.Exists(u) Then
            k = k - 1
        Else
            j = j + 1
            DIC.Add u, Empty
            dst.Resize(1, c).Offset(j, 1).Value = ITM
        End If
    Loop Until k = 0 Or j = n
End Sub



ROGER2327
#6323


Dimanche 22 Sable 140 (César -Antechrist - fête Suprême Première seconde)
2 Nivôse An CCXXI, 9,9037h - houille
2012-W51-6T23:46:08Z
 

Pièces jointes

  • XLD_198156_Rectangle_pas_latin.xlsm
    19.1 KB · Affichages: 53

Modeste geedee

XLDnaute Barbatruc
Re : Carré Latin 12 colonnes 20 lignes

Bonsour®
L'idée c'est qu'aucune condition ne soit suivi de la même suivante.

Par exemple le carré du type
1 2 3
2 3 1
3 1 2
N'est pas interessant car il n'y a pas de randomisation.
1 3 2
2 3 1
3 1 2
C'est ce type de carré que je souhaite !

il faut appeler un chat un chat !!!
1 3 2
2 3 1
3 1 2
n'est pas un carré latin !

Un carré latin est un tableau carré de n lignes et n colonnes remplies de n éléments distincts dont chaque ligne et chaque colonne ne contient qu'un seul exemplaire.

carré latin d'ordre 12
de façon triviale à partir d"un carré latin original,
par rotation des lignes ET/OU des colonnes on peut obtenir un autre carré latin.
si ces rotations sont aléatoires on obtient alors un carré latin aléatoire
 

Pièces jointes

  • Carrélatin ordre 12.xlsm
    36.1 KB · Affichages: 66
  • Carrélatin ordre 20.xlsm
    44.4 KB · Affichages: 48
Dernière édition:

Modeste geedee

XLDnaute Barbatruc
Re : Carré Latin 12 colonnes 20 lignes

Bonsour®

:rolleyes: L'énigme d'Einstein, carré latin d'ordre 5
Cette énigme a été posée par A. Einstein au début du siècle dernier.
Selon lui 98% des gens sont incapables de la résoudre.
Faites-vous parti des 2% qui sont capables ?

Les faits:
1. Il y a cinq maisons de 5 couleurs différentes.
2. Dans chaque maison vit une personne de nationalité différente.
3. Chacun des 5 propriétaires boit un certain type de boisson, fume un certain type de cigares et garde un certain animal domestique.

La question: Qui a le poisson?

Quelques indices:
1. L'Anglais vit dans une maison rouge.
2. Le Suédois a des chiens comme animaux domestiques.
3. Le Danois boit du thé.
4. La maison verte est à gauche de la maison blanche.
5. Le propriétaire de la maison verte boit du café.
6. La personne qui fume des Pall Mall a des oiseaux.
7. Le propriétaire de la maison jaune fume des Dunhill.
8. La personne qui vit dans la maison du centre boit du lait.
9. Le Norvégien habite la première maison.
10. L'homme qui fume les Blend vit à côté de celui qui a des chats.
11. L'homme qui a un cheval est le voisin de celui qui fume des Dunhill.
12. Le propriétaire qui fume des Blue Master boit de la bière.
13. L'Allemand fume des Prince.
14. Le Norvégien vit juste à côté de la maison bleue.
15. L'homme qui fume des Blend a un voisin qui boit de l'eau.

solution :
couleur
jaune
bleu
rouge
vert
blanc
nationalité
norvégien
danois
anglais
allemand
suédois
boisson
eau
thé
lait
café
bière
cigare
Dunhill
Blend
Pall
Mall

Prince
Bluemaster
animal
chats
cheval
oiseaux
poisson
chiens
 
Dernière édition:

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 871
Messages
2 093 102
Membres
105 627
dernier inscrit
jean-marc.brillant