Е. Миркес - Учебное пособие по курсу «Нейроинформатика»

Forw {Начало описания прямого функционирования}

Var {Описание локальных переменных}

LongI,J,K; {I,J,K – переменные типа длинное целое }

RealR; {R – действительное – для накопления суммы}

Begin

K = 1; {K – номер обрабатываемого параметра}

R = 0;

ForI = 1 ToN Do {I,J – номера входных сигналов}

ForJ = I ToN Do Begin

R = R + InSignals[I] * InSignals[J] * Parameters[K];

K = K + 1

End;

{Выходной сигнал равен сумме всех попарных произведений входных сигналов, умноженных на соответствующие параметры}

OutSignals[1] = R

End {Конец описания прямого функционирования}

Back {Начало описания обратного функционирования }

Var {Описание локальных переменных}

LongI, J, K; {I,J,K – переменные типа длинное целое }

RealR; {R – действительное}

VectorW; {Массив для накопления промежуточных величин}

Begin

ForI = 1 ToN DoW[I] = 0;

K = 1; {K – номер обрабатываемого параметра}

ForI = 1 ToN Do

ForJ = I ToN Do Begin

{Поправка к параметру равна сумме ранее вычисленной поправки и произведения поправки к входному сигналу на произведение сигналов, прошедших через этот параметр при прямом функционировании}

Back.Parameters[K] = Back.Parameters[K] + Back.OutSignals[1] * InSignals[I] * InSignals[J];

R = Back.OutSignals[1] * Parameters[K];

W[I] = W[I] + R * InSignals[J];

W[J] = W[J] + R * InSignals[I];

K = K + 1

End;

ForI = 1 ToN Do

{Поправка к входному сигналу равна произведению поправки к выходному сигналу на сумму всех параметров, через которые этот сигнал проходил при прямом функционировании, умноженных на другие входные сигналы, так же прошедшие через эти параметры при прямом функционировании}

Back.InSignals[1] = W[I]

End {Конец описания прямого функционирования}

EndSquare_Sum {Конец описания квадратичного сумматора}

ElementSquare_Sum_Plus(N: Long) {Неоднородный квадратичный сумматор на N входов}

InSignalsN {N входных сигналов}

OutSignals1 {Один выходной сигнал}

Parameters( Sqr(N) + 3 * N) Div2 + 1 {N(N+3)/2+1 весов связей}

Forw {Начало описания прямого функционирования}

Var {Описание локальных переменных}

LongI, J, K; {I,J,K – переменные типа длинное целое }

RealR; {R – действительное – для накопления суммы}

Begin

K = 2 * N+1; {K – номер обрабатываемого параметра}

R = Parameters[ Sqr(N) + 3 * N) Div2 + 1];

ForI = 1 ToN Do Begin

R = R + InSignals[I] * Parameters[I] + Sqr( InSignals[I]) * Parameters[N + I];

ForJ = I + 1 ToN Do Begin

R = R + InSignals[I] * InSignals[J] * Parameters[K];

K = K + 1

End

End

{Выходной сигнал равен сумме всех попарных произведений входных сигналов, умноженных на соответствующие параметры, плюс сумме всех входных сигналов умноженных на соответствующие параметры, плюс последний параметр}

OutSignals[1] = R

End {Конец описания прямого функционирования}

Back {Начало описания обратного функционирования}

Var {Описание локальных переменных}

LongI, J, K; {I,J,K – переменные типа длинное целое}

RealR; {R – действительное – для накопления суммы}

VectorW; {Массив для накопления промежуточных величин}

Begin

ForI = 1 ToN DoW[I] = 0;

K = 2 * N + 1; {K – номер обрабатываемого параметра}

ForI = 1 ToN Do Begin

Back.Parameters[I] = Back.Parameters[I] + Back.OutSignals[1] * InSignals[I];

Back.Parameters[N + I] = Back.Parameters[N + I] + Back.OutSignals[1] * Sqr( InSignals[I]);

W[I] = W[I] + Back.OutSignals[1] * ( Parameters[I] + 2 * Parameters[N + I] * InSignals[I])