practica 1.m

informe comunicacion 3

%% Emmanuel A. Herasme
% Mat 06-0070

%%
%Variables del marcado telef髇ico 809-567-9271

A=1;
B=1;
t=0:0.0001:1.5;
t1=0:0.0001:0.15;
Fs=10000;


f1=697;
f2=770;
f3=852;
f4=941;
F1=1209;
F2=1336;
F3=1447;
F4=1633;

%       1209 Hz	1336 Hz	1477 Hz	1633 Hz
%697 Hz   1       2       3       A
%770 Hz   4       5       6       B
%852 Hz   7       8       9       C
%941 Hz   *       0       #       D


%Tecla 8
N8=cos(2*pi*f3*t1)+ cos(2*pi*F2*t1);

%Tecla 2
N2=cos(2*pi*f1*t1)+ cos(2*pi*F2*t1);

%Tecla 9
N9=cos(2*pi*f3*t1)+ cos(2*pi*F3*t1);

%Tecla 0
N0=cos(2*pi*f4*t1)+ cos(2*pi*F2*t1);

%Tecla 1
N1=cos(2*pi*f1*t1)+ cos(2*pi*F1*t1);

%Tecla 5
N5=cos(2*pi*f2*t1)+ cos(2*pi*F2*t1);


%Tono 
GSM=A*cos(2*pi*425*t)+ B*cos(2*pi*425*t);


%Declaraci髇 de Pausas
p=0:0.0001:0.3;
p1=0:0.0001:2;
p2=0:0.0001:3
%Variable que almacena el marcado telef髇ico

y=[N8 N2  N9 p N9 p N0 p N1 p N5 p N2 p N5 p N1 p2 GSM p1 GSM p1 GSM p1 ];

sound(y);

%Funci髇 que genera el archivo *.wav
wavwrite(y,'marcado8299015251');