Carré Latin 12 colonnes 20 lignes

[Marius19]

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]

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]

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

 

[Marius19]

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 !

 

[pierrejean]

Re : Carré Latin 12 colonnes 20 lignes

Bonjour Marius

Salut Modeste
Salut JC

Un essai

 

[pierrejean]

Re : Carré Latin 12 colonnes 20 lignes

Re

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

 

[ROGER2327]

Re : Carré Latin 12 colonnes 20 lignes

Bonsoir à tous

Un autre essai :​

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

 

[Modeste geedee]

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

 

[Marius19]

Re : Carré Latin 12 colonnes 20 lignes

Un grand merci à vous tous, j'ai maintenant un fichier interactif qui me remplira aléatoirement mes conditions, ce qui est parfait !!!

Merci beaucoup.

Marius

 

[Modeste geedee]

Re : Carré Latin 12 colonnes 20 lignes

Bonsour®

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