Delphi-6 - среда разработки программного обеспечения для систем промышленной автоматизации. Букреев В.Г - 92 стр.

UptoLike

Составители: 

ErrorValue.Y[i]:=ABS((Myfunction(ErrorValue.X[i]))-
OutputQZ.Y[i]);
// Вывести текущую точку на график.
Form1.Chart2.SeriesList[0].AddXY(ErrorValue.X[i],ErrorValue.
Y[i],'',clBlack);
// Если ранее найденная максимальная ошибка меньше текущей,
то
// присвоить ее значение текущей ошибке.
if MaxError<ErrorValue.Y[i] then MaxEr-
ror:=ErrorValue.Y[i];
end;
MaxError:=MaxError/MaxFuncVal;
// Вывести максимальную ошибку интерполирования на компонент
// формы Label7
Form1.Label7.Caption:='Максимальная ошибка интерполирова-
ния: '+FloatToStr(MaxError*100)+'%';
// Расчет выполнен.
Calculated:=True;
end;
Для анализа быстродействия в приведенной процедуре использу-
ется функция GetTickCount. Поскольку эта функция обладает достаточ-
но большой погрешностью при измерении малых интервалов времени и
реальная работа программ в среде Windows происходит с непостоянной
скоростью, то предлагается прокрутить выполнение алгоритма расчета
сплайна n-ое (в нашем случае n=10000) количество раз, а затем вычис-
лить среднее время расчета.
2.10. Пример реализации виртуального диспетчерского пульта
В качестве примера виртуального диспетчерского пульта рас-
смотрим программу управления лабораторным стендом «МИКРОКОН»,
разработанную Научно-производственной фирмой «Ключ-1» [9].
Внешний вид программы представлен на рисунке 2.9.5. На рабо-
чем поле программы представлены два основных визуальных элемента
панель управления и графическая мнемосхема стенда. Панель управ-
ления содержит все необходимые компоненты для работы со стендом,
такие как выбор формы и уровня задающего сигнала на регулируемый
электропривод, нагрузка, сохранение полученных результатов в журнал,
настройка порта связи персонального компьютера с контроллером,
справка о работе с программой.
92