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

Begin

{Выходной сигнал равен отношению входного сигнала к сумме параметра и абсолютной величины входного сигнала}

OutSignals[1] = InSignals[1] / ( Parameters[1] + Abs( InSignals[1])

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

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

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

Begin

{R – вспомогательная величина для вычисления поправок, равная отношению поправки выходного сигнала к квадрату суммы параметра и абсолютной величины входного сигнала}

R = Back.OutSignals[1] / Sqr( Parameters[1] + Abs( InSignals[1]);

{Поправка к входному сигналу равна произведению вспомогательной величины на параметр}

Back.InSignals[1] = R * Parameters[1];

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

Back.Parameters[1] = Back.Parameters[1] + R * InSignals[1]

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

EndS_Train {Конец описания обучаемого гиперболического сигмоидного элемента}

ElementS_NotTrain(Char : Real) {Не обучаемый гиперболический сигмоидный элемент Char – характеристика}

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

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

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

Begin

{Выходной сигнал равен отношению входного сигнала к сумме характеристики и абсолютной величины входного сигнала}

OutSignals[1] = InSignals[1] / (Char + Abs( InSignals[1])

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

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

Begin

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

Back.InSignals[1] =Back.OutSignals[1] * Char / Sqr(Char + Abs( InSignals[1]);

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

EndS_NotTrain {Конец описания гиперболического сигмоидного элемента}

ElementPade(Char : Real) {Паде преобразователь Char – характеристика}

InSignals2 {Два входных сигнала}

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

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

Begin

{Выходной сигнал равен отношению первого входного сигнала к сумме характеристики и второго входного сигнала}

OutSignals[1] = InSignals[1] / (Char+ InSignals[2])

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

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

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

Begin

{Вспомогательная величина равна поправке к первому входному сигналу – отношению поправки выходного сигнала к сумме характеристики и второго входного сигнала}

R = Back.OutSignals[1] / (Char+ InSignals[2]);

Back.InSignals[1] = R;

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

Back.InSignals[2] = -R * OutSignals[1];

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

EndPade {Конец описания Паде преобразователя}

ElementSign_Mirror {Зеркальный пороговый элемент}

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

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

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

Begin

If InSignals[1] > 0 Then OutSignals[1] =1 {Выходной сигнал равен 1, если входной сигнал}

Else OutSignals[1] =0 {больше нуля, и нулю в противном случае}

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

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

Begin

Back.InSignals[1] = OutSignals[1]; {Поправка к входному сигналу равна выходному сигналу}

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

EndSign_Mirror {Конец описания зеркального порогового элемента}