Asteroid apparent semidiameter in radians from diameter d (km) and distance delta (AU).
d
delta
double asteroidSemidiameter(double d, double delta) { return secToRad(0.0013788 * d / delta); }