int main(){ V6 v6; v6 = v6init(SPHERICAL); v6SetR(v6, 1e9); v6SetAlpha(v6, h2r(20.0)); v6SetDelta(v6, d2r(40.0)); v6 = v6s2c(v6); v6 = v6c2s(ellab(J2000, v6, -1)); printf("X %.9f \tY %.9f \tZ %.9f \nXDOT %.9f \tYDOT %.9f \tZDOT %.9f\n", v6GetX(v6), r2h(r2r(v6GetY(v6))), r2d(r2r(v6GetZ(v6))), v6GetXDot(v6), v6GetYDot(v6), v6GetZDot(v6)); return 0; }
void test8() { printf("\ntesting n-ary array functions: g(), h() ...\n"); int32_t n; printf("\ncreating A...\n"); A * a = new A(); const A * ac = a; h0(); h1(1); h2(1, 2); h3(1, 2, 3); n = h0r(); assert(n == 0); n = h1r(1); assert(n == 1); n = h2r(1, 2); assert(n == 3); n = h3r(1, 2, 3); assert(n == 6); ac->g0c(); ac->g1c(1); ac->g2c(1, 2); ac->g3c(1, 2, 3); a->g0(); a->g1(1); a->g2(1, 2); a->g3(1, 2, 3); n = ac->g0rc(); assert(n == 0); n = ac->g1rc(1); assert(n == 1); n = ac->g2rc(1, 2); assert(n == 3); n = ac->g3rc(1, 2, 3); assert(n == 6); n = a->g0r(); assert(n == 0); n = a->g1r(1); assert(n == 1); n = a->g2r(1, 2); assert(n == 3); n = a->g3r(1, 2, 3); assert(n == 6); printf("delete A...\n"); delete a; }