ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng)/ProfitPress-MegaCDROM2.B6I/PROG/MISC/DATAREP.ZIP/CALC.INC

Text File | 1990-02-22 | 503 b | 17 lines

PROCEDURE Calculate (VAR F,O: Vector); {Computes output vector.}
        VAR I,J: INTEGER;
        Sum: REAL;
        BEGIN
        FOR I:= 1 TO Dimensionality DO
            BEGIN
            Sum:= 0;
            FOR J:= 1 TO Number_of_synapses DO
              Sum:= Sum +
                Neurons [I]. Synapses[J]. Strength *
                   F [Neurons [I]. Synapses [J]. From];
            Neurons[I]. Neuron_output:= Sum;
            O[I]:= Sum;
            END;
        END;