fl=1;
ini=3.4;
fin=4;
wid=fin-ini;
winw=512;
winh=384;
frames=100;
xx=zeros(frames,1);
yy=zeros(frames,1);
samp=2000;
f=1;
for i=(1:winw)
	r=ini+i*wid/winw;
	t=1/10;
	for j=(1:frames)
		t=r*t*(1-t);
	end
	for j=(1:frames)
		t=r*t*(1-t);
		xx(f)=r;
		yy(f)=t;
		f=f+1;
	end
end
%plot(xx,yy,'b.');
plot(xx,yy,'ok','MarkerSize',1);
samp=2000;
while (fl==1)
[x y]=ginput(1);
par=x;
a=zeros(samp,1);
	
r=par
t=1/10;
for j=(1:100)
    t=r*t*(1-t);
end
for j=(1:samp)
    t=r*t*(1-t);
    a(j)=t;
end
sound(a,samp);
end;