Home
JAQForum Ver 20.06
Log In or Join  
Active Topics
Local Time 12:36 03 May 2024 Privacy Policy
Jump to

Notice. New forum software under development. It's going to miss a few functions and look a bit ugly for a while, but I'm working on it full time now as the old forum was too unstable. Couple days, all good. If you notice any issues, please contact me.

Forum Index : Microcontroller and PC projects : MMX/RPI/DOS - geodetic coordinates

Author Message
cdeagle
Senior Member

Joined: 22/06/2014
Location: United States
Posts: 261
Posted: 06:15am 31 Jul 2017
Copy link to clipboard 
Print this post

' program demo_geodetic.bas July 30, 2017

' this program demonstrates the proper method for
' interacting with several MMBASIC subroutines
' that perform geocentric to/from geodetic
' coordinate conversions

' MMX, RasPi and DOS version


geodetic and geocentric coordinate conversions
----------------------------------------------

please input the geocentric radius (kilometers)
? 8000

please input the geocentric declination (degrees)
? 45

please input the geocentric east longitude (degrees)
? 100


sub geodet1.bas
(geocentric-to-geodetic - series solution)
------------------------------------------

geocentric radius = 8000.0000 kilometers

geocentric declination = 45.0000 degrees

geodetic altitude = 1632.5720 kilometers

geodetic latitude = 45.1532 degrees


sub geodet2.bas
(geocentric-to-geodetic - Borkowski solution)
---------------------------------------------

geocentric radius = 8000.0000 kilometers

geocentric declination = 45.0000 degrees

geodetic altitude = 1632.5720 kilometers

geodetic latitude = 45.1532 degrees


sub geodet3.bas
(geodetic coordinates to ecf position vector)
---------------------------------------------

ecf x-position = -982.3024 kilometers

ecf y-position = 5570.9139 kilometers

ecf z-position = 5656.8542 kilometers

geocentric radius = 8000.0000 kilometers

geocentric declination = 45.0000 degrees

geodetic altitude = 1632.5720 kilometers

geodetic latitude = 45.1532 degrees

east longitude = 100.0000 degrees


sub geodet4.bas
(geodetic-to-geocentric - series solution)
------------------------------------------

geocentric radius = 7999.9999 kilometers

geocentric declination = 45.0000 degrees

geodetic altitude = 1632.5720 kilometers

geodetic latitude = 45.1532 degrees


sub ecf2geodet.bas
(ecf position vector-to-geodetic coordinates)
---------------------------------------------

ecf x-position = -982.3024 kilometers

ecf y-position = 5570.9139 kilometers

ecf z-position = 5656.8542 kilometers

geocentric radius = 8000.0000 kilometers

geocentric declination = 45.0000 degrees

geodetic altitude = 1632.5720 kilometers

geodetic latitude = 45.1532 degrees

east longitude = 100.0000 degrees



2017-07-31_161511_demo_geodetic.zip

 
Print this page


To reply to this topic, you need to log in.

© JAQ Software 2024