clear all
close all

f=0:44100;
w=2*pi*f;
R1=6.3e3;
R2=6.8e3;
R3=63e3;
C=22e-9;
A0=-R3/(2*R1);
w0=(1/C)*sqrt((R1+R2)/(R1*R2*R3));
m=sqrt((R1*R2)/((R1+R2)*R3));
H = (A0.*2.*m.*j.*w./w0)./(1+2.*m.*j.*w./w0+(j.*w./w0).^2)

%figure;
%%semilogx(f,20*log10(abs(H)));


txt='TURING Les fonctions réalisant les fonctions mathématiques';
txtbin=dec2bin(txt,8)';
txtbin=str2num(txtbin(:))
Fe=44100;
Fsymb=200;
NechparSymb=round(Fe/Fsymb);
sNum=repmat(txtbin,1,NechparSymb);
sNum=sNum';
sNum=sNum(:);
sNum(sNum==0)=0;
t=0:length(sNum)-1;
t=t/Fe;
sinn=sin(2*pi*8000*t);
sNum1=sNum.*sinn';


figure,plot(sNum1)
hold on,plot(sNum,'r')
t=0:length(sNum)-1;
t=t/Fe;
X=[[t(:)]',[sNum(:)]'];
X=X(:);

sinus = sin(2*pi*8000*t);
plot(sinus);