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

Signals[I] = MinSignals

End

End

PrepEmptyPrep1() {Предобработчик, осуществляющий масштабирование и сдвиг сигнала}

Static

RealMinSignals Name"Нижняя граница интервала приемлемых сигналов";

RealMaxSignals Name"Верхняя граница интервала приемлемых сигналов";

RealUnknown Name"Значение сигнала, если значение входного признака не определено";

RealMinData Name"Значения нижней границы интервала изменения входных данных";

RealMaxData Name"Значения верхней границы интервала изменения входных данных";

Begin

If Data[1] = UnknownReal Then Signals[1] = Unknown

Else Signals[1] = ( Data[1] – MinData) * (MaxSignals – MinSignals) / (MaxData – MinData) + MinSignals

End

PrepModPrep1(Num : Long) {Модулярный предобработчик}

Static

RealMinSignals Name"Нижняя граница интервала приемлемых сигналов";

RealMaxSignals Name"Верхняя граница интервала приемлемых сигналов";

RealUnknown Name"Значение сигнала, если значение входного признака не определено";

RealArray[Num] Y Name"Массив величин, используемых для предобработки"

Var

IntegerI ;

Begin

If Data[1] = UnknownReal ThenBegin

ForI = 1 ToNum Do

Signals[I] = Unknown

End Else Begin

ForI = 1 ToNum Do

Signals[I] = ( Data[1] RModY[I] + Y[I]) * (MaxSignals – MinSignals) / (2 * Y[I]) + MinSignals

End

PrepFuncPrep1(Num : Long;F : FuncType) {Функциональный предобработчик}

Static

RealMinSignals Name"Нижняя граница интервала приемлемых сигналов";

RealMaxSignals Name"Верхняя граница интервала приемлемых сигналов";

RealUnknown Name"Значение сигнала, если значение входного " +

"признака не определено";

RealMinData Name"Значения нижней границы интервала изменения значений функции F ";

RealMaxData Name"Значения верхней границы интервала изменения значений функции F";

RealArray[Num] Y Name"Массив величин, используемых для предобработки"

Var

IntegerI ;

Begin

If Data[1] = UnknownReal ThenBegin

ForI = 1 ToNum Do

Signals[I] = Unknown

End Else Begin

ForI = 1 ToNum Do

Signals[1] = (F( Data[1] – Y[1] – MinData) * (MaxSignals – MinSignals) / (MaxData – MinData) + MinSignals

End

PrepPositPrep1(Num : Long) {Позиционный предобработчик}

Static

RealMinSignals Name"Нижняя граница интервала приемлемых сигналов"

RealMaxSignals Name"Верхняя граница интервала приемлемых сигналов"

RealUnknown Name"Значение сигнала, если значение входного признака не определено";

RealY Name"Основание системы счисления"

Var

IntegerI ;

RealW, Q ;

Begin

If Data[1] = UnknownReal ThenBegin

ForI = 1 ToNum Do

Signals[I] = Unknown

End Else Begin

W = Data[1];

ForI = 1 ToNum Do Begin

Q = W RModY;

Signals[I] = Q * (MaxSignals – MinSignals) / Y + MinSignals;

W = (W - Q) / Y

End;

End

ContentsTemp : EmptyPrep1, Cloud : BinaryPrep1, Wind : UnOrdered1(8), Rain : Ordered1(3);

{Для всех предобработчиков приемлемые значения входных сигналов лежат в интервале от -1 до 1. В случае неопределенного значения во входных данных все сигналы данного предобработчика полагаются равными нулю. Входные данные первого предобработчика меняются от 273 до 293}

Temp SetParameters-1, 1, 1E-40, 273, 293;

Cloud SetParameters-1, 1, 0, True;

Wind SetParameters-1, 1, 0;

Rain SetParameters-1, 1, 0

Signals NumberOf( Signals,Temp) + NumberOf( Signals, Cloud) + NumberOf( Signals, Wind(8)) + NumberOf( Signals, Rain(3))