Файл: Коваль Л.А. Автоматизированная система обработки данных магниторазведки с применением ЭВМ (АСОМ-АМ).pdf

2. 5360-5507. Преобразование (параллельный перенос) коорди­ нат, отметка и подпись углов планшета. Формируются четыре угло­ вых точки планшета. Для этих точек определяются их исходное координаты, производится рисование "рисок" на N (исходный х )

и 0 (исходный у ) и подписывание исходных координат. Используют­ ся СП: 18, 19 - "Линия" и "Надпись"; I I - перевод 2—10 с кодо­ вой запятой и заданно-'» точностью.

3. 5510-5650, 5702-5704. ьаполнение планшета. Для всех про­ филей по каталогу определяются отрезки, принадлежащие планшету, причем в отрезки включаются по одной точке с обеих сторон, при­ надлежащих соседним планшетам (если таковые тлеются).

Рисование графиков или пересечений изолиний с профилями (см. ниже). Надписывание номеров профилей - всегда справа.Обычно надпись помещается ниже профиля, но если у профиля есть где-либо повторение ниже по КАТАЛОГУ, то номер размещается выше профиля. Используются СП: 17-"Точка и прямоугольник"; 7 - обмен с НМЛ; 6 - исправление уровня; 15 - "График" (если план графиков); 18, 19 - "Линия", "Надпись".

4. 5651-5701. Суммируется и переписывается на ленту Д0ПИНФ-4, который меняется при рисовании каждого планшета за счет новых точек - левых верхних в нем (и,соответственно, всех других). Проверка - дошли ли точки до края участка по у я по х одновременно. Если не дошли, то подготавливается черчение нового планшета засылкой в 15260 и I526I координат новой левой верхней точки и останов СчАК 5676. Сменить бумагу в АТЛАСЕ, перописец в левый нижний угол, включить АТЛАС - пускУправление будет переда­ но на блок 2. Если планшет был последним - останов СчАК 5702. Используется СП-7 - обмен с НМЛ.

5. 5710-5757. Легенда к изолиниям.- Выход на этот блок осу­ ществляется из первого блока. Ниже заголовка первого планшета в несколько строк рисуются обозначения изолиний. Максимальное чис­ ло изолиний, которое можно задать для рисования плана пересече­ ния изодднам с профилями, - двадцать одно. Изолинии обозначаются буквами русского алфавита в том порядке, в каком они заданы (рис. 23). Используются СП: 18, 19 "Линия", "Надпись",

6. 5760-6027. Заполнение ошибок". Настоящий блок строго не принадлежит только программе ПЕРО-7. Он используется и в других программах и поэтому оформлен в стиле СП. В блоке производится занесение т место ошибки в профиле значения, получающегося

64

Х-9300 И»9300

79851

78801

79751

Рис. 20. Фрагмент плана графиков д Т (тот же, что и на рис. I . ) после раость блока "Забивание ошибок"

9-2L У

65

линейной интерполяцией между ближайшими верными точками. Ошибки, находящиеся на краю профиля, заменяются ближайшим верным значе­ нием (ограшг-ение: не должно быть целиком ошибочного профиля).

Перед обращением к блоку (-31 00 5760 0013) в 0073 зано­ сится код + n - I 0000 0000, где п - число точек на профиле, а сам профиль должен находиться в ячейках МОЗУ, начиная с 1500. Ис­ пользуются индексные ячейки 0013-0017, последняя при обращении к СП-12 - линейная ши'ерполяция.

7. 6030-43204. Пересечение изолиний с профилями. На этот блок управление передается из блока 3. При вычерчивании пересечений из профиля (во избежание наложений) исключаются отрез-.си, повторенные х'де-либо другими профилями в нижней части КАТАЛОГА. Перед рисова­ нием пересечений на профиле с помощью блока 6 "га^тся" ошибки, "Риски" и надписи к ним чертятся с "миганием", т.е. если предыду­ щая "риска" была прочерчена внизу, а надпись к пей сверху от про­ филя, то следующая чертится вверх, а надпись к ней снизу от про­ филя. Редкие исключения от этого правила могут быть в случае, если иежду двумя соседними; точками размещается большое число изо линий. Используются СП: 18, 19 - "Линия", "Надпись"; 12 - линей­ ная интерполяция. Блоки 5, 6, 7 в ПЕРО-6 не используются.

3. ПЕР0-Э (ячейки 6300-6457)

"Забивание" ошибок, отмеченных визуально, кодами ошибок. "Забивание" ошибок производится в любой момент после KO'i-роля только на числовых профилях ЛПМ I . Программ? использует также (для возобновления программы) ЛПМ 0. После ПЕРО-9 можно переде­ лать и контроль (ПЕРО-5).

1. 6300-6312. Ввод числового материала с контролем (длина

2.6313-6340. Распечатка Мемориала с контролем - есть ли среди числового материала нуля. Если есть, то печатается (восьме­ рично) число этих нулей и останов СчАК 6333 - с заикой. Вызов ДОПИНФА-3 при нормальной работе.

3.634J-64I4. Поиск в КА'ГАЛОГВ соответствующих профилей. Если номер не найден, то останов СчАК 6352 с замкои. Последним числом в распечатке будет номер ненайденного профиля. Прч кор-

69