(50g) Week day / Season begin / Mean / True ecliptic / Julian Day / Astron Nutation

[Gil]

New Version 7

Calculates now also the day of the week.
0 stands for Sunday, 1 for Monday..., 6 for Saturday.

Give as single input:
yyyy.mmdd

and press —>WK.D

Works for year -4712 to "no limit" in the future.

It uses the Julian day and the code is the following :
\<< "
1 Input
:

yyyy.mmdd

" DROP 0 \->JD DROP UNROT DROP2 2 + 7 MOD
\>>

Can be used with an ASN User Key, to get an answer from any place/Directory you are working on.
For instance, in my case:
\<< PATH \-> p
\<< HOME HOME1 EARTH EPHEM \->WK.D p EVAL
\>>
\>>

As usual copy the full file/directory ended by .doc and attached here into your (phone) HP49-50G calculator.

Regards,
Gil