function [Y,t]=nota(rd,nota,octava)

% rd = Relacion de duracion con respecto a la negra
% Valores posibles: 4= redonda, 2=blanca, 1=negra, 1/2=corchea,
% 1/4=semicorchea, 3/2=negra_punto
% nota = nombre de la nota : La, La#, Sib, Si, Do, Do#, Reb, Re, Re#, Mib,
% Mi, Fa, Fa#, Solb, Sol, Sol#, Lab
% octava = 2 = octava superior a la de La 440 Hz, 0 = octava inferior a la
% de La 440 Hz

if nargin==2
    Fb=440; % Octava por defecto
elseif octava==2
    Fb=880; % Octava superior
elseif octava==0
    Fb=220; % Octava inferior
end
        
switch nota
    case 'La',
        F=Fb;
    case {'La#','Sib'}
        F=Fb*2^(1/12);
    case 'Si'
        F=Fb*2^(2/12);
    case 'Do'
        F=Fb*2^(3/12);
    case {'Do#','Reb'}
        F=Fb*2^(4/12);
    case {'Re'}
        F=Fb*2^(5/12);
    case {'Re#','Mib'}
        F=Fb*2^(6/12);
    case {'Mi'}
        F=Fb*2^(7/12);
    case {'Fa'}
        F=Fb*2^(8/12);
    case {'Fa#','Solb'}
        F=Fb*2^(9/12);
    case {'Sol'}
        F=Fb*2^(10/12);
    case {'Sol#','Lab'}
        F=Fb*2^(11/12);
end

Fs=8000; % Fs= Frecuencia de muestreo
D=0.55; % Duracion del pulso musical (en este caso, una negra)

Duracion=rd*D; % Duracion de la nota particular

[Y,t]=tren_impulsos2(Fs,F,Duracion);

