De la comparaison

Bonjour à tous(tes), le soucis:
soit un tableau de valeurs entre 28 et 95 (tableau: z[ ]
les valeurs ne se suivent pas (paramètres de notes midi)
un dispositif en extrait 6 aléatoires
qui sont mises sans un tableau t[ ]
Soit par ailleurs 7 combinaisons: (1;2;3;4;5;6;7) de valeurs de z[ ]
nommées: a;b;c;d;e;f pour l'explication ci-dessous
telles que a:
a2 =a1+7; a3=a2+7; a4=a3+7; a5=a4+7;a6=a5+7
b2 =b1+7; b3=b2+7; b4=b3+7; b5=b4+7;b6=b5+7
c2=.....ext..
.....g6=g5+7
je voudrais tester si l'une des valeurs de t[ ] est égale à l'une des valeurs des 7 combinaisons
Si = Alors mettre le nom (1;2;3;4;5;6;7) de la combinaison dans la variable: r
Pour faire fonctionner j'ai fait avec du "si alors" par bottes de 7; mais je pressens qu'il doit y avoir moyen de faire ça dans une boucle; pour l'instant rien ne marche je me perd dans le raisonnement, sans parler des soucis de dépassements.
A l'aide les gros cerveaux please merci.

salut

ton résonnement est un peu confus
honnêtement j'ai pas tout compris

donc tu as un tableau de 67 valeurs différentes [28..95]
tu as 7 Combinaisons 1..7
ces combinaison on 7 valeurs a;b;c;d;e;f;g comprise entres [28..95]
les combinaison sont créer de tels façon que
a2 = a1+7;
a3 = a2+7;
a4 = a3+7;
a5 = a4+7;
a6 = a5+7;

ce qui implique que le choix de la première valeur se réduit a la borne supérieur 95-42 = 53
=> 53+7*6 = 95

tu doit donc choisir aléatoirement les première valeur entre [28..53]

Code:

---

1 2 3 4 5 6 7

Pour toutes les combinaison Faire Combinaison[x][1] = Random(28..53) Pour Id = 2 jusqu'a 7 Faire Combinaison[x][ID] = Combinaison[x][ID-1]+7 FinFaire FinFaire

---

voila a peu prés ce que j'ai compris

J'y suis arrivé en mettant les combinaisons en chaînes puis en tableaux et en traitant les notes dès leur génération
Chaînes <---> Tableaux, c'est l'arme fatale

Dans tes données, quand tu connais a1, tu connais aussi a2 et les suivants.

Ici, en testant si modulo(a1-b1,7) = 0, ça fait un seul test, et ça permet presque de savoir si une des valeurs a1,a2...a6 est égale à une des valeurs b1,b2,...b6

Reste à gérer ce qui se cache derrière le mot "presque". Si modulo(a1-b1,7) = 0, il faut alors tester la différence entre a1 et b1. Si cette différence est supérieure à 35, les 2 séries ne se superposent pas, et si cette différence est inférieure ou égale à 35, les 2 séries ont au moins un nombre en commun

Code:

---

1 2 3 4 5 6

si modulo(a1-b1,7) = 0 _et_ abs(a1-b1) <=35 alors premiere_valeur_commune = max(a1,b1) sinon ... pas de valeur en commun fin

---

Reste à boucler pour comparer (a1,c1), (a1,d1) etc etc

@: tbc92: Cite: "Dans tes données, quand tu connais a1, tu connais aussi a2 et les suivants."

Hélas non, car les # et les bémols ne sont pas distribués équitablement.
Mais en traitant les notes dès la génération j'élimine un tableau
et ça se réduit à ça:

Code:

---

1 2 3 4 5 6

pour a=1 to 7 //noms des combinaisons pour b=1 to 6 //valeurs si note=comb(a,b) alors r=a b suivant a suivant

---

Bonjour, :D

Pour autant que j'ai pu comprendre tes précisions, les outils proposés sont-ils appropriés ?

Le premier tableau mentionné:

Citation:

---

Envoyé par valentin03

... soit un tableau de valeurs entre 28 et 95 (tableau: z[ ]
les valeurs ne se suivent pas (paramètres de notes midi) ...

---

fait penser à une mélodie, tandis que les combinaisons qui viennent ensuite:

Citation:

---

Envoyé par valentin03

... Soit par ailleurs 7 combinaisons: (1;2;3;4;5;6;7) de valeurs de z[ ]
nommées: a;b;c;d;e;f pour l'explication ci-dessous
telles que a:
a2 =a1+7; a3=a2+7; a4=a3+7; a5=a4+7;a6=a5+7
b2 =b1+7; b3=b2+7; b4=b3+7; b5=b4+7;b6=b5+7
c2=.....ext..
.....g6=g5+7
je voudrais tester si l'une des valeurs de t[ ] est égale à l'une des valeurs des 7 combinaisons
Si = Alors mettre le nom (1;2;3;4;5;6;7) de la combinaison dans la variable: r ...

---

renvoient aux sept notes de la gamme:
(La, Si, Do = Ut, Ré, Mi, Fa, Sol) = (A, B, C, D, E, F, G) en notation anglo-saxonne.

Or une mélodie, même très simple, présente presque toujours des altérations, et le tableau initial de 68 notes (95 - 28 + 1) comporte nécessairement les 12 sons de la gamme tempérée:
(C, C^#, D, E^b, E, F, F^#, G, G^#, A, B^b, B)
en raison de son étendue, puisqu'il couvre plus de 5 octaves (68/12).

J'ai l'impression que tu souhaites faire l'impasse sur les altérations, ce qui constitue une perte essentielle d'information, et surtout complique singulièrement le travail, comme tu l'as toi-même pressenti:

Citation:

---

Envoyé par valentin03

... Hélas non, car les # et les bémols ne sont pas distribués équitablement ...[/CODE]

---

Des tableaux impliquant une arithmétique modulo 12 ne conduiraient-ile pas à un algorithme plus simple ?

Ce lien n'est pas sans rapport avec le sujet.

@: wiwaxia:
J'ai volontairement zappés les altérations car le soft à pour but de faire reconnaître des sons et de les désigner sur un clavier 7 notes (blanches)
Quand on n'a pas l'oreille absolue, c'est tellement difficile que j'ai dû mettre une option qui réduit à l'octave. Au départ, il fallait reconnaître sur les 5 octaves et ça relevait de "mission impossible"
Si j'ajoute les noires je pourrai faire comme tu dis.

Si la mélodie consignée dans le tableau Z[ ] ne comporte que des notes blanches, chacune d'entre elles peut être associée à un couple constitué:
a) du nom de la note de référence, de hauteur minimale dans l'échelle envisagée;
b) de la distance séparant la note considérée de la précédente, et exprimée en octaves.
Un symbole tel que La₃ désigne sans ambigüité une touche blanche du clavier.

Les notions suivantes pourraient t'être utiles:

Code:

---

1 2 3 4 5 6 7 8 9

CONST Gamme: ARRAY[0..6] OF String = ('Do', 'Ré', 'Mi', 'Fa', 'Sol', 'La', 'Si');   TYPE ListeN1 = ARRAY[1..N] OF ShortInt; Note = RECORD Nom: Char; Delta: ShortInt END; ListeN2 = ARRAY[1..N] OF Note;   VAR Z: ListeN1; Partition: ListeN2;

---

Le transfert de la première liste à la suivante s'effectuant par les instructions suivantes:

Code:

---

1 2 3 4 5 6 7 8 9 10

PROCEDURE Transf_L1L2(x: ShortInt; VAR N_: Note); VAR Rang: ShortInt; No: Note; BEGIN Rang:= x - X0; No.Nom:= Gamme(Rang MOD 7); No.Delta:= Rang DIV 7; N_:= No END;   ... Transf(Z[k], Partition[k]);

---

La constante (X₀) désigne le rang de la première note nommée ('Do') dans l'échelle employée.
Il faudrait s'assurer que les valeurs négatives de (x - X₀) ne jouent pas de mauvais tour. Je les évite dans les calculs modulaires, et m'en méfie un peu.

@: wiwaxia: Dans ce soft les sons sont proposés un par un, mais tu me donne l'idée de pouvoir intéroger le suivant pour aider à la reconnaissance.
Mon premier message prête à confusion avec: "un dispositif en extrait 6 aléatoires" car les six n'en sont qu'une, à savoir la même mais dans 6 octaves; c'est leur mise en tableau qui m'a fait parler de plusieurs notes, car bien qu'étant identiques au sens du solfège, elles n'en sont pas moins différentes au niveau du son; et en fait, je n'ai pas éliminé le tableau, je l'ai mis en deuxième dimension (b) de comb(a,b).
Merci pour l'inspiration.