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

В необязательном разделе «описание данных» указывается число входных данных, предобрабатываемых предобработчиком. Если этот раздел опущен, то полагается, что число предобрабатываемых предобработчиком данных равно сумме данных, предобрабатываемых всеми частными предобработчиками. В константном выражении возможно использование функции NumberOf, аргументом которой является имя частного предобработчика (или его псевдоним) и ключевое слово Data, в качестве второго аргумента.

В необязательном разделе описания распределения сигналов (данных) указывается для каждого частного предобработчика какие сигналы (входные данные) из общего вектора сигналов (данных) передаются ему для обработки.

Наиболее часто встречающиеся интерпретаторы объявлены стандартными. Для стандартных интерпретаторов описание частных интерпретаторов отсутствует.

Кроме того, в любом месте описания интерпретатора могут встречаться комментарии, заключенные в фигурные скобки.

В этом разделе приведены два примера описания одного и того же предобработчика для метеорологической задачи. Используется следующий состав предобработчика: первый элемент вектора входных данных (температура воздуха) обрабатывается простейшим предобработчиком (EmptyPrep); второй (облачность) — бинарным предобработчиком (BinaryPrep); третий (направление ветра) — предобработчиком неупорядоченных качественных признаков (UnOrdered); четвертый (осадки) — предобработчиком неупорядоченных качественных признаков (Ordered).

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

Пример 1.

PreparatorMeteorology

FunctionSigmoid(X Real): Real;

Begin

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

End;

PrepBinaryPrep1() {Предобработка бинарного признака}

Static

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

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

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

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

Begin

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

Else Begin

IfType Then Begin

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

IfMaxSignals =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

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

PrepUnOrdered1(Num : Long)

Static

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

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

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

Var

IntegerI ;

Begin

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

ForI = 1 ToNum Do

Signals[I] = Unknown

End Else Begin

ForI = 1 ToNum Do

Signals[I] = MinSignals

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

End

End

PrepOrdered1(Num : Long) {Предобработка упорядоченного качественного признака}

Static

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

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

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

Var

IntegerI ;

Begin

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

ForI = 1 ToNum Do

Signals[I] = Unknown

End Else Begin

ForI = 1 To TLong(Data[1]) Do

Signals[I] = MaxSignals

ForI = TLong(Data[1])+1 ToNum Do