Sun amd Moon data for GPS Programs

Stellaferox

Active Member
Licensed User
Hi,

Thnx for the application. I use the mathematical algoritm on AstronomieAntwoorden: Zonnepositie
in Excel. It is very precise. If there is sufficient demand I will implement it in B4PPC.
For those non-dutchies out there, unfortunately in Dutch, but with a little effort workable.
Marc
 

Stellaferox

Active Member
Licensed User
Hi all,

I am posting a very simple calendar application which was posted a while ago. It just displays a datepicker and underneath the code is the translated page of the Dutch site mentioned in the post above as commented text.
Also copied is the text of the earlier mentioned algorithm.
The translations are not always the most logical because of the automatic Windows Explorer translator.
Have fun!
Marc
 

Stellaferox

Active Member
Licensed User
Hi all,

For those interested: Astronomy Answers: Position of the Sun also has an english translation. Just scroll down the page and bottomleft is a choice for languages. The postions computed with these formulas are very accurate.
Marc

PS: I attached a little program that computes the time of sunrise, noon and sunset for a given position (definition in Globals).
 

Attachments

  • Calendar2.sbp
    7.3 KB · Views: 409
Last edited:

pilot324

New Member
I tried your software. I think it is inspired by a Sky & Telescope pub 1989. Anyway, I got stucked
Hello,
I tried your Astro3.zip
I believe it is inspired by a SkY & Telescope publication in 1989.

Anyway, I get stuck always on the same line, in the" Position loop sub"
The value of Ma(2,3), in the line
Z1 = R1 * (90.567 - 41.685 / Ma(2, 3))
is always nil, equals to zero.

I would really appreciate if someone could have a look at this.

Thank you

For i = 1 To 3
x495
Ma(i, 1) = A5
Ma(i, 2) = D5
Ma(i, 3) = R5
T = T + 0.5
Next
If Ma(2, 1) <= Ma(1, 1) Then
Ma(2, 1) = Ma(2, 1) + P2
End If
If Ma(3, 1) <= Ma(2, 1) Then
Ma(3, 1) = Ma(3, 1) + P2
End If
Z1 = R1 * (90.567 - 41.685 / Ma(2, 3))
 
Cookies are required to use this site. You must accept them to continue using the site. Learn more…