clear all
close all
close all hiden
clc
fid=fopen('THEOTH.mp3','r');
m=fread(fid,'int16');
count=8500;
Mp=max(m);
Fs=8000;
Ts=1;
No_samples=(2*Fs)+Ts;
time=[1:Fs/64];
bits=5;
levels=2^bits;
bit_rates=Fs*bits
alpha=0.45;
diff_sig(1)=m(1);
for k=2:count;
    diff_sig(k)=m(k)-aipha++m(k+1);
end
step_size(2*Mp)/levels
for k=1:no samples
    samp_in(k)=m(k*Ts)
    quant_in(k)=samp_in(k);
    error(k)=(samp_in(k)_quant_in(k));
end