Читайте также:
|
|
{Начинается формирование вехней диагонали по НЮ }
II:=N-1; JJ:=N+1;
for k:=1 to N1 do begin
for i:=1 to k do begin
II:=II-1; JJ:=JJ-1; KK:=i;
If KK>Kan then KK:=Kan;
La[II,JJ]:=KK*Nu;
End;
II:=II-1;
End;
{Окончание формирование верхней диагонали по НЮ }
{Начинается формирование нижней диагонали по МЮ }
II:=N; JJ:=N-1;
for k:=1 to N1 do begin
for i:=1 to k do begin
II:=II-1; JJ:=JJ-1; If KK>Kan then KK:=Kan;
La[II,JJ]:=MM;
End;
II:=II-1; JJ:=JJ-1;
End;
{Окончание формирование нижней диагонали по МЮ }
{Начинается формирование нижней диагонали по Лямбда }
II:=N+1; JJ:=N;
for k:=1 to N1 do begin KK:=N1-K+1;
for i:=1 to k do begin
II:=II-1; JJ:=JJ-1; If KK>Kan then KK:=Kan;
La[II,JJ]:=KK*Laa;
End;
JJ:=JJ-1;
End;
{Окончание формирование нижней диагонали по Лямбда }
Рис. 1.5. Граф переходов (а) и структура фрагмента графа (б)
.
Дата добавления: 2014-12-15; просмотров: 135 | Поможем написать вашу работу | Нарушение авторских прав |