Stat and Co


Forum du Master Statistique pour l'Entreprise de Rennes 2
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  

Partagez | 
 

 Petit programme sympathique

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Naig
Admin
avatar

Messages : 1134
Date d'inscription : 29/08/2007

MessageSujet: Petit programme sympathique   Jeu 17 Avr - 12:04

Pour ceux qui ont SAS, exécutez ça, c'est génial ! ^^


%let pc=1.25;
%macro df3(note,octave,length);
select(&note.);
when('A') call sound(55*(2**&octave.),&length.*150*&pc.);
when('A#') call sound(58*(2**&octave.),&length.*150*&pc.);
when('Bb') call sound(58*(2**&octave.),&length.*150*&pc.);
when('B') call sound(62*(2**&octave.),&length.*150*&pc.);
when('C') call sound(65*(2**&octave.),&length.*150*&pc.);
when('C#') call sound(69*(2**&octave.),&length.*150*&pc.);
when('Db') call sound(69*(2**&octave.),&length.*150*&pc.);
when('D') call sound(73.5*(2**&octave.),&length.*150*&pc.);
when('D#') call sound(78*(2**&octave.),&length.*150*&pc.);
when('Eb') call sound(78*(2**&octave.),&length.*150*&pc.);
when('E') call sound(82*(2**&octave.),&length.*150*&pc.);
when('F') call sound(87*(2**&octave.),&length.*150*&pc.);
when('F#') call sound(92.5*(2**&octave.),&length.*150*&pc.);
when('Gb') call sound(92.5*(2**&octave.),&length.*150*&pc.);
when('G') call sound(98*(2**&octave.),&length.*150*&pc.);
when('G#') call sound(104*(2**&octave.),&length.*150*&pc.);
when('Ab') call sound(104*(2**&octave.),&length.*150*&pc.);
when('R') call sleep((&length./3)*&pc.,1);
otherwise;
end;
%mend;


data _null_;

%df3('Bb', 3 , 0.5);
%df3('D', 4 , 0.5);

%df3('C', 4 , 1);
%df3('Bb', 3 , 1);
%df3('A', 3 , 1);
%df3('Bb', 3 , 1);

%df3('F', 3 , 0.5);
%df3('F', 3 , 1.5);
%df3('R', 3 , 1);
%df3('Bb', 3 , 0.5);
%df3('D', 4 , 0.5);

%df3('C', 4 , 0.5);
%df3('Bb', 3 , 0.5);
%df3('R', 3 , 1);
%df3('D', 4 , 0.5);
%df3('C', 4 , 0.75);
%df3('Bb', 3 , 0.25);
%df3('A', 3 , 0.5);
%df3('Bb', 3 , 0.5);

%df3('C', 4 , 2);
%df3('R', 3 , 1);
%df3('C', 4 , 0.5);
%df3('Eb', 4 , 0.5);

%df3('D', 4 , 1);
%df3('C', 4 , 1);
%df3('Bb', 3 , 1);
%df3('C', 4 , 1);

%df3('A', 3 , 0.5);
%df3('A', 3 , 1.5);
%df3('R', 3 , 1);
%df3('G', 3 , 0.5);

%df3('F', 3 , 0.5);
%df3('G', 3 , 0.5);
%df3('A', 3 , 0.5);
%df3('Bb', 3 , 0.5);
%df3('C', 4 , 1);
%df3('C#', 4 , 1);

%df3('D', 4 , 2);
run;
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.uhb.fr/association/stat_co/
Benjamin

avatar

Messages : 683
Date d'inscription : 12/10/2007
Age : 32

MessageSujet: Re: Petit programme sympathique   Jeu 17 Avr - 17:33

Trop fort!! lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
djédjé

avatar

Messages : 55
Date d'inscription : 04/02/2008
Age : 31
Localisation : Nantes

MessageSujet: Re: Petit programme sympathique   Jeu 24 Avr - 20:04

énorme!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Petit programme sympathique   

Revenir en haut Aller en bas
 
Petit programme sympathique
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» PETIT MORAL AUJOURDHUI
» Un petit pas pour l'homme, un grand pas pour l'humanité
» petit coup de déprime...
» programme formation AA
» besoin de vous pour répondre à un tout petit questionnaire

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Stat and Co :: Master Statistique pour l'Entreprise :: Conversations-
Sauter vers: