END_TEST
START_TEST(zenith_pa)
{
test_pa (0, -39.5, 180, -1316.750118);
test_pa (0, -39.5 + 2 / 60.0, 180, -1234.455394);
test_pa (0, -39.5 - 2 / 60.0, 180, -1410.801390);
test_pa (0 + 2 / 60.0, -39.5, 177.076456, -1313.287352);
test_pa (0 - 2 / 60.0, -39.5, -177.076456, -1313.287352);
test_pa (15, -39.5, 97.280406, 2.350959);
test_pa (15, -39.5 - 2 / 60.0, 97.118261, 2.517749);
test_pa (15, -39.5 + 2 / 60.0, 97.442431, 2.184371);
test_pa (15 + 2 / 60.0, -39.5, 97.285642, 2.362140);
test_pa (15 - 2 / 60.0, -39.5, 97.275194, 2.339706);
}
END_TEST
START_TEST(derotator_2)
{
test_pa (1, -40, 0, 4.8211);
test_pa (-1, -40, 0, 4.8211);
test_pa (0, -39.99, 180, -65836.6706);
test_pa (0, -40.01, 0, 65836.6705);
test_pa (0.01, -40.01, 37.4549, 41493.6137);
test_pa (-0.01, -40.01, -37.4549, 41493.6137);
test_pa (0.01, -39.99, 142.5474, -41485.5540);
test_pa (-0.01, -39.99, -142.5474, -41485.5540);
}
END_TEST
START_TEST(derotator_4)
{
test_pa (0, -80, 0, 17.8763);
test_pa (1, -80, 1.1917, 17.8754);
test_pa (-1, -80, -1.1917, 17.8754);
test_pa (15, -80, 17.8120, 17.6857);
test_pa (30, -80, 35.2623, 17.1706);
test_pa (60, -80, 68.1823, 15.7197);
test_pa (90, -80, 98.2901, 14.4650);
test_pa (120, -80, 126.3838, 13.7099);
test_pa (150, -80, 153.4022, 13.3623);
test_pa (179, -80, 179.1154, 13.2682);
test_pa (180, -80, 180, 13.2682);
test_pa (181, -80, -179.1154, 13.2682);
test_pa (210, -80, -153.4022, 13.3623);
test_pa (240, -80, -126.3838, 13.7099);
test_pa (270, -80, -98.2901, 14.4650);
test_pa (300, -80, -68.1823, 15.7197);
test_pa (330, -80, -35.2623, 17.1706);
test_pa (345, -80, -17.8120, 17.6857);
}
END_TEST
START_TEST(derotator_3)
{
test_pa (15, -40, 94.8371, 4.8695);
test_pa (30, -40, 99.7724, 5.0181);
test_pa (60, -40, 110.3605, 5.6497);
test_pa (90, -40, 122.7324, 6.8227);
test_pa (120, -40, 138.0698, 8.6105);
test_pa (150, -40, 157.3709, 10.6542);
test_pa (179, -40, 179.2221, 11.6666);
test_pa (180, -40, 180, 11.6679);
test_pa (181, -40, -179.2221, 11.6666);
test_pa (210, -40, -157.3709, 10.6542);
test_pa (240, -40, -138.0698, 8.6105);
test_pa (270, -40, -122.7324, 6.8227);
test_pa (300, -40, -110.3605, 5.6497);
test_pa (330, -40, -99.7724, 5.0181);
test_pa (345, -40, -94.8371, 4.8695);
}
void test_pointers_arrays()
{
printf("\tTesting Pointers and Arrays...\n\n");
test_pa();
}
