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

[Gil]

Added mean and apparent sideral time/angle
in this new version Xi2.

Code relative to sideral time/angle :
\<< "
2 Inputs
:
. 
y.mmdd

. 
h.mmsss 
[in TU ]
" DROP SWAP 0 \->T '8640184*T+.812866*T+.093104*T^2-.0000062*T^3' \->NUM 86400 MOD 3600 / \->HMS 6.415054841 HMS+ 4 ROLL DROP 5 ROLL DUP 5 ROLLD HMS\-> 1.00273790935 * \->HMS HMS+ 24 MOD "Green.MEAN.Sid h's" \->TAG 5 ROLL 5 ROLL \->\Ge 25 DROPN 5 ROLLD 5 ROLLD DUP \Ge80 COS \GD\16580 15 / * HMS+ "w/Theory 1980" \->TAG "Green.APP.Sid h's" SWAP 3 PICK \Ge03.00 COS \GD\16500 15 / * HMS+ "w/Theory 2000/03" \->TAG DUP2 6 PICK SWAP R\->C 'SID00' STO 5 PICK SWAP R\->C 'SID80' STO
\>>