w1 = note(440,[1],2);
w2 = note(440,[1 0.5 0.25 0.125], 2);
w3 = note(440,1./(1+1:10),2);  
w4 = note(440,ones(1,10),2);
w5 = note(440,[1 2 3 2 1 0.7 0.5 0.4 0.3 0.2],2); 

audiowrite('f1.wav',[w1 w2 w3 w4 w5], 10000)
