function plota_1D_psi(tipok,R,L,n,cor)
%plota a funcao-mae de tipo k esticada por um raio absoluto R em um dominio
%de tamanho L
C = 0;    
x = 1.05*L*(-n:n)/n;
%x = 0.7625*T*(-n:n)/n;

for i = 1:size(x,2)
            f(i) = psi(x(i)-C,tipok,R,L);
end
y_int = plota_psi_intervalo_y(tipok);

for j = -L:L
    plot([j,j], y_int,'g:');
end
plot(x,zeros(size(x,2)),'g--');
plot([-L,-L], y_int,'g--');
plot([0,0], y_int,'g--');
plot([L,L], y_int,'g--');
plot(x,f,cor)
set(gca,'Fontsize', 20)
ylim(y_int);

