Eliminating JD: iau2000b

This commit is contained in:
Don Cross
2019-04-15 10:19:58 -04:00
parent 938942c86a
commit 3fc64bec77
2 changed files with 6 additions and 6 deletions

View File

@@ -288,14 +288,14 @@ var cls_t = [
[ 1290.0, 0.0, 0.0, -556.0, 0.0, 0.0]
];
function iau2000b(jd_high, jd_low) {
function iau2000b(time) {
var i, t, el, elp, f, d, om, arg, dp, de, sarg, carg;
function mod(x) {
return (x % ASEC360) * ASEC2RAD;
}
t = ((jd_high - T0) + jd_low) / 36525.0;
t = time.tt / 36525;
el = mod(485868.249036 + t * 1717915923.2178);
elp = mod(1287104.79305 + t * 129596581.0481);
f = mod(335779.526232 + t * 1739527262.8478);
@@ -317,7 +317,7 @@ function iau2000b(jd_high, jd_low) {
}
function nutation_angles(time) {
var nut = iau2000b(T0, time.tt);
var nut = iau2000b(time);
return { dpsi: nut.dpsi/ASEC2RAD, deps: nut.deps/ASEC2RAD };
}

View File

@@ -978,14 +978,14 @@ var cls_t = [
[ 1290.0, 0.0, 0.0, -556.0, 0.0, 0.0]
];
function iau2000b(jd_high, jd_low) {
function iau2000b(time) {
var i, t, el, elp, f, d, om, arg, dp, de, sarg, carg;
function mod(x) {
return (x % ASEC360) * ASEC2RAD;
}
t = ((jd_high - T0) + jd_low) / 36525.0;
t = time.tt / 36525;
el = mod(485868.249036 + t * 1717915923.2178);
elp = mod(1287104.79305 + t * 129596581.0481);
f = mod(335779.526232 + t * 1739527262.8478);
@@ -1007,7 +1007,7 @@ function iau2000b(jd_high, jd_low) {
}
function nutation_angles(time) {
var nut = iau2000b(T0, time.tt);
var nut = iau2000b(time);
return { dpsi: nut.dpsi/ASEC2RAD, deps: nut.deps/ASEC2RAD };
}