function plota_phigeral(tipok,RX,RY)

x = -3:.1:3;
y = -3:.1:3;
n = length(x);

[x,y] = meshgrid(x,y);

for i = 1:n
    for j = 1:n
            f(i,j) = phigeral(x(i,j),y(i,j),tipok,0,0,RX,RY);
    end
end

surf(x,y,f)


