Миркес Е. М.
Шрифт:
Answer = Signals[1] * B + C;
Reliability = 0
End
{Кодирование номером канала. Знаковый интерпретатор}
Inter Binary1 : (N : Long)
Static
Real E Name "Уровень надежности";
Var
Long A, B, I;
Real Dist;
Begin
Dist = E;
B = 0; {Число единиц}
A = 0; {Номер единицы}
For I = 1 To N Do Begin
If Abs(Signals[I]) < Dist Then Dist =Abs(Signals[I]);
If Signals[I] > 0 Then Begin A = I; B = B + 1; End;
End;
If B <> 1 Then Answer = 0 Else Answer = A
Reliability = Abs(Dist / E)
End
{Кодирование номером канала. Максимальный интерпретатор.}
Inter Major1 : (N : Long)
Static
Real E Name "Уровень надежности";
Var
Real A, B;
Long I, J;
Begin
A = -1.E+30; {Максимальный сигнал}
B = -1.E+30; {Второй по величине сигнал}
J = 0; {Номер максимального сигнала}
For I = 1 To N Do Begin
If Signals[I] > A Then Begin B = A; A = Signals[I]; J=I; End
Else If Signals[I] > B Then B = Signals[I];
End;
Answer = J;
If A – B > E Then Reliability = 1 Else Reliability = (A – B) / E;
End
Inter BynaryCoded1 : (N : Long)
Static
Real E Name "Уровень надежности";
Var
Long A, I;
Real Dist;
Begin
Dist = E;
A = 0; {Ответ}
For I = 1 To N Do Begin
If Abs(Signals[I]) < Dist Then Dist =Abs(Signals[I]);
A = A * 2;
If Signals[I] > 0 Then A = A + 1;
End;
Answer = A;
Reliability = Abs(Dist / E)
End
Contents Temp : Empty1, Cloud : Binary1(2), Wind : BynaryCoded1(3), Rain : Major1(3);
Temp SetParameters 10, 273;
Cloud SetParameters 0.1;
Wind SetParameters 0.2;
Rain SetParameters 0.15
Signals NumberOf(Signals,Temp) +NumberOf(Signals, Cloud) +