Lunar and Solar Eclipses

Contributions to this software library are always welcome. Please ensure that you post program listings rather than .raw files. They give a reasonable idea of what your program does without having to load them into a DM42 and you can also include comments in your code. Check out the following link for a decoder/encoder: https://technical.swissmicros.com/decoders/dm42/

You can then copy/paste the listing and post it in "code" tags.
Post Reply
Josef
Posts: 24
Joined: Sun Sep 08, 2019 12:25 pm

Lunar and Solar Eclipses

Post by Josef »

Program for calculation eclipses has an accuracy of a few minutes for dates between 1000 and 3000 years, but you can calculate also 2000 b.c. (-2000). I took partially algorithms from Jean-Marc Baillard, with his kind permission.

Flag:
F02 is set to indicate a Hybrid ( solar ) eclipse.
F04 is set to a list for one eclipse (set automaticly after first run the program)
F04 is clear to a list of incoming nine eclipses


For a Lunar Eclipse:

m = magnitude of the umbral eclipse m , m' > 1 for a total eclipse, if m < 0 there is no umbral eclipse
m' = magnitude of the penumbral eclipse m , m' < 1 for a partial eclipse

For a Solar Eclipse:

m = magnitude of the eclipse m > 1 for a total or hybrid eclipse m < 1 for a partial eclipse

m' = 0 for a partial eclipse
m' = 1 for an annular eclipse
m' = m for a total or hybrid eclipse

Instructions for using the program:

XEQ "ImpElc"
DATE YYYY.MMDD (for example 2012.0501)
Input the approximate date of a possible eclipse
HOUR HH.MM (for example 1)
Input the approximate hour of a possible eclipse
LAT. 0=skip (for example 14.52), West has sign minus.
Input Latitude (DD.MMSS) or skip if you made that (push R/S)
LONG. (for example 50.15)
Input Longitude (DD.MMSS)

Now you can see first eclipse the first possible date of the eclipse.
YYYY.MNDD is the date of the eclipse
HH.MNSS is the time of maximum eclipse
.
Image
Image
Image

List of eclipses (Flag 04 is clear)
.
Image

This is eclipse compute by AlmSun software.
.
Image
Attachments
eclipse.raw
(6.27 KiB) Downloaded 169 times
Last edited by Josef on Wed Mar 31, 2021 7:12 am, edited 2 times in total.
User avatar
salvomic
Posts: 186
Joined: Sat Dec 30, 2017 10:09 am
Location: Ragusa, Sicily
Contact:

Re: Lunar and Solar Eclipses

Post by salvomic »

nice!
Very compliments.
Salvo
∫aL√0mic (IT9CLU) :: DM42 (SN: 00881), DM41X (SN 00523), DM16, HP Prime, 50g, 41CX, 42s, 71b, 15C, 12C, 35s, WP34s -- Free42
Josef
Posts: 24
Joined: Sun Sep 08, 2019 12:25 pm

Re: Lunar and Solar Eclipses

Post by Josef »

Thank you Salvo!!
Post Reply