function  Pabs2( d )

Pk=zeros(1,d);
for k=1:d
    Pk(k)=Pabs(k,d);
end
plot2d(Pk);
endfunction

