%PoissonBisectWater
x=1; y=50;
for i=1:75
    z=(x+y)/2;
    m = max(poisson6(50,50,z));
    if max(m) <80
        x=z;
    else
        y=z;
    end
end
z
