function plota_1D_funcao_mae(tipok,L,n,cor)

%plota a funcao-mae de tipo k no intervalo [-L, L]
C = 0;    
x = 1.25*L*(-n:n)/n;

for i = 1:size(x,2)
            f(i) = funcao_mae(x(i),tipok);
end
y_int = plota_psi_intervalo_y(tipok);
plot(x,zeros(size(x,2)),'m--');

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