% c3k.m plays the 5 notes of the "Close Encounters of the Third Kind" theme.
% R. A. Shaffer, 6 NOV 2003
% shaffer@erau.edu
close all, clear all, clc
% Musical Notes (Hz)
f1 = 329.63; % E4
f2 = 369.99; % F#4
f3 = 293.66; % D4
f4 = 146.83; % D3  (one octave below D4)
f5 = 220.0;  % A3
% Musical Notes (rad/s)
w1 = 2*pi*f1;
w2 = 2*pi*f2;
w3 = 2*pi*f3;
w4 = 2*pi*f4;
w5 = 2*pi*f5;
% Sampling Frequency & Period
Fs = 2048;
Ts = 1/Fs;
% Sampled Musical Notes
t1 = [0:Ts:0.5];
t2 = [0:Ts:1.125];
E4 = cos(w1*t1);
FS4 = cos(w2*t1);
D4 = cos(w3*t1);
D3 = cos(w4*t1);
A3 = cos(w5*t2);
% Noise Component
f6 = 392; % noise frequency
w6 = 2*pi*f6;
D51 = cos(w6*t1);
D52 = cos(w6*t2);
% Musical Sequence:
y = [E4 FS4 D4 D3 A3];
% Add in the noise
%y = y + [D51 D51 D51 D51 D52];
save c3k y
soundsc(y, Fs)