Реферат Пошукове проектування моделі ПЛІС для побудови системи цифрової обробки сигналів

актом

TSolverObject (Items [i]. Data). ObjectClass: = ocFact;

// Причому невдалим (Items [i]. Data). ObjectType: = sotUnSuccess;

// Збільшуємо лічильник негативних гіпотез (FRateFuncInfo.iUnSuccess);;;. EndUpdate;

end;

// Висновок лічильників підтверджень і протиріч

Label1.Caption: = IntToStr (nS);. Enabled: = true;. Caption: = IntToStr (nUS);. Enabled: = true;

// Виводимо число оцінених гіпотез.Caption: = IntToStr (FRateFuncInfo.iSuccess);. Visible: = true;. Caption: = IntToStr (FRateFuncInfo.iUnSuccess);. Visible: = true;

// Показуємо надпісі.Enabled: = true;. Enabled: = true;. Enabled: = true;;

Result: = True;

end;

{* ---------------------------------------- ------------------------------------

Конструктор для створення форми

Параметри конструктора :: TComponent; - об'єкт |-власник для форми

var ASolverBase: TSolverBase; - База РОЗ

// Заповнення аркуша гіпотезlvSolverHipothesis, FSolverBase do begin.BeginUpdate;

{1. Заповнимо список параметрів} i: = 0 to ParamList.Count - 1 doColumns.Add do Caption: = ParamList.Param [i]. ParamName;

{2. заповнимо список гіпотез} i: = 0 to ObjectList.Count - 1 doObjectList.Objects [i]. ObjectClass in [ocHipothesis] then//!! Обов'язково тільки гіпотези!! Items.Add do begin: = ObjectList.Objects [i]. ObjectName;

{3. для кожної гіпотези заповнимо список параметрів}

SubItems.Add (FloatToStr (ObjectList.Objects [i]. ObjectWeight)); j: = 0 to ParamList.Count - 1 do.Add (' pointer (ObjectList.Objects [i]);;: = TopItem;: = Selected;. EndUpdate;;; (rgAppreciate);

// rgCrit.ItemIndex: = 0;;

{* ---------------------------------------- ------------------------------------

Функція підрахунку гіпотез (зроблена тільки для прикладу) підраховує кількість помічених на оцінку гіпотез у lvSolverHipothesis

end;

{* ---------------------------------------- ------------------------------------

Помечаніе об'єктів для оцінки в lvSolverHipothesis відповідно до виділеного пунктом меню

_maxWeight, _minWeight: Integer; lvSolverHipothesis do begin.BeginUpdate;...