Данная программа считает расстояние между двумя точками с известными географическими координатами. Вычисления идут по формуле:

 

источник

 

$sim

dim fi1 as single  '  начальная координата по широте
dim fi2 as single  ' конечная координата по широте
dim ta1 as single  ' начальная координата по долготе
dim ta2 as single  ' конечная координата по долготе
'*** все координаты должны быть преобразованы в радианы


dim SIGMA as single 'разница координат по долготе
dim nst1 as single ' переменные для предварительных преобразований
dim nst2 as single
dim nst3 as single

dim result as single 'результат

'тестовые координаты
'**********
fi1=53.8798
fi2=53.0541
ta1=50.0019
ta2=51.0051
'**********

fi1 = deg2rad(fi1)
fi2 = deg2rad(fi2)
ta1 = deg2rad(ta1)
ta2 = deg2rad(ta2)

if ta2>ta1 then
sigma =ta2-ta1
else
sigma=ta1-ta2
end if

'1
Nst1 = cos(fi2)
nst2 = sin(sigma)
nst3=nst1*nst2
result=nst3^2

'2
nst1 = cos(fi1)
nst2=sin(fi2)
nst3=nst1*nst2

'3
nst1=sin(fi1)
nst2=cos(fi2)
nst1=nst1*nst2
nst2=cos(sigma)
nst1=nst1*nst2

'4
nst2=nst3-nst1
nst2=nst2^2
result = result + nst2
result=sqr(result)

'5
nst1=sin(fi1)
nst2=sin(fi2)
nst3=nst1*nst2

'6
nst1=cos(fi1)
nst2=cos(fi2)
nst1=nst1*nst2
nst2=cos(sigma)
nst1=nst1*nst2
nst3=nst3+nst1

'7
result=result/nst3
result=atn(result)
result=result*6372795 'результат в метрах


print result

end

 

 


координаты, расстояние, теорема гаверсинусов, bascom-avr

   EasyEDA:  бесплатный редактор схем

   ✓ Создание схем
   ✓ Возможность симуляции
   ✓ Быстрое создание печатных плат
   ✓ Интуитивно понятный интерфейс

   Нарисуй свою схему прямо сейчас!
   Изготовление печатных плат   https://easyeda.com/order

авторизация
Логин:
Пароль:
Комментарии
Встраиваемый модуль радиоуправления на nRF24L01
21.10.2017 - exersizze:
Алгоритм включения прописан в подпрограмме Logic2, странно что у вас не включает...
Программатор USBASP
21.10.2017 - exersizze:
я свой первый usbasp программировал через LPT порт и программу Ponyprog, поэтому...
Программатор USBASP
20.10.2017 - mozga:
всем привет. вопрос:получается,сделанный(спаянный) программатор на atmega8 в это...
Встраиваемый модуль радиоуправления на nRF24L01
19.10.2017 - amg_84:
Подскажите, пожалуйста. Режим 2. Повторное нажатие любой клавиши пульта не приво...
Бесконтактный датчик температуры MLX90614
18.10.2017 - exersizze:
а с обратной стороны, подключение дисплея не видно.
Бесконтактный датчик температуры MLX90614
18.10.2017 - TSL:
Кинул фото на сюда http://s41.radikal.ru/i093/1710/0b/6064b20c764a.jpg
Пр...
Бесконтактный датчик температуры MLX90614
17.10.2017 - TSL:
Хорошо, завтра сфоткаю. Кину на хостинг или на тот-же сайт Паяльник.
Бесконтактный датчик температуры MLX90614
17.10.2017 - exersizze:
Вроде верно, я тоже использовал мегу в дип корпусе (а схема для tqfp, да)
...
Бесконтактный датчик температуры MLX90614
16.10.2017 - TSL:
exersizze спасибо что вы хоть отвечаете. Создал тему на Паяльнике, но пока там т...