Neurona

#Borrar espacio para evitar problemas
clc

#Función escalon
function [result] = escalon(x)
    if(x>=0)
        result = 1;
    else
        result = 0;
    endif
end

#Función Escalón con Corrimiento t
function [result] = escalonCorrimiento(x,t)
    if(x>=t)
        result = 1;
    else
        result = 0;
    endif
end

#Funcion sigmoide
function [result] = sigmoide(x)
    result = 1.0 ./ (1.0 + exp(-x));
end

function [z] = redNeuronal(Entrada)
  t = 0.5;
  PesosEntrada = [0.3, 0.3, 0.3];
    EntradaNeta = PesosEntrada*Entrada';

    z = escalonCorrimiento(EntradaNeta,t);
end


for i = 0:1
    for j = 0:1
        for k = 0:1
            Entrada = [i,j,k];
      disp("Entrada");
            disp(Entrada);
      disp("Salida");
            disp(redNeuronal(Entrada));
            disp("----------");
        endfor
    endfor
endfor