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

 Signals[I] = MinSignals
 End
End
Prep EmptyPrep1 {Предобработчик, осуществляющий масштабирование и сдвиг сигнала}
Static
 Real MinSignals Name "Нижняя граница интервала приемлемых сигналов";
 Real MaxSignals Name "Верхняя граница интервала приемлемых сигналов";
Real Unknown Name"Значение сигнала, если значение входного признака не определено";
 Real MinData Name"Значения нижней границы интервала изменения входных данных";
 Real MaxData Name"Значения верхней границы интервала изменения входных данных";
Begin
 If Data[1] = UnknownReal Then Signals[1] = Unknown
 Else Signals[1] = (Data[1] – MinData) * (MaxSignals – MinSignals) / (MaxData – MinData) + MinSignals
End
Prep ModPrep1(Num : Long) {Модулярный предобработчик}
Static
 Real MinSignals Name "Нижняя граница интервала приемлемых сигналов";
 Real MaxSignals Name "Верхняя граница интервала приемлемых сигналов";
 Real Unknown Name "Значение сигнала, если значение входного признака не определено";
 RealArray[Num] Y Name "Массив величин, используемых для предобработки"
Var
 Integer I;
Begin
 If Data[1] = UnknownReal Then Begin
 For I = 1 To Num Do
 Signals[I] = Unknown
 End Else Begin
 For I = 1 To Num Do
 Signals[I] = (Data[1] RMod Y[I] + Y[I]) * (MaxSignals – MinSignals) / (2 * Y[I]) + MinSignals
 End
Prep FuncPrep1(Num : Long; F : FuncType) {Функциональный предобработчик}
Static
 Real MinSignals Name "Нижняя граница интервала приемлемых сигналов";
 Real MaxSignals Name "Верхняя граница интервала приемлемых сигналов";
 Real Unknown Name "Значение сигнала, если значение входного " +
"признака не определено";
 Real MinData Name "Значения нижней границы интервала изменения значений функции F ";
 Real MaxData Name "Значения верхней границы интервала изменения значений функции F";
 RealArray[Num] Y Name "Массив величин, используемых для предобработки"
Var
 Integer I;
Begin
 If Data[1] = UnknownReal Then Begin
 For I = 1 To Num Do
 Signals[I] = Unknown
 End Else Begin
 For I = 1 To Num Do
 Signals[1] = (F(Data[1] – Y[1] – MinData) * (MaxSignals – MinSignals) / (MaxData – MinData) + MinSignals
 End
Prep PositPrep1(Num : Long) {Позиционный предобработчик}
Static
 Real MinSignals Name "Нижняя граница интервала приемлемых сигналов"
 Real MaxSignals Name "Верхняя граница интервала приемлемых сигналов"
 Real Unknown Name"Значение сигнала, если значение входного признака не определено";
 Real Y Name "Основание системы счисления"
Var
 Integer I;
 Real W, Q;
Begin
 If Data[1] = UnknownReal Then Begin
 For I = 1 To Num Do
 Signals[I] = Unknown
 End Else Begin
 W = Data[1];
 For I = 1 To Num Do Begin
 Q = W RMod Y;
 Signals[I] = Q * (MaxSignals – MinSignals) / Y + MinSignals;
 W = (W - Q) / Y
 End;
 End
Contents Temp : EmptyPrep1, Cloud : BinaryPrep1, Wind : UnOrdered1(8), Rain : Ordered1(3);