DSC03227

4H6 Dodatek

El:-TROK;

FOR I:—1 TO H DO

IF Y[I] >- EPS THEI BEGII S:-X[I]/T[I]_S

IF EX OR CS < D) THE! BEGIN D:-S; L:-I ERDj El:-FALSE

ERD; i IF T[I] >- EPS >

IF El THE! BEGII IOSOL :-TROE; STOP:-TRUE EID ELSE BEGII

S:-1.0/T[Ł];

FOR J:-l TO M DO U[L.J]:»U[L,J]*S;

IF L - 1 THEI It-2 ELSE I:»l;

REPEAT

S:-T[I]; X[I]:-X[I]-D*S;

FOR J:-l TO H DO 0[I, J] :«U[I, J]-U[L, J]*S;

IF I - L-l THEM I:-I+2 ELSE I:-I+i UITIL I > Q;

X[L]:*D

E*D { ELSE: IOT El >

EID { ELSE: D <- -EPS >

UITIL STOP E*D; { PSIKPLEX }

Funkcja SEQC0L0RING

FOICTIOM SEQCOLORIMG(

I :IITEGER;

TAR GR :GRAPH;

TAR SEQ:ARR1):IITEGER;

TAR I,I1,I2,K,L:IITEGER;

COL    :ARRI;

P    :TERTPOIIT;

BEGII

FOR I:-l TO I DO GR[I].C0L0R:-0; Ij -1; GR[SEQ[1]3.COLOR:-1;