Вычисление расстояния по дуге земного шара
Главная / ЭКВМ / Программы для ЭКВМ / БРП-4

Программа вычисляет расстояние по дуге земного шара р между точками М1 (φ1, Θ1) и М2 (φ2, Θ2) в приближенной к сферической модели Земли.

Расстояние определяется по формуле р = с*arccos(sinΘ1*sinΘ2 + cosΘ1*cosΘ2*cos(φ1 - φ2)), с = 111,2 км, где φ - долгота точки (-180° ≤ φ < 0° - восточная, 0° ≤ φ ≤ 180° - западная); Θ - широта точки -90° ≤ Θ < 0° - южная, 0° ≤ Θ ≤ 90° - северная).

Исходные данные (в градусах) заносятся в ячейки памяти:

φ1 → П7, Θ1 → П8, φ2 → П4, Θ2 → П5.

Результат вычислений (р, км) отображается на дисплее.

Инструкция по пользованию программой для МК-52 с БРП-4

  • 1. Наберите адрес 1309428 и введите программу, нажав клавиши А↑, ↑↓.
  • 2. Установите переключатель Р/ГРД/Г в положение Г.
  • 3. Введите исходные данные.
  • 4. Включите счет, нажав клавиши В/0, С/П. Время вычисления около 10 с.
  • 5. Считайте результат.
  • 6. Для повторного запуска программы повторите пп.2-5.

Инструкция по пользованию программой для ЭКВМ

  • 1. Загрузите программу с нулевого адреса.
  • 2. Кнопкой Р-ГРД-Г установите размерность "Г" - градусы.
  • 3. Введите исходные данные.
  • 4. Включите счет, нажав клавиши В/0, С/П.
  • 5. Считайте результат.
  • 6. Для повторного запуска программы повторите пп.2-5.

Тестовые примеры

1. φ1 = 0, Θ1 = 0, φ2 = 1, Θ2 = 0, р = 111,2 км. 2. φ1 = 158,7; Θ1 = 53,04 (местонахождение г.Петропавловска-Камчатского); φ2 = -118,64; Θ2 = 33,91 (местонахождение г.Лос-Анджелеса). р = 6601,6 км (расстояние между городами Петропавловском-Камчатским и Лос-Анджелесом).

Программа "Вычисление расстояния по дуге земного шара"

Программа 49 из блока расширения памяти БРП-4, переключатель "1/2" блока в положении "2", адрес 1309428.

Файл brp4-49.mkp (КС 19342/92)

  0 1 2 3 4 5 6 7 8 9
00 ИП 7 ИП 4 - F cos ИП 8 F cos × ИП 5 F cos ×
10 ИП 8 F sin ИП 5 F sin × + F arccos 1 1 1
20 , 2 × С/П 0 0 0 0    

Исходный текст для кросс-компилятора

Файл brp4-49.mkl

.CHARSET 1251

; БРП-4
; 49. Вычисление расстояния по дуге земного шара (2 - 1309428)

.ORG 0
	RM 7
	RM 4
	-
	F COS
	RM 8
	F COS
	*
	RM 5
	F COS
	*
	RM 8
	F SIN
	RM 5
	F SIN
	*
	+
	F ARCCOS
	111,2 *
	R/S
	0000
.END

Примечания

1. Считывание программ из БРП в МК-52 производилось блоками по 7 байт. Неиспользуемые команды в конце программы оставлены для совместимости и используются при подсчёте контрольной суммы.

2. Существует аналогичная по выполняемым функциям программа, отличающаяся способом ввода данных.
НПП "СЕМИКО" (383) 271-01-25 (многоканальный)