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

Миркес Е. М.

В первом примере приведено описание дубликатов всех стандартных предобработчиков. Во втором — использованы стандартные предобработчики.

Пример 1.

Preparator Meteorology

Function Sigmoid(X Real): Real;

Begin

 Sigmoid = X / (1 + Abs(X))

End;

Prep BinaryPrep1 {Предобработка

бинарного признака}

Static

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

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

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

 Logic Type Name "Тип предобработки бинарного признака";

Begin

 If TLong(Data[1]) = UnknownLong Then Signals[1] = Unknown

 Else Begin

If Type Then Begin

If TLong(Data[1]) = 1 Then Signals[1] = 0 Else Begin

If MaxSignals =0 Then Signals[1] = MinSignals

Else Signals[1] = MaxSignals

End

Else Begin

If TLong(Data[1]) = 1 Then Signals[1] = MinSignals

Else Signals[1] = MaxSignals

End

End

 End

{Предобработка упорядоченного качественного признака}

Prep UnOrdered1(Num : Long)

Static

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

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

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

Var

 Integer I;

Begin

 If TLong(Data[1]) = UnknownLong Then Begin

For I = 1 To Num Do

Signals[I] = Unknown

 End Else Begin

For I = 1 To Num Do

Signals[I] = MinSignals

Signals[TLong(Data[1])] = MaxSignals

 End

End

Prep Ordered1(Num : Long) {Предобработка

упорядоченного качественного признака}

Static

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

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

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

Var

 Integer I;

Begin

 If TLong(Data[1]) = UnknownLong Then Begin

For I = 1 To Num Do

Signals[I] = Unknown

 End Else Begin

For I = 1 To TLong(Data[1]) Do

Signals[I] = MaxSignals

For I = TLong(Data[1])+1 To Num Do

Signals[I] = MinSignals

 End

End

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

Static

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

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