function [w1,w2] = nulc_fhn(I,v)



    e=.01;     % Parametro
    w1 = v.*(v-.1).*(1-v)+I;
    w2 = 2.*v;