function v = psi(dx,tipok,R,L)
%calcula elemento generico da base de aproximacao unidimensional
%dx eh a coordenada do argumento relativa ao centro
%L eh o tamanho (periodo) do dominio
%R eh raio absoluto do elemento
%se dobrado for true torna o elemento periodico por somatoria senao por
%cossenoide
%supoe que psi_mae eh simetrica

%if  dobrado
    rx = abs(dx/R);
% else
%     rx = sqrt((L^2*(1 - cos(2*pi*dx/L)))/2)/R/pi;
% end
    v = psi_mae(rx,tipok,L/R);
