Functions for working with the idealized calendar of Planet Xhilr
Rev. | c9ca731a29c3838146d1e7e85626e1273ae7ca7f |
---|---|
크기 | 1,163 bytes |
Time | 2017-06-17 10:35:04 |
Author | Joel Matthew Rees |
Log Message | UD/MOD double integer division in M6800 assembler within figForth.
|
( But they have two moons. Did I mention that? )
( The smaller moon orbits their earth in just under seven and an eighth days, )
( About forty-nine and a half lunar weeks a year )
( and their larger moon orbits it in about twenty-eight and seven eighths days. )
( and about twelve and {rep}two{w}one{rep.} fifths lunar months each year.)
( 352 485/686 days -- about 352.7070 )
(
year = 352 + 485/686
year
352.70699708454810495626
smallmontha = 7+1/8
smallmontha
7.12500000000000000000
smallmonthb = year/49.5
smallmonthb
7.12539388049592131224
year/49.4
7.13981775474793734729
year/49.6
7.11102816702717953540
year/7.120
49.53749959052641923542
6/49
.12244897959183673469
longmonth=28+7/8
longmonth
28.87500000000000000000
longmontha=28+7/8
longmonthb=year/12.4
longmonthb
28.44411266810871814163
year/longmontha
12.21496093799300796385
)
( xhilr revolves in retrograde around their sun )
( fastmoon is in prograde orbit with xhilr and tidelocked, )
( slowmoon is retrograde orbit with xhilr and not tidelocked, retrograde rotation in equilibrium with slowmoon )
( Full double solar eclipse on death? )
: U/R >R R U/ SWAP 2 * 0 R> U/ SWAP DROP + ;