• R/O
  • HTTP
  • SSH
  • HTTPS

Tags
No Tags

Frequently used words (click to add to your profile)

javac++androidlinuxc#windowsobjective-ccocoa誰得qtpythonphprubygameguibathyscaphec計画中(planning stage)翻訳omegatframeworktwitterdomtestvb.netdirectxゲームエンジンbtronarduinopreviewer

Functions for working with the idealized calendar of Planet Xhilr


File Info

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.
The assembler I use to assemble it is here:
https://sourceforge.net/p/asm68c/wiki/Home/
and it can be run on Joe H Allen's exorsim v. 1.1.
Surprisingly, the High-level Forth version is only around twice as slow as the assembler-level version (because it only uses right-shifts).

Content

( 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 + ;