Heilig Abend ist rum! Hier habe ich für alle, die Weihnachten verschlafen haben sollten, einen weltberühmten Weihnachtssong in SAS programmiert. Denn es ist nie zu spät für Weihnachten! Stimmen Sie sich doch noch ein mit diesem Liedchen.
(Kopieren Sie den SAS Code und schicken Sie ihn im SAS Programm Editor in einer lokalen SAS Sitzung ab. Wer keine SAS Umgebung hat, kann sich in 5 Minuten von zuhause aus bei SAS On Demand for Academics registrieren und den Code in der kostenlosen SAS Cloud abschicken.)
data O_Tannebaum;
*p ist achte Wurzel von zwei, der Halbtonmultiplikator in
temperierten Stimmung einer Oktave;
p=sqrt(sqrt(sqrt(2)));
*call sound(Tonhöhe in Herz,Tonlänge in Millisekunden);
*Oh Tannebaum;
call sound(262*p**0,200);
call sound(262*p**3,300);
call sound(262*p**3,100);
call sound(262*p**3,600);
*Oh Tannebaum;
call sound(262*p**5,200);
call sound(262*p**6,300);
call sound(262*p**6,100);
call sound(262*p**6,600);
*Wie grün sind Deine Blätter;
call sound(262*p**6,200);
call sound(262*p**5,200);
call sound(262*p**6,200);
call sound(262*p**7,400);
call sound(262*p**3,400);
call sound(262*p**5,400);
call sound(262*p**3,400);
*Du grünst nicht nur zur Sommerszeit;
call sound(262*p**8,200);
call sound(262*p**8,200);
call sound(262*p**6,200);
call sound(262*p**10,600);
call sound(262*p**8,200);
call sound(262*p**8,300);
call sound(262*p**7,100);
call sound(262*p**7,600);
*Nein auch im Winter wenn es schneit;
call sound(262*p**7,200);
call sound(262*p**7,200);
call sound(262*p**5,200);
call sound(262*p**8,600);
call sound(262*p**7,200);
call sound(262*p**7,300);
call sound(262*p**6,100);
call sound(262*p**6,600);
*O Tannebaum;
call sound(262*p**0,200);
call sound(262*p**3,300);
call sound(262*p**3,100);
call sound(262*p**3,600);
*Oh Tannebaum;
call sound(262*p**5,200);
call sound(262*p**6,300);
call sound(262*p**6,100);
call sound(262*p**6,600);
*Wie grün sind Deine Blätter;
call sound(262*p**6,200);
call sound(262*p**5,200);
call sound(262*p**6,200);
call sound(262*p**7,400);
call sound(262*p**3,400);
call sound(262*p**5,400);
call sound(262*p**3,400);
run;
Ich wünsche Ihnen noch schöne Weihnachten und wirklich schöne Musik & 1 guten Rutsch!