%  Tiedosto nuotit.m    11.4.2009  HA
%  Nuottien värähtelytaajuudet, tasavireinen asteikko
%  Tämä on Matlab-tiedosto (m-tiedosto). (vrt. nuotit.sce)
%     Kirjoita Matlab-komentoikkunaan:   >> nuotit  
% Oktaavit: SUURI, pieni, yksiviivainen,kaksiviivainen

     q=2^(1/12);         %Peräkkäisten taajuuksien suhde
     % a=440;              % Perus-a. 
     %a=a/2;
     %a=444;       % http://juoru.uta.fi/mute/vir04.htm
     %a=q*a;       % Transponointi 1/2 askelta ylös   (Smile)
     %a=a/(q^2);    % Transponointi koko askel alas. (Heijastus)
     %  a=360        % Transponointi reippaasti: Kesäyö sopraanostemma
    
     % Huomaa!  Transponoinnin jälkeen on ajettava laulunuotit 
     %          uudestaan.
     
     pieni=a*q.^(-9:2); % Pienen kromaattisen skaalan kaikki 12 nuottia
     SUURI=pieni/2;
     KONTRA=SUURI/2;
     yksiviivainen=2*pieni;
     kaksiviivainen=2*yksiviivainen;
     
     c=pieni(1);cis=pieni(2);d=pieni(3);dis=pieni(4);e=pieni(5);
     f=pieni(6);fis=pieni(7);g=pieni(8);gis=pieni(9);a=pieni(10);
     ais=pieni(11);h=pieni(12);
     des=cis;es=dis;ges=fis;as=gis;b=ais;
     
     C0=KONTRA(1);Cis0=KONTRA(2);D0=KONTRA(3);Dis0=KONTRA(4);E0=KONTRA(5);
     F0=KONTRA(6);Fis0=KONTRA(7);G0=KONTRA(8);Gis0=KONTRA(9);A0=KONTRA(10);
     Ais0=KONTRA(11);H0=KONTRA(12);
     Des0=Cis0;Es0=Dis0;Ges0=Fis0;As0=Gis0;B0=Ais0;
     
     C=SUURI(1);Cis=SUURI(2);D=SUURI(3);Dis=SUURI(4);E=SUURI(5);
     F=SUURI(6);Fis=SUURI(7);G=SUURI(8);Gis=SUURI(9);A=SUURI(10);
     Ais=SUURI(11);H=SUURI(12);
     Des=Cis;Es=Dis;Ges=Fis;As=Gis;B=Ais;
     
     c1=yksiviivainen(1);cis1=yksiviivainen(2);d1=yksiviivainen(3);
     dis1=yksiviivainen(4);e1=yksiviivainen(5);
     f1=yksiviivainen(6);fis1=yksiviivainen(7);g1=yksiviivainen(8);
     gis1=yksiviivainen(9);a1=yksiviivainen(10);ais1=yksiviivainen(11);
     h1=yksiviivainen(12);
     des1=cis1;es1=dis1;ges1=fis1;as1=gis1;b1=ais1;

     c2=kaksiviivainen(1);cis2=kaksiviivainen(2);d2=kaksiviivainen(3);
     dis2=kaksiviivainen(4);e2=kaksiviivainen(5);
     f2=kaksiviivainen(6);fis2=kaksiviivainen(7);g2=kaksiviivainen(8);
     gis2=kaksiviivainen(9);a2=kaksiviivainen(10);ais2=kaksiviivainen(11);
     h2=kaksiviivainen(12);
     des2=cis2;es2=dis2;ges2=fis2;as2=gis2;b2=ais2;
     
     Cduuri=[C D E F G A H c];
     cduuri=2*Cduuri;
     c1duuri=2*cduuri;
     c2duuri=2*c1duuri;
     % soita1(cduuri)
    
