Générer tous les accords.

Version imprimable

27/08/2009, 13h30
Invité

Générer tous les accords.

Bonjour, S'il vous plaît, je souhaite générer tous les accords musicaux de 2 à 5 notes.
Sur la gamme constituée de 88 notes indexées de 21 à 108, je parcoure les notes de 60 à 72 pour construire les accords de 2 à 5 notes selon les intervalles suivant : 1, 2, 3, 4, 5, 6, 7, 8, 9, 11 ; Sans doublon. Ca fais 5 heures que je cherche. Et je n'y parviens.
Merci pour votre aide, bien à vous. :ccool:
27/08/2009, 15h12
FR119492

Salut!

Citation:

Sur la gamme

Harmonique ou tempérée?

Citation:

constituée de 88 notes

D'où tes notes proviennent-elles et comment sont-elles stockées?
S'agit-il de sinusoïdes pures en régime permanent ou y a-t-il des harmoniques et des régimes transitoires?

Citation:

selon les intervalles suivant : 1, 2, 3, 4, 5, 6, 7, 8, 9, 11

Si 2 représente la note qui est à l'octave supérieure, 3 à une octave et une quinte, 5 à deux octaves et une tierce majeure, etc., que représente l'intervalle 1? Pour quelle raison l'intervalle 10 est-il omis?

Citation:

je souhaite générer tous les accords musicaux

Sous quelle forme? un fichier .WAV ou autre?

Jean-Marc Blanc
27/08/2009, 15h45
Invité

Bonjour, Je suis confus. Pardon.

Je cherche simplement à générer les combinaisons de notes selon les intervalles donnés ci-dessus.

Dans un premier temps je dois trouver l'algorithme générant tous les tirage de 1 à 4 intervalles parmi 10. Après la partie est gagnée.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
with Text_Io;
use Text_Io;
procedure Main is
   subtype T_Note is Natural range 21..108;  
   type T_Interval is array (1..10) of Positive;
   Interval : T_Interval := (1,2,3,4,5,6,7,8,9,11);
begin
 
   for A in 21..97 loop
      for I in 1..10 loop
         Put(Integer'Image(A));
         Put(Integer'Image(Interval(I)+A));
         New_Line;
      end loop;
      for I in 1..9 loop
         for J in I+1..10 loop
            Put(Integer'Image(A));
            Put(Integer'Image(Interval(I)+A));
            Put(Integer'Image(Interval(J)+A));
         New_Line;
      end loop;
   end loop;
   for I in 1..9 loop
      for J in I+1..10 loop
         for K in J+1..10 loop
            Put(Integer'Image(A));
            Put(Integer'Image(Interval(I)+A));
            Put(Integer'Image(Interval(J)+A));
            Put(Integer'Image(Interval(K)+A));
            New_Line;
         end loop;
      end loop;
   end loop;
   for I in 1..9 loop
      for J in I+1..10 loop
         for K in J+1..10 loop
            for L in K+1..10 loop
               Put(Integer'Image(A));
               Put(Integer'Image(Interval(I)+A));
               Put(Integer'Image(Interval(J)+A));
               Put(Integer'Image(Interval(K)+A));
               Put(Integer'Image(Interval(L)+A));
               New_Line;
            end loop;
         end loop;
      end loop;
   end loop;
   end loop;
end Main;