function  convattente(p,q )

clf
Y=zeros(5,2000);
X=zeros(1,500);
for k=1:2000
    X(1)=0;
    for n=2:500
        X(n)=Fattente(X(n-1),p,q);
    end;
    Y(1,k)=X(10);
    Y(2,k)=X(20);
    Y(3,k)=X(50);
    Y(4,k)=X(150);
    Y(5,k)=X(500);
end

for k=1:5
    Fr=-gsort(-Y(k,:));
    plot2d2(Fr,[1:2000]/2000)
end

if (p<q) then pconv=plim(p,q);
    plot2d2([0:14],cumsum(pconv),2);
end

endfunction

