close all
clear all

x=wavread('utopia');%276500
fe=44100;
m1=length(x)/fe;
lng=fix((length(x)/fe)*100)/100;
m=0:1/fe:lng; %pentru plot pastrez primele 220500 esantioane ale semnalelor mele, din cele 276500
x1=x(1:lng*fe+1);%220501 % (length(x)/fe)

%d1=x;
%k1=length(d1); %k=276500
cg=[0.6 0.7 0.8 0.5 0.6 0.4];
cg1=[0.4 0.5 0.7 0.4 0.5 0.4];
cd=[200 300 400 100 200 300];
ag=0.4;
ad=5000;
%g=0.4;
%n=10;
%d=[200 400 100 400 100 200 600 200 100 100];
k=0.6;

[y,b,a]=moorer(x,cg,cg1,cd,ag,ad,k);

wavwrite(y,fe,'sunet_ecou_moorer.wav');
sound(y,fe);
y1=y(1:lng*fe+1);

subplot(2,1,1), plot(m,x1),grid
subplot(2,1,2), plot(m,y1),grid