declination ( timestamp -- radians )

Vocabulary

calendar.private

Inputs

timestamp

an object

Outputs

radians

an object

Definition

USING: math math.functions ;

IN: calendar.private

:: declination ( timestamp -- radians )
    timestamp fractional-year :> γ 0.006918 0.399912 γ cos * -
    0.070257 γ sin * + 0.006758 γ 2 * cos * - 0.000907 γ 2 *
    sin * + 0.002697 γ 3 * cos * - 0.00148 γ 3 * sin * + ;