Anotace Annotation

ÚAI FSI VUT
DIPLOMOVÁ PRÁCE
Radek Lošťák
Strana
55
z: longint; {rychlost odběru}
xe, xh, xga: longint; {vypočtené výrobní dávky}
Name: string; {název stupně}
Sukc: TIntVector; {tabulka následníků}
Ai, Bi, B1, B2: longint; {výrobní dávka max a min}
end;
A TJedenShluk jako potomek třídy TJedenStupen má tvar:
TJedenShluk = class(TJedenStupen)
public
{seznam původních stupňů shluku}
puvodni_stupne: TIntVector;
D: double;
end;
Při výpočtech bylo nutné uchovávat tabulky hodnot, které byly třeba pro výpočet
(např. tabulka hodnot Φ ( x ), k , atd.). Tabulky hodnot mohou být reprezentovány
i i i
vektory, které musí být schopny dynamicky měnit svůj rozsah, protože jejich velikost je
známá až při běhu programu. Pro takové účely byly použity objekty TIntVector,
TdoubleVector a TMatrix, které dynamickou změnu rozsahu umožňují. Pro snadnější
manipulaci s objekty při výpočtech jsou stupně označovány číselně. Každý stupeň lze
identifikovat pomocí jeho pořadí v kolekci TCelyProces.
V načteném procesu obsahujícím seznam instancí třídy TJedenStupen jsou
nejprve zjištěny kružnice a z nich vytvořeny shluky (je volána procedura
KontrolaKruznic). Následuje vytvoření druhé instance třídy TJedenProces, který
obsahuje seznam instancí třídy TJedenShluk (volá se funkce AggregateFrom)
reprezentující agregovanou strukturu bez kružnic. Poté je takto nově vytvořený proces
převeden do objektu pro výpočet (TStages, TOneStage), kde je přečíslován a jsou
volány metody objektu SetSuc, SetPred. Pokud byl vybrán přesný výpočet, je
volána metoda Calculate.
Pro výpočet výrobních nákladů v neagregované obecné struktuře byla vytvořena
nová třída TGeneralStruct obsahující seznam stupňů třídy TStage. TGeneralStruct je ve
zdrojovém kódu definována následovně:
TGeneralStruct = class
private
Stages: array of TStage; {pole výrobních stupňů}
EkvivMatrix: TMatrix; {matice ekvivalentů}