Discussion :

[Malex_SAS]

Bonjour Olivier,
Quand j'étais à l'ENSAI, tu m'avais donné mon premier cours de SAS, je me souviens qu'au dernier cours tu avais executé un programme qui permettait de jouer la lettre a Elise, ce programme utilisait quel type de procédure ?

[olivier.decourt]

Dernière question pour olivier : quand j'étais à l'ENSAI, tu m'avais donné mon premier cours de SAS, je me souviens qu'au dernier cours tu avais executé un programme qui permettait de jouer la lettre a Elise, ce programme utilisait quel type de procédure ?

C'est une étape Data avec des CALL SOUND.
Si je la retrouve je mets à jour ce post, pour le moment je ne sais plus où je l'ai fourré.

[bahraoui]

j'ai trouvé ce truc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
*This creates pitches for each note on the piano;
%let C8 = 4186.01;
%let B7 = 3951.07;
%let AS7 = 3729.31;
%let BF7 = 3729.31;
%let A7 = 3520;
%let GS7 = 3322.44;
%let AF7 = 3322.44;
%let G7 = 3135.96;
%let FS7 = 2959.96;
%let GF7 = 2959.96;
%let F7 = 2793.83;
%let E7 = 2637.02;
%let DS7 = 2489.02;
%let EF7 = 2489.02;
%let D7 = 2349.32;
%let CS7 = 2217.46;
%let DF7 = 2217.46;
%let C7 = 2093;
%let B6 = 1975.53;
%let AS6 = 1864.66;
%let BF6 = 1864.66;
%let A6 = 1760;
%let GS6 = 1661.22;
%let AF6 = 1661.22;
%let G6 = 1567.98;
%let FS6 = 1479.98;
%let GF6 = 1479.98;
%let F6 = 1396.91;
%let E6 = 1318.51;
%let DS6 = 1244.51;
%let EF6 = 1244.51;
%let D6 = 1174.66;
%let CS6 = 1108.73;
%let DF6 = 1108.73;
%let C6 = 1046.5;
%let B5 = 987.767;
%let AS5 = 932.328;
%let BF5 = 932.328;
%let A5 = 880;
%let GS5 = 830.609;
%let AF5 = 830.609;
%let G5 = 783.991;
%let FS5 = 739.989;
%let GF5 = 739.989;
%let F5 = 698.456;
%let E5 = 659.255;
%let DS5 = 622.254;
%let EF5 = 622.254;
%let D5 = 587.33;
%let CS5 = 554.365;
%let DF5 = 554.365;
%let C5 = 523.251;
%let B4 = 493.883;
%let AS4 = 466.164;
%let BF4 = 466.164;
%let A4 = 440;
%let GS4 = 415.305;
%let AF4 = 415.305;
%let G4 = 391.995;
%let FS4 = 369.994;
%let GF4 = 369.994;
%let F4 = 349.228;
%let E4 = 329.628;
%let DS4 = 311.127;
%let EF4 = 311.127;
%let D4 = 293.665;
%let CS4 = 277.183;
%let DF4 = 277.183;
%let C4 = 261.626;
%let B3 = 246.942;
%let AS3 = 233.082;
%let BF3 = 233.082;
%let A3 = 220;
%let GS3 = 207.652;
%let AF3 = 207.652;
%let G3 = 195.998;
%let FS3 = 184.997;
%let GF3 = 184.997;
%let F3 = 174.614;
%let E3 = 164.814;
%let DS3 = 155.563;
%let EF3 = 155.563;
%let D3 = 146.832;
%let CS3 = 138.591;
%let DF3 = 138.591;
%let C3 = 130.813;
%let B2 = 123.471;
%let AS2 = 116.541;
%let BF2 = 116.541;
%let A2 = 110;
%let GS2 = 103.826;
%let AF2 = 103.826;
%let G2 = 97.9989;
%let FS2 = 92.4986;
%let GF2 = 92.4986;
%let F2 = 87.3071;
%let E2 = 82.4069;
%let DS2 = 77.7817;
%let EF2 = 77.7817;
%let D2 = 73.4162;
%let CS2 = 69.2957;
%let DF2 = 69.2957;
%let C2 = 65.4064;
%let B1 = 61.7354;
%let AS1 = 58.2705;
%let BF1 = 58.2705;
%let A1 = 55;
%let GS1 = 51.913;
%let AF1 = 51.913;
%let G1 = 48.9995;
%let FS1 = 46.2493;
%let GF1 = 46.2493;
%let F1 = 43.6536;
%let E1 = 41.2035;
%let DS1 = 38.8909;
%let EF1 = 38.8909;
%let D1 = 36.7081;
%let CS1 = 34.6479;
%let DF1 = 34.6479;
%let C1 = 32.7032;
%let B0 = 30.8677;
%let AS0 = 29.1353;
%let BF0 = 29.1353;
%let A0 = 27.5;
 
*Put note lengths here!;
%let _s = 25; *s=sixteenth note;
%let _e = 50; *e=eighth note;
%let _q = 100; *q=quarter note;
%let _h = 200; *h=half note;
%let _w = 400; *w=whole note;
%let _2w = 600; *2w =2 whole notes strung together;
 
 
data _null_;
 
call sound(&g4.,&_e);
call sound(&g4.,&_e);
call sound(&g4.,&_e);
call sound(&ef4.,&_w);
 
call sleep(.2,1);
 
call sound(&f4.,&_e);
call sound(&f4.,&_e);
call sound(&f4.,&_e);
call sound(&d4.,&_2w);
 
call sleep(.2,1);
 
call sound(&g4.,&_e);
call sound(&g4.,&_e);
call sound(&g4.,&_e);
call sound(&ef4.,&_e);
 
call sound(&af4.,&_e);
call sound(&af4.,&_e);
call sound(&af4.,&_e);
call sound(&g4.,&_e);
 
call sound(&ef5.,&_e);
call sound(&ef5.,&_e);
call sound(&ef5.,&_e);
call sound(&c5.,&_h);
 
*A;
 
call sleep(.05,1);
 
call sound(&g4.,&_e);
call sound(&g4.,&_e);
call sound(&g4.,&_e);
call sound(&d4.,&_e);
 
call sound(&af4.,&_e);
call sound(&af4.,&_e);
call sound(&af4.,&_e);
call sound(&ef4.,&_e);
 
call sound(&f5.,&_e);
call sound(&f5.,&_e);
call sound(&f5.,&_e);
call sound(&d5.,&_h);
 
*B;
call sleep(.05,1);
 
call sound(&g5.,&_e);
call sound(&g5.,&_e);
call sound(&f5.,&_e);
call sound(&ef5.,&_e);
 
call sound(&ef4.,&_e);
call sound(&ef4.,&_e);
call sound(&f4.,&_e);
call sound(&g4.,&_e);
 
call sound(&g5.,&_e);
call sound(&g5.,&_e);
call sound(&f5.,&_e);
call sound(&ef5.,&_e);
 
call sound(&ef4.,&_e);
call sound(&ef4.,&_e);
call sound(&f4.,&_e);
call sound(&g4.,&_e);
 
*C;
 
call sound(&g5.,&_e);
call sound(&g5.,&_e);
call sound(&f5.,&_e);
call sound(&ef5.,&_h);
 
call sleep(.2,1);
 
call sound(&c5.,&_h);
 
call sleep(.2,1);
 
call sound(&g5.,&_w);
run;

http://www.rhinocerus.net/forum/soft...-you-know.html

[Manoutz]

aha c'est trop bon ca

apparemment ya possibilité de contrôler la durée de la note. Mais comment contrôler la note. A savoir, comment faire un LA, un DO, etc... et accessoirement l'octave!

[Manoutz]

j'ai trouvé!

http://www2.sas.com/proceedings/sugi29/048-29.pdf

alors, a quand le blind test? A vos compos

[steelspirit]

Tiens je me demande si ça marche en soumettant le code sur un serveur (en rsubmit ou autre ...).

J'image bien mon admin réseau qui, lors d'une opération de maintenance, entend la musique de l'exorciste dans un coin de la salle serveurs ... flippant

[fafabzh6]

Hello,
Un petit rappel ici d'un topic donnant quelques chansons!

[olivier.decourt]

Ah, ça y est, j'ai remis la main sur Elise.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
PROC FORMAT ;
INVALUE musique
"A" = 110
"B" = 123.48
"C" = 130.82
"D" = 146.84
"E" = 164.82
"F" = 174.62
"G" = 196.00
"G#" = 207.66
"a" = 220 /* La en clé de sol */
"a#" = 233.08 
"b" = 246.96 /* Si */
"c" = 261.64 /* Do */
"c#" = 277.20
"d" = 293.68 /* Ré */
"d#" = 311.12
"e" = 329.64 /* Mi */
"f" = 349.24 /* Fa */
"f#" = 370.00 
"g" = 392.00 /* Sol */
"g#" = 415.32
"r" = -99 
;
RUN ;
DATA _NULL_ ;
INPUT note musique. duree ;
IF note > 0 THEN CALL SOUND(note, 1.25*160*duree) ;
ELSE CALL SLEEP(duree/3*1.25,1) ;
CARDS ;
e .5
d# .5
e .5
d# .5 
e .5
b .5 
d .5 
c .5 
a 1 
r .5
C .5 
E .5 
a .5 
b 1 
r .5
E .5
G# .5 
b .5
c 1
r .5
E .5 
e .5 
d# .5
e .5
d# .5
e .5
b .5 
d .5 
c .5 
a 1
r .5
C .5
E .5 
a .5 
b 1 
r .5
e .5
c .5
b .5
a 1
r .5
b .5
c .5
d .5
e 1
r .5
G .5
f .5
e .5
d 1
r .5
F .5
e .5
d .5
c 1
r .5
E .5
d .5
c .5
b 1
r 1
e .5
d# .5
e .5
d# .5
e .5
b .5
d .5
c .5
a 1
r .5
C .5
E .5
a .5
b 1
r .5
E .5
c .5
b .5
a 2
;
RUN ;

[lilsandy]

Bonjour,

Sur mon PC, ça ne fonctionne pas (le code tourne sans erreur). Sauriez vous pourquoi?

Ne vous inquiétez pas, j'ai bien monté le son sur mon ordinateur !

Merci!

[olivier.decourt]

Deux causes possibles à mes yeux :
1) tu utilises Entreprise Guide (et c'est le serveur SAS qui est sensé jouer de la musique : en pratique, personne ne l'entend)
2) une cause matérielle (carte son désactivée) ? Si ton PC peut émettre d'autres sons alors ce n'est pas ça.
Olivier

[MEGAMIND2]

Bonjour,

Sur mon PC, ça ne fonctionne pas (le code tourne sans erreur). Sauriez vous pourquoi?

Ne vous inquiétez pas, j'ai bien monté le son sur mon ordinateur !

Merci!

Pour se fixer, tu peux tester le code en pièce jointe?

[lilsandy]

Bonjour et merci pour vos réponses.

En effet, je travaille sur entreprise guide, et de ce fait, ça ne marche pas...

Dommage pour moi!

[tahahiti]

Bonjour,

Je rebondis sur vos échanges pour mettre le lien d'une vidéo sur Youtube qui montre comment faire une mélodie à partir des fluctuation du Dow Jones, avec SAS/IML : [ame="http://www.youtube.com/watch?v=LFpX5aGPwVc"]YouTube - The Sound of the Dow with SAS/IML® Studio[/ame]

Je ne suis pas experte en IML, mais comme quoi, les angles de recherche sont multiples !