Алгоритм работы программы «Двухполюсник»
Начало
Нет
Калибровать?Ввод из
Да ИБДТPR1, Ввод f, Rk
Расчет fk, b, Ck, Lk, Zk
Данные
Проверить Нет калибровки в Нет
тестер? ИБДТ записать?Массив данных Запись в
многократных ИБДТ
измерений одного образцаобработка
результатов
Измерения
выполнять?Режим Да Нет
нормальный?Да
Нет Измерение партииУстановите и устра- образцов и выдача
ните причины результатов на
нестабильности дисплейНет Запись в
ИБДТ? ДаЗапись в
ИБДТ
Конец
Данная программа, также как и вышеописанная, является составной частью пакета программ для снятия параметров радиоэлементов. Данная программная часть является реализацией алгоритма по измерению четырехполюсников. Программа построена в соответствии с концепцией структурного программирования с реализацией обмена с базой данных радиоэлементов. Одной из отличительных особенностей программы является возможность сохранения данных калибровки на магнитном носителе при соответствующе настроенной аппаратной части, что приводит к значительному уменьшению времени на измерение элементов.
Программа формально разбита на несколько частей. Одна из основных частей осуществляет взаимодействие с интерфейсом связи через последовательный порт персонального компьютера типа IBM-PC, в связи с этим были использовано непосредственное программирование порта через функции BIOS’а с программированием на языке низкого уровня - ассемблера. Часть осуществляющая большое количество математических вычислений реализована полностью на Pascal’е с использованием объектно-ориентированной математической библиотеке из комплекта поставки объектно-ориентированной библиотеке Turbo-professional.
Листинг программы представлен в прил.21, а алгоритм программы на рис.17. В связи с большим объемом программы, алгоритм представлен с низкой детализацией.
Алгоритм программы для измерения четырехполюсников
Нет
КалиброватьФК2-12?
ДаPR1
Расчет fk, b
ИГ Нет
калибровать?Ввод f[3],rk[2] файла с данными
Расчет ck1[3],ck2[3],lk[3] калибровки
lk2[3],yk1[3],yk2[3]PRX (Опыты Х.Х.)
В пространстве f[3]
Расчет ka1[2,3],ka2[2,3]
k01[2,3],k02[2,3],k0[2,2,3]
Занести Нет
результаты вИБДК?