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

End;

IfB <> 1 Then Answer= 0 Else Answer= A

Reliability= Abs(Dist / E)

End

{Кодирование номером канала. Максимальный интерпретатор.}

InterMajor1 : (N : Long)

Static

RealE Name"Уровень надежности";

Var

RealA, B ;

LongI, J;

Begin

A = -1.E+30; {Максимальный сигнал}

B = -1.E+30; {Второй по величине сигнал}

J = 0; {Номер максимального сигнала}

ForI = 1 ToN Do Begin

If Signals[I] > A Then BeginB = A; A = Signals[I]; J=I; End

Else If Signals[I] > B ThenB = Signals[I];

End;

Answer= J;

IfA – B > E Then Reliability= 1 Else Reliability= (A – B) / E;

End

InterBynaryCoded1 : (N : Long)

Static

RealE Name"Уровень надежности";

Var

LongA, I ;

RealDist ;

Begin

Dist = E;

A = 0; {Ответ}

ForI = 1 ToN Do Begin

If Abs( Signals[I]) < Dist ThenDist = Abs( Signals[I]);

A = A * 2;

If Signals[I] > 0 ThenA = A + 1;

End;

Answer= A;

Reliability= Abs(Dist / E)

End

ContentsTemp : Empty1, Cloud : Binary1(2), Wind : BynaryCoded1(3), Rain : Major1(3);

Temp SetParameters10, 273;

Cloud SetParameters0.1;

Wind SetParameters0.2;

Rain SetParameters0.15

Signals NumberOf( Signals,Temp) + NumberOf( Signals, Cloud) +

1 NumberOf( Signals, Wind) + NumberOf( Signals, Rain)

Connections

Temp. Signals<=> Signals[1];

Cloud. Signals[1..2] <=> Signals[2; 3];

Wind. Signals[1..3] <=> Signals[4..6];

Rain. Signals[1..3] <=> Signals[7..9]

Temp. Answer<=> Answer[1];

Cloud. Answer[1..2] <=> Answer[2];

Wind. Answer[1..3] <=> Answer[3];

Rain. Answer[1..3] <=> Answer[4]

End Interpretator

Пример 2.

InterpretatorMeteorology

ContentsTemp : Empty, Cloud : Binary(2), Wind : BynaryCoded(3), Rain : Major(3);

Temp SetParameters10, 273;

Cloud SetParameters0.1;

Wind SetParameters0.2;

Rain SetParameters0.15

End Interpretator

Запросы к компоненту интерпретатор ответа можно разбить на пять групп:

1. Интерпретация.

2. Изменение параметров.

3. Работа со структурой.

4. Инициация редактора и конструктора интерпретатора ответа.

5. Обработка ошибок.

Поскольку нейрокомпьютер может работать одновременно с несколькими сетями, то и компонент интерпретатор ответа должен иметь возможность одновременной работы с несколькими интерпретаторами. Поэтому большинство запросов к интерпретатору содержат явное указание имени интерпретатора ответа. Ниже приведено описание всех запросов к компоненту интерпретатор ответа. Каждый запрос является логической функцией, возвращающей значение истина, если запрос выполнен успешно, и ложь — при ошибочном завершении исполнения запроса.

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

<���Полное имя частного интерпретатора>::=<���Имя интерпретатора>.<���Псевдоним частного интерпретатора> [ [ <���Номер экземпляра> ] ]

При вызове ряда запросов используются предопределенные константы. Их значения приведены в табл. 30.

Таблица 30. Значения предопределенных констант компонентов интерпретатор ответа и оценка