Автоматизация и техническое обеспечение геофизических исследований.

графопостроителя). Модуль окѵш используетсявпрограмме окнодляопределе­ нияквадрантов, черезкоторыепроходитзаданнаяпрямая. Программа o c n v r t рассчитываеткоэффициентылинейного преобразованияфизическихединицкко­ ординатамграфопостроителя. Нижеописываютсявходныепараметрыобращенияк программамвторогоуровня CALL ОКНО (Х1 , Y 1 , Х2, Y2, KEY). Описаниепараметров хі, Х2 - ( i n t e g e r ), навходе - декартовыкоординатыначалаотрезка прямой, навыходе - координатыначалаотрезкаусеченнойпрямой, которая проходитвнутризаданногопрямоугольника. Х2, Y2 - (INTEGER), координатыконцазаданногоотрезка. Аналогичны описаннымвышекоординатамХ1, Х2. key - (INTEGER), рекимчерченияотрезка. Есливходное значение KEY— 1, тоусечение отрезковпроисходит безвыполнениячерчения. Выходное значение key=o .обозначает, чтоотрезокнаходитсязапределамизаданногопрямоуголь­ ника, выходное значение key*i означает, чточастьиливесь отрезокнакла­ дываетсяназаданныйпрямоугольник. Указанныйпрямоугольникназывается "ок­ ном" изадаетсяспомощьюобщех’облока/outer/ CALL OKVDR (X, Y, IX, IY). Описаниепараметров x, Y * ( h e a l ),входные декартовыкоординатыточки. IX,IY - ( i n t e g e r ), выходные значения, указывающие областьплоскости, вкоторой находитсявходнаяточка. Всяплоскостьразделенанадевятьоблас­ тей. Однаиз них - прямоугольник, вкоторойотображаетсячертеж, остальные восемьобластей образуютсяприпродолжениивоѳх сторонуказанногопрямоуголь­ ника. Описаниепараметров х,Y - ( r e a l ), входныедекартовыкоординатные точки. хх,Y¥ - (real), выходные координатыточкидляграфопостроителя. Получа­ ютсяиз е х о д н ы х координатХ,У линейнымпреобразованием: ХХ=АК+Х+ВХ, УУ=АУ+У+ВУ. Длятого, чтобыпривыводе награфопостроитель ошибки преобра­ зованияне накапливались, результатыокругляютсядоцелыхединицXX иУУ. CALL OPLOT (X, Y, KEY). Описаниепараметров х,Y - ( h e a l ), координатыточки, выводимой наэкранграфопостроителя. Твердаякопиякадра геомагнитной обстановки. По­ казанораспределение эквива­ лентных токовыхвекторов, положениеэлектроструиигра­ фикинтенсивноститока. I8