\lambda_1 + \tan^{-1}_* \frac{\left(\sin theta \cdot \sin delta\right) \cdot \cos \phi_1}{\cos delta - \sin \phi_1 \cdot \sin \left(\sin^{-1} \left(\sin \phi_1 \cdot \cos delta + \left(\cos \phi_1 \cdot \sin delta\right) \cdot \cos theta\right)\right)}double f(double lambda1, double phi1, double __attribute__((unused)) phi2, double delta, double theta) {
double r8335 = lambda1;
double r8336 = theta;
double r8337 = sin(r8336);
double r8338 = delta;
double r8339 = sin(r8338);
double r8340 = r8337 * r8339;
double r8341 = phi1;
double r8342 = cos(r8341);
double r8343 = r8340 * r8342;
double r8344 = cos(r8338);
double r8345 = sin(r8341);
double r8346 = r8345 * r8344;
double r8347 = r8342 * r8339;
double r8348 = cos(r8336);
double r8349 = r8347 * r8348;
double r8350 = r8346 + r8349;
double r8351 = asin(r8350);
double r8352 = sin(r8351);
double r8353 = r8345 * r8352;
double r8354 = r8344 - r8353;
double r8355 = atan2(r8343, r8354);
double r8356 = r8335 + r8355;
return r8356;
}
Please include this information when filing a bug report:
herbie shell --seed 2019194 +o rules:numerics
(FPCore (lambda1 phi1 phi2 delta theta)
:name "Destination given bearing on a great circle"
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))
| result arity mismatch; expected number of values not received expected: 2 received: 1 in: local-binding form values...: 0 | L | C | |
|---|---|---|---|
| loop | /data/pavpan/nightlies/herbie/various-cleanup/src/core/extraction.rkt | 25 | 2 |
| (unnamed) | /data/pavpan/nightlies/herbie/various-cleanup/src/core/simplify.rkt | 26 | 0 |
| simplify! | /data/pavpan/nightlies/herbie/various-cleanup/src/mainloop.rkt | 220 | 0 |
| run-improve47 | /data/pavpan/nightlies/herbie/various-cleanup/src/mainloop.rkt | 342 | 0 |
| (unnamed) | /opt/racket-7.0/collects/racket/private/more-scheme.rkt | 261 | 28 |
| run | /opt/racket-7.0/share/pkgs/profile-lib/main.rkt | 39 | 2 |
| profile-thunk16 | /opt/racket-7.0/share/pkgs/profile-lib/main.rkt | 9 | 0 |
| (unnamed) | /opt/racket-7.0/collects/racket/private/more-scheme.rkt | 261 | 28 |