7 #define ADT_RAD Sacado::Rad::
49 botch(
const char *what,
double wanted,
double got)
53 printf(
"%s: expected %g, got %g, diff = %.2g\n", what, wanted, got, wanted-got);
61 const double tol = 5e-16;
105 #ifdef RAD_AUTO_AD_Const
131 double dx, dy,
f, xd, yd;
144 xd = 2.; yd = 3.; f = 0.; dx = 0.; dy = 0.;
149 if (
differ(fA.val(), f))
botch(
"fA = xAI >= yAI", f, fA.val());
150 else if (
differ(xAI.adj(),
dx))
botch(
"d xAI >= yAI/dx", dx, xAI.adj());
151 else if (
differ(yAI.adj(), dy))
botch(
"d xAI >= yAI/dy", dy, yAI.adj());
158 if (
differ(fA.val(), f))
botch(
"fA = xcAI >= yAI", f, fA.val());
159 else if (
differ(xcAI.adj(),
dx))
botch(
"d xcAI >= yAI/dx", dx, xcAI.adj());
160 else if (
differ(yAI.adj(), dy))
botch(
"d xcAI >= yAI/dy", dy, yAI.adj());
168 if (
differ(fA.val(), f))
botch(
"fA = xAI >= ycAI", f, fA.val());
169 else if (
differ(xAI.adj(),
dx))
botch(
"d xAI >= ycAI/dx", dx, xAI.adj());
170 else if (
differ(ycAI.adj(), dy))
botch(
"d xAI >= ycAI/dy", dy, ycAI.adj());
178 if (
differ(fA.val(), f))
botch(
"fA = xcAI >= ycAI", f, fA.val());
179 else if (
differ(xcAI.adj(),
dx))
botch(
"d xcAI >= ycAI/dx", dx, xcAI.adj());
180 else if (
differ(ycAI.adj(), dy))
botch(
"d xcAI >= ycAI/dy", dy, ycAI.adj());
186 if (
differ(fA.val(), f))
botch(
"fA = xAI >= yA", f, fA.val());
187 else if (
differ(xAI.adj(),
dx))
botch(
"d xAI >= yA/dx", dx, xAI.adj());
188 else if (
differ(yA.adj(), dy))
botch(
"d xAI >= yA/dy", dy, yA.adj());
195 if (
differ(fA.val(), f))
botch(
"fA = xcAI >= yA", f, fA.val());
196 else if (
differ(xcAI.adj(),
dx))
botch(
"d xcAI >= yA/dx", dx, xcAI.adj());
197 else if (
differ(yA.adj(), dy))
botch(
"d xcAI >= yA/dy", dy, yA.adj());
205 if (
differ(fA.val(), f))
botch(
"fA = xAI >= ycA", f, fA.val());
206 else if (
differ(xAI.adj(),
dx))
botch(
"d xAI >= ycA/dx", dx, xAI.adj());
207 else if (
differ(ycA.adj(), dy))
botch(
"d xAI >= ycA/dy", dy, ycA.adj());
215 if (
differ(fA.val(), f))
botch(
"fA = xcAI >= ycA", f, fA.val());
216 else if (
differ(xcAI.adj(),
dx))
botch(
"d xcAI >= ycA/dx", dx, xcAI.adj());
217 else if (
differ(ycA.adj(), dy))
botch(
"d xcAI >= ycA/dy", dy, ycA.adj());
223 if (
differ(fA.val(), f))
botch(
"fA = xAI >= yC", f, fA.val());
224 else if (
differ(xAI.adj(),
dx))
botch(
"d xAI >= yC/dx", dx, xAI.adj());
225 else if (
differ(yC.adj(), dy))
botch(
"d xAI >= yC/dy", dy, yC.adj());
232 if (
differ(fA.val(), f))
botch(
"fA = xcAI >= yC", f, fA.val());
233 else if (
differ(xcAI.adj(),
dx))
botch(
"d xcAI >= yC/dx", dx, xcAI.adj());
234 else if (
differ(yC.adj(), dy))
botch(
"d xcAI >= yC/dy", dy, yC.adj());
242 if (
differ(fA.val(), f))
botch(
"fA = xAI >= ycC", f, fA.val());
243 else if (
differ(xAI.adj(),
dx))
botch(
"d xAI >= ycC/dx", dx, xAI.adj());
244 else if (
differ(ycC.adj(), dy))
botch(
"d xAI >= ycC/dy", dy, ycC.adj());
252 if (
differ(fA.val(), f))
botch(
"fA = xcAI >= ycC", f, fA.val());
253 else if (
differ(xcAI.adj(),
dx))
botch(
"d xcAI >= ycC/dx", dx, xcAI.adj());
254 else if (
differ(ycC.adj(), dy))
botch(
"d xcAI >= ycC/dy", dy, ycC.adj());
261 if (
differ(fA.val(), f))
botch(
"fA = xAI >= yAi", f, fA.val());
262 else if (
differ(xAI.adj(),
dx))
botch(
"d xAI >= yAi/dx", dx, xAI.adj());
263 else if (
differ(yAi.aval, dy))
botch(
"d xAI >= yAi/dy", dy, yAi.aval);
271 if (
differ(fA.val(), f))
botch(
"fA = xcAI >= yAi", f, fA.val());
272 else if (
differ(xcAI.adj(),
dx))
botch(
"d xcAI >= yAi/dx", dx, xcAI.adj());
273 else if (
differ(yAi.aval, dy))
botch(
"d xcAI >= yAi/dy", dy, yAi.aval);
281 if (
differ(fA.val(), f))
botch(
"fA = xAI >= ycAi", f, fA.val());
282 else if (
differ(xAI.adj(),
dx))
botch(
"d xAI >= ycAi/dx", dx, xAI.adj());
283 else if (
differ(ycAi.aval, dy))
botch(
"d xAI >= ycAi/dy", dy, ycAi.aval);
291 if (
differ(fA.val(), f))
botch(
"fA = xcAI >= ycAi", f, fA.val());
292 else if (
differ(xcAI.adj(),
dx))
botch(
"d xcAI >= ycAi/dx", dx, xcAI.adj());
293 else if (
differ(ycAi.aval, dy))
botch(
"d xcAI >= ycAi/dy", dy, ycAi.aval);
298 if (
differ(fA.val(), f))
botch(
"fA = xAI >= yd", f, fA.val());
299 else if (
differ(xAI.adj(),
dx))
botch(
"d xAI >= yd/dx", dx, xAI.adj());
305 if (
differ(fA.val(), f))
botch(
"fA = xcAI >= yd", f, fA.val());
306 else if (
differ(xcAI.adj(),
dx))
botch(
"d xcAI >= yd/dx", dx, xcAI.adj());
312 if (
differ(fA.val(), f))
botch(
"fA = xAI >= yL", f, fA.val());
313 else if (
differ(xAI.adj(),
dx))
botch(
"d xAI >= yL/dx", dx, xAI.adj());
320 if (
differ(fA.val(), f))
botch(
"fA = xcAI >= yL", f, fA.val());
321 else if (
differ(xcAI.adj(),
dx))
botch(
"d xcAI >= yL/dx", dx, xcAI.adj());
327 if (
differ(fA.val(), f))
botch(
"fA = xAI >= yi", f, fA.val());
328 else if (
differ(xAI.adj(),
dx))
botch(
"d xAI >= yi/dx", dx, xAI.adj());
335 if (
differ(fA.val(), f))
botch(
"fA = xcAI >= yi", f, fA.val());
336 else if (
differ(xcAI.adj(),
dx))
botch(
"d xcAI >= yi/dx", dx, xcAI.adj());
342 if (
differ(fA.val(), f))
botch(
"fA = xA >= yAI", f, fA.val());
343 else if (
differ(xA.adj(),
dx))
botch(
"d xA >= yAI/dx", dx, xA.adj());
344 else if (
differ(yAI.adj(), dy))
botch(
"d xA >= yAI/dy", dy, yAI.adj());
351 if (
differ(fA.val(), f))
botch(
"fA = xcA >= yAI", f, fA.val());
352 else if (
differ(xcA.adj(),
dx))
botch(
"d xcA >= yAI/dx", dx, xcA.adj());
353 else if (
differ(yAI.adj(), dy))
botch(
"d xcA >= yAI/dy", dy, yAI.adj());
361 if (
differ(fA.val(), f))
botch(
"fA = xA >= ycAI", f, fA.val());
362 else if (
differ(xA.adj(),
dx))
botch(
"d xA >= ycAI/dx", dx, xA.adj());
363 else if (
differ(ycAI.adj(), dy))
botch(
"d xA >= ycAI/dy", dy, ycAI.adj());
371 if (
differ(fA.val(), f))
botch(
"fA = xcA >= ycAI", f, fA.val());
372 else if (
differ(xcA.adj(),
dx))
botch(
"d xcA >= ycAI/dx", dx, xcA.adj());
373 else if (
differ(ycAI.adj(), dy))
botch(
"d xcA >= ycAI/dy", dy, ycAI.adj());
379 if (
differ(fA.val(), f))
botch(
"fA = xA >= yA", f, fA.val());
380 else if (
differ(xA.adj(),
dx))
botch(
"d xA >= yA/dx", dx, xA.adj());
381 else if (
differ(yA.adj(), dy))
botch(
"d xA >= yA/dy", dy, yA.adj());
388 if (
differ(fA.val(), f))
botch(
"fA = xcA >= yA", f, fA.val());
389 else if (
differ(xcA.adj(),
dx))
botch(
"d xcA >= yA/dx", dx, xcA.adj());
390 else if (
differ(yA.adj(), dy))
botch(
"d xcA >= yA/dy", dy, yA.adj());
398 if (
differ(fA.val(), f))
botch(
"fA = xA >= ycA", f, fA.val());
399 else if (
differ(xA.adj(),
dx))
botch(
"d xA >= ycA/dx", dx, xA.adj());
400 else if (
differ(ycA.adj(), dy))
botch(
"d xA >= ycA/dy", dy, ycA.adj());
408 if (
differ(fA.val(), f))
botch(
"fA = xcA >= ycA", f, fA.val());
409 else if (
differ(xcA.adj(),
dx))
botch(
"d xcA >= ycA/dx", dx, xcA.adj());
410 else if (
differ(ycA.adj(), dy))
botch(
"d xcA >= ycA/dy", dy, ycA.adj());
416 if (
differ(fA.val(), f))
botch(
"fA = xA >= yC", f, fA.val());
417 else if (
differ(xA.adj(),
dx))
botch(
"d xA >= yC/dx", dx, xA.adj());
418 else if (
differ(yC.adj(), dy))
botch(
"d xA >= yC/dy", dy, yC.adj());
425 if (
differ(fA.val(), f))
botch(
"fA = xcA >= yC", f, fA.val());
426 else if (
differ(xcA.adj(),
dx))
botch(
"d xcA >= yC/dx", dx, xcA.adj());
427 else if (
differ(yC.adj(), dy))
botch(
"d xcA >= yC/dy", dy, yC.adj());
435 if (
differ(fA.val(), f))
botch(
"fA = xA >= ycC", f, fA.val());
436 else if (
differ(xA.adj(),
dx))
botch(
"d xA >= ycC/dx", dx, xA.adj());
437 else if (
differ(ycC.adj(), dy))
botch(
"d xA >= ycC/dy", dy, ycC.adj());
445 if (
differ(fA.val(), f))
botch(
"fA = xcA >= ycC", f, fA.val());
446 else if (
differ(xcA.adj(),
dx))
botch(
"d xcA >= ycC/dx", dx, xcA.adj());
447 else if (
differ(ycC.adj(), dy))
botch(
"d xcA >= ycC/dy", dy, ycC.adj());
454 if (
differ(fA.val(), f))
botch(
"fA = xA >= yAi", f, fA.val());
455 else if (
differ(xA.adj(),
dx))
botch(
"d xA >= yAi/dx", dx, xA.adj());
456 else if (
differ(yAi.aval, dy))
botch(
"d xA >= yAi/dy", dy, yAi.aval);
464 if (
differ(fA.val(), f))
botch(
"fA = xcA >= yAi", f, fA.val());
465 else if (
differ(xcA.adj(),
dx))
botch(
"d xcA >= yAi/dx", dx, xcA.adj());
466 else if (
differ(yAi.aval, dy))
botch(
"d xcA >= yAi/dy", dy, yAi.aval);
474 if (
differ(fA.val(), f))
botch(
"fA = xA >= ycAi", f, fA.val());
475 else if (
differ(xA.adj(),
dx))
botch(
"d xA >= ycAi/dx", dx, xA.adj());
476 else if (
differ(ycAi.aval, dy))
botch(
"d xA >= ycAi/dy", dy, ycAi.aval);
484 if (
differ(fA.val(), f))
botch(
"fA = xcA >= ycAi", f, fA.val());
485 else if (
differ(xcA.adj(),
dx))
botch(
"d xcA >= ycAi/dx", dx, xcA.adj());
486 else if (
differ(ycAi.aval, dy))
botch(
"d xcA >= ycAi/dy", dy, ycAi.aval);
491 if (
differ(fA.val(), f))
botch(
"fA = xA >= yd", f, fA.val());
492 else if (
differ(xA.adj(),
dx))
botch(
"d xA >= yd/dx", dx, xA.adj());
498 if (
differ(fA.val(), f))
botch(
"fA = xcA >= yd", f, fA.val());
499 else if (
differ(xcA.adj(),
dx))
botch(
"d xcA >= yd/dx", dx, xcA.adj());
505 if (
differ(fA.val(), f))
botch(
"fA = xA >= yL", f, fA.val());
506 else if (
differ(xA.adj(),
dx))
botch(
"d xA >= yL/dx", dx, xA.adj());
513 if (
differ(fA.val(), f))
botch(
"fA = xcA >= yL", f, fA.val());
514 else if (
differ(xcA.adj(),
dx))
botch(
"d xcA >= yL/dx", dx, xcA.adj());
520 if (
differ(fA.val(), f))
botch(
"fA = xA >= yi", f, fA.val());
521 else if (
differ(xA.adj(),
dx))
botch(
"d xA >= yi/dx", dx, xA.adj());
528 if (
differ(fA.val(), f))
botch(
"fA = xcA >= yi", f, fA.val());
529 else if (
differ(xcA.adj(),
dx))
botch(
"d xcA >= yi/dx", dx, xcA.adj());
535 if (
differ(fA.val(), f))
botch(
"fA = xC >= yAI", f, fA.val());
536 else if (
differ(xC.adj(),
dx))
botch(
"d xC >= yAI/dx", dx, xC.adj());
537 else if (
differ(yAI.adj(), dy))
botch(
"d xC >= yAI/dy", dy, yAI.adj());
544 if (
differ(fA.val(), f))
botch(
"fA = xcC >= yAI", f, fA.val());
545 else if (
differ(xcC.adj(),
dx))
botch(
"d xcC >= yAI/dx", dx, xcC.adj());
546 else if (
differ(yAI.adj(), dy))
botch(
"d xcC >= yAI/dy", dy, yAI.adj());
554 if (
differ(fA.val(), f))
botch(
"fA = xC >= ycAI", f, fA.val());
555 else if (
differ(xC.adj(),
dx))
botch(
"d xC >= ycAI/dx", dx, xC.adj());
556 else if (
differ(ycAI.adj(), dy))
botch(
"d xC >= ycAI/dy", dy, ycAI.adj());
564 if (
differ(fA.val(), f))
botch(
"fA = xcC >= ycAI", f, fA.val());
565 else if (
differ(xcC.adj(),
dx))
botch(
"d xcC >= ycAI/dx", dx, xcC.adj());
566 else if (
differ(ycAI.adj(), dy))
botch(
"d xcC >= ycAI/dy", dy, ycAI.adj());
572 if (
differ(fA.val(), f))
botch(
"fA = xC >= yA", f, fA.val());
573 else if (
differ(xC.adj(),
dx))
botch(
"d xC >= yA/dx", dx, xC.adj());
574 else if (
differ(yA.adj(), dy))
botch(
"d xC >= yA/dy", dy, yA.adj());
581 if (
differ(fA.val(), f))
botch(
"fA = xcC >= yA", f, fA.val());
582 else if (
differ(xcC.adj(),
dx))
botch(
"d xcC >= yA/dx", dx, xcC.adj());
583 else if (
differ(yA.adj(), dy))
botch(
"d xcC >= yA/dy", dy, yA.adj());
591 if (
differ(fA.val(), f))
botch(
"fA = xC >= ycA", f, fA.val());
592 else if (
differ(xC.adj(),
dx))
botch(
"d xC >= ycA/dx", dx, xC.adj());
593 else if (
differ(ycA.adj(), dy))
botch(
"d xC >= ycA/dy", dy, ycA.adj());
601 if (
differ(fA.val(), f))
botch(
"fA = xcC >= ycA", f, fA.val());
602 else if (
differ(xcC.adj(),
dx))
botch(
"d xcC >= ycA/dx", dx, xcC.adj());
603 else if (
differ(ycA.adj(), dy))
botch(
"d xcC >= ycA/dy", dy, ycA.adj());
609 if (
differ(fA.val(), f))
botch(
"fA = xC >= yC", f, fA.val());
610 else if (
differ(xC.adj(),
dx))
botch(
"d xC >= yC/dx", dx, xC.adj());
611 else if (
differ(yC.adj(), dy))
botch(
"d xC >= yC/dy", dy, yC.adj());
618 if (
differ(fA.val(), f))
botch(
"fA = xcC >= yC", f, fA.val());
619 else if (
differ(xcC.adj(),
dx))
botch(
"d xcC >= yC/dx", dx, xcC.adj());
620 else if (
differ(yC.adj(), dy))
botch(
"d xcC >= yC/dy", dy, yC.adj());
628 if (
differ(fA.val(), f))
botch(
"fA = xC >= ycC", f, fA.val());
629 else if (
differ(xC.adj(),
dx))
botch(
"d xC >= ycC/dx", dx, xC.adj());
630 else if (
differ(ycC.adj(), dy))
botch(
"d xC >= ycC/dy", dy, ycC.adj());
638 if (
differ(fA.val(), f))
botch(
"fA = xcC >= ycC", f, fA.val());
639 else if (
differ(xcC.adj(),
dx))
botch(
"d xcC >= ycC/dx", dx, xcC.adj());
640 else if (
differ(ycC.adj(), dy))
botch(
"d xcC >= ycC/dy", dy, ycC.adj());
647 if (
differ(fA.val(), f))
botch(
"fA = xC >= yAi", f, fA.val());
648 else if (
differ(xC.adj(),
dx))
botch(
"d xC >= yAi/dx", dx, xC.adj());
649 else if (
differ(yAi.aval, dy))
botch(
"d xC >= yAi/dy", dy, yAi.aval);
657 if (
differ(fA.val(), f))
botch(
"fA = xcC >= yAi", f, fA.val());
658 else if (
differ(xcC.adj(),
dx))
botch(
"d xcC >= yAi/dx", dx, xcC.adj());
659 else if (
differ(yAi.aval, dy))
botch(
"d xcC >= yAi/dy", dy, yAi.aval);
667 if (
differ(fA.val(), f))
botch(
"fA = xC >= ycAi", f, fA.val());
668 else if (
differ(xC.adj(),
dx))
botch(
"d xC >= ycAi/dx", dx, xC.adj());
669 else if (
differ(ycAi.aval, dy))
botch(
"d xC >= ycAi/dy", dy, ycAi.aval);
677 if (
differ(fA.val(), f))
botch(
"fA = xcC >= ycAi", f, fA.val());
678 else if (
differ(xcC.adj(),
dx))
botch(
"d xcC >= ycAi/dx", dx, xcC.adj());
679 else if (
differ(ycAi.aval, dy))
botch(
"d xcC >= ycAi/dy", dy, ycAi.aval);
684 if (
differ(fA.val(), f))
botch(
"fA = xC >= yd", f, fA.val());
685 else if (
differ(xC.adj(),
dx))
botch(
"d xC >= yd/dx", dx, xC.adj());
691 if (
differ(fA.val(), f))
botch(
"fA = xcC >= yd", f, fA.val());
692 else if (
differ(xcC.adj(),
dx))
botch(
"d xcC >= yd/dx", dx, xcC.adj());
698 if (
differ(fA.val(), f))
botch(
"fA = xC >= yL", f, fA.val());
699 else if (
differ(xC.adj(),
dx))
botch(
"d xC >= yL/dx", dx, xC.adj());
706 if (
differ(fA.val(), f))
botch(
"fA = xcC >= yL", f, fA.val());
707 else if (
differ(xcC.adj(),
dx))
botch(
"d xcC >= yL/dx", dx, xcC.adj());
713 if (
differ(fA.val(), f))
botch(
"fA = xC >= yi", f, fA.val());
714 else if (
differ(xC.adj(),
dx))
botch(
"d xC >= yi/dx", dx, xC.adj());
721 if (
differ(fA.val(), f))
botch(
"fA = xcC >= yi", f, fA.val());
722 else if (
differ(xcC.adj(),
dx))
botch(
"d xcC >= yi/dx", dx, xcC.adj());
729 if (
differ(fA.val(), f))
botch(
"fA = xAi >= yAI", f, fA.val());
730 else if (
differ(xAi.aval, dx))
botch(
"d xAi >= yAI/dx", dx, xAi.aval);
731 else if (
differ(yAI.adj(), dy))
botch(
"d xAi >= yAI/dy", dy, yAI.adj());
739 if (
differ(fA.val(), f))
botch(
"fA = xcAi >= yAI", f, fA.val());
740 else if (
differ(xcAi.aval, dx))
botch(
"d xcAi >= yAI/dx", dx, xcAi.aval);
741 else if (
differ(yAI.adj(), dy))
botch(
"d xcAi >= yAI/dy", dy, yAI.adj());
749 if (
differ(fA.val(), f))
botch(
"fA = xAi >= ycAI", f, fA.val());
750 else if (
differ(xAi.aval, dx))
botch(
"d xAi >= ycAI/dx", dx, xAi.aval);
751 else if (
differ(ycAI.adj(), dy))
botch(
"d xAi >= ycAI/dy", dy, ycAI.adj());
758 if (
differ(fA.val(), f))
botch(
"fA = xAi >= yA", f, fA.val());
759 else if (
differ(xAi.aval, dx))
botch(
"d xAi >= yA/dx", dx, xAi.aval);
760 else if (
differ(yA.adj(), dy))
botch(
"d xAi >= yA/dy", dy, yA.adj());
768 if (
differ(fA.val(), f))
botch(
"fA = xcAi >= yA", f, fA.val());
769 else if (
differ(xcAi.aval, dx))
botch(
"d xcAi >= yA/dx", dx, xcAi.aval);
770 else if (
differ(yA.adj(), dy))
botch(
"d xcAi >= yA/dy", dy, yA.adj());
778 if (
differ(fA.val(), f))
botch(
"fA = xAi >= ycA", f, fA.val());
779 else if (
differ(xAi.aval, dx))
botch(
"d xAi >= ycA/dx", dx, xAi.aval);
780 else if (
differ(ycA.adj(), dy))
botch(
"d xAi >= ycA/dy", dy, ycA.adj());
787 if (
differ(fA.val(), f))
botch(
"fA = xAi >= yC", f, fA.val());
788 else if (
differ(xAi.aval, dx))
botch(
"d xAi >= yC/dx", dx, xAi.aval);
789 else if (
differ(yC.adj(), dy))
botch(
"d xAi >= yC/dy", dy, yC.adj());
797 if (
differ(fA.val(), f))
botch(
"fA = xcAi >= yC", f, fA.val());
798 else if (
differ(xcAi.aval, dx))
botch(
"d xcAi >= yC/dx", dx, xcAi.aval);
799 else if (
differ(yC.adj(), dy))
botch(
"d xcAi >= yC/dy", dy, yC.adj());
807 if (
differ(fA.val(), f))
botch(
"fA = xAi >= ycC", f, fA.val());
808 else if (
differ(xAi.aval, dx))
botch(
"d xAi >= ycC/dx", dx, xAi.aval);
809 else if (
differ(ycC.adj(), dy))
botch(
"d xAi >= ycC/dy", dy, ycC.adj());
816 if (
differ(fA.val(), f))
botch(
"fA = xAi >= yAi", f, fA.val());
817 else if (
differ(xAi.aval, dx))
botch(
"d xAi >= yAi/dx", dx, xAi.aval);
818 else if (
differ(yAi.aval, dy))
botch(
"d xAi >= yAi/dy", dy, yAi.aval);
826 if (
differ(fA.val(), f))
botch(
"fA = xcAi >= yAi", f, fA.val());
827 else if (
differ(xcAi.aval, dx))
botch(
"d xcAi >= yAi/dx", dx, xcAi.aval);
828 else if (
differ(yAi.aval, dy))
botch(
"d xcAi >= yAi/dy", dy, yAi.aval);
836 if (
differ(fA.val(), f))
botch(
"fA = xAi >= ycAi", f, fA.val());
837 else if (
differ(xAi.aval, dx))
botch(
"d xAi >= ycAi/dx", dx, xAi.aval);
838 else if (
differ(ycAi.aval, dy))
botch(
"d xAi >= ycAi/dy", dy, ycAi.aval);
844 if (
differ(fA.val(), f))
botch(
"fA = xAi >= yd", f, fA.val());
845 else if (
differ(xAi.aval, dx))
botch(
"d xAi >= yd/dx", dx, xAi.aval);
852 if (
differ(fA.val(), f))
botch(
"fA = xcAi >= yd", f, fA.val());
853 else if (
differ(xcAi.aval, dx))
botch(
"d xcAi >= yd/dx", dx, xcAi.aval);
860 if (
differ(fA.val(), f))
botch(
"fA = xAi >= yL", f, fA.val());
861 else if (
differ(xAi.aval, dx))
botch(
"d xAi >= yL/dx", dx, xAi.aval);
869 if (
differ(fA.val(), f))
botch(
"fA = xcAi >= yL", f, fA.val());
870 else if (
differ(xcAi.aval, dx))
botch(
"d xcAi >= yL/dx", dx, xcAi.aval);
877 if (
differ(fA.val(), f))
botch(
"fA = xAi >= yi", f, fA.val());
878 else if (
differ(xAi.aval, dx))
botch(
"d xAi >= yi/dx", dx, xAi.aval);
886 if (
differ(fA.val(), f))
botch(
"fA = xcAi >= yi", f, fA.val());
887 else if (
differ(xcAi.aval, dx))
botch(
"d xcAi >= yi/dx", dx, xcAi.aval);
892 if (
differ(fA.val(), f))
botch(
"fA = xd >= yAI", f, fA.val());
893 else if (
differ(yAI.adj(), dy))
botch(
"d xd >= yAI/dy", dy, yAI.adj());
899 if (
differ(fA.val(), f))
botch(
"fA = xd >= ycAI", f, fA.val());
900 else if (
differ(ycAI.adj(), dy))
botch(
"d xd >= ycAI/dy", dy, ycAI.adj());
905 if (
differ(fA.val(), f))
botch(
"fA = xd >= yA", f, fA.val());
906 else if (
differ(yA.adj(), dy))
botch(
"d xd >= yA/dy", dy, yA.adj());
912 if (
differ(fA.val(), f))
botch(
"fA = xd >= ycA", f, fA.val());
913 else if (
differ(ycA.adj(), dy))
botch(
"d xd >= ycA/dy", dy, ycA.adj());
918 if (
differ(fA.val(), f))
botch(
"fA = xd >= yC", f, fA.val());
919 else if (
differ(yC.adj(), dy))
botch(
"d xd >= yC/dy", dy, yC.adj());
925 if (
differ(fA.val(), f))
botch(
"fA = xd >= ycC", f, fA.val());
926 else if (
differ(ycC.adj(), dy))
botch(
"d xd >= ycC/dy", dy, ycC.adj());
932 if (
differ(fA.val(), f))
botch(
"fA = xd >= yAi", f, fA.val());
933 else if (
differ(yAi.aval, dy))
botch(
"d xd >= yAi/dy", dy, yAi.aval);
940 if (
differ(fA.val(), f))
botch(
"fA = xd >= ycAi", f, fA.val());
941 else if (
differ(ycAi.aval, dy))
botch(
"d xd >= ycAi/dy", dy, ycAi.aval);
947 if (
differ(fA.val(), f))
botch(
"fA = xL >= yAI", f, fA.val());
948 else if (
differ(yAI.adj(), dy))
botch(
"d xL >= yAI/dy", dy, yAI.adj());
955 if (
differ(fA.val(), f))
botch(
"fA = xL >= ycAI", f, fA.val());
956 else if (
differ(ycAI.adj(), dy))
botch(
"d xL >= ycAI/dy", dy, ycAI.adj());
962 if (
differ(fA.val(), f))
botch(
"fA = xL >= yA", f, fA.val());
963 else if (
differ(yA.adj(), dy))
botch(
"d xL >= yA/dy", dy, yA.adj());
970 if (
differ(fA.val(), f))
botch(
"fA = xL >= ycA", f, fA.val());
971 else if (
differ(ycA.adj(), dy))
botch(
"d xL >= ycA/dy", dy, ycA.adj());
977 if (
differ(fA.val(), f))
botch(
"fA = xL >= yC", f, fA.val());
978 else if (
differ(yC.adj(), dy))
botch(
"d xL >= yC/dy", dy, yC.adj());
985 if (
differ(fA.val(), f))
botch(
"fA = xL >= ycC", f, fA.val());
986 else if (
differ(ycC.adj(), dy))
botch(
"d xL >= ycC/dy", dy, ycC.adj());
993 if (
differ(fA.val(), f))
botch(
"fA = xL >= yAi", f, fA.val());
994 else if (
differ(yAi.aval, dy))
botch(
"d xL >= yAi/dy", dy, yAi.aval);
1002 if (
differ(fA.val(), f))
botch(
"fA = xL >= ycAi", f, fA.val());
1003 else if (
differ(ycAi.aval, dy))
botch(
"d xL >= ycAi/dy", dy, ycAi.aval);
1009 if (
differ(fA.val(), f))
botch(
"fA = xi >= yAI", f, fA.val());
1010 else if (
differ(yAI.adj(), dy))
botch(
"d xi >= yAI/dy", dy, yAI.adj());
1017 if (
differ(fA.val(), f))
botch(
"fA = xi >= ycAI", f, fA.val());
1018 else if (
differ(ycAI.adj(), dy))
botch(
"d xi >= ycAI/dy", dy, ycAI.adj());
1024 if (
differ(fA.val(), f))
botch(
"fA = xi >= yA", f, fA.val());
1025 else if (
differ(yA.adj(), dy))
botch(
"d xi >= yA/dy", dy, yA.adj());
1032 if (
differ(fA.val(), f))
botch(
"fA = xi >= ycA", f, fA.val());
1033 else if (
differ(ycA.adj(), dy))
botch(
"d xi >= ycA/dy", dy, ycA.adj());
1039 if (
differ(fA.val(), f))
botch(
"fA = xi >= yC", f, fA.val());
1040 else if (
differ(yC.adj(), dy))
botch(
"d xi >= yC/dy", dy, yC.adj());
1047 if (
differ(fA.val(), f))
botch(
"fA = xi >= ycC", f, fA.val());
1048 else if (
differ(ycC.adj(), dy))
botch(
"d xi >= ycC/dy", dy, ycC.adj());
1055 if (
differ(fA.val(), f))
botch(
"fA = xi >= yAi", f, fA.val());
1056 else if (
differ(yAi.aval, dy))
botch(
"d xi >= yAi/dy", dy, yAi.aval);
1064 if (
differ(fA.val(), f))
botch(
"fA = xi >= ycAi", f, fA.val());
1065 else if (
differ(ycAi.aval, dy))
botch(
"d xi >= ycAi/dy", dy, ycAi.aval);
ADT_RAD ADvari< double > Ai
int botch(ExpectedAnswer *e, const char *partial, double got, double wanted)
ADT_RAD IndepADvar< double > AI
const ADT_RAD IndepADvar< double > cAI
const ADT_RAD ADvari< double > cAi
static int differ(double a, double b)
const ADT_RAD ConstADvar< double > cC
const ADT_RAD ADvar< double > cA