% LPC hangszintézis generalt hibajellel
%elsõ indítás elõtt a parancs sorba: l=0;
load fon; load e1; load e2; load e3; load e4; load e5;
l=l+1;kod(l)
y=fon(l,:);         %rövid hangminták
%y=e3;              %e1 - e5 három magánhangzó (é,ö,á) két mássalhangzó sz, s)
y=y-mean(y);
%y=fliplr(y);
ly=length(y);
a=lpc(y,24);
e=filter(a,1,y);hib=e;
%e=5*(rand(1,ly)-.5);   %zaj gerjesztés (réshang e4-e5, suttogás e1-e3)

nn=190;                 %változtathatõ hangmagasság e1 - e5
e=zeros(1,ly);for i=1:190:ly-20;e(i)=22;end     %zöngés gerjesztés

yr=filter(1,a,e);
figure(1)
plot(y)
figure(2)
plot(yr)
figure(3)
[h,w]=freqz(1,a);
plot(w/pi*11025,abs(h))
soundsc(y/100,22050);pause(1)   %eredeti
soundsc(yr/100,22050)           %mesterséges