49template <
typename ScalarT>
50ScalarT
func(
const ScalarT&
a,
const ScalarT& b,
const ScalarT&
c) {
51 ScalarT r =
c*std::log(b+1.)/std::sin(
a);
57void func_deriv(
double a,
double b,
double c,
double& drda,
double& drdb)
59 drda = -(
c*std::log(b+1.)/std::pow(std::sin(
a),2.))*std::cos(
a);
60 drdb =
c / ((b+1.)*std::sin(
a));
63int main(
int argc,
char **argv)
65 double pi = std::atan(1.0)*4.0;
89 rfad =
func(afad, bfad, cfad);
92 double r_ad = rfad.val();
93 double drda_ad = rfad.dx(0);
94 double drdb_ad = rfad.dx(1);
99 std::cout.setf(std::ios::scientific);
100 std::cout.precision(
p);
101 std::cout <<
" r = " << r <<
" (original) == " << std::setw(w) << r_ad
102 <<
" (AD) Error = " << std::setw(w) << r - r_ad << std::endl
103 <<
"dr/da = " << std::setw(w) << drda <<
" (analytic) == "
104 << std::setw(w) << drda_ad <<
" (AD) Error = " << std::setw(w)
105 << drda - drda_ad << std::endl
106 <<
"dr/db = " << std::setw(w) << drdb <<
" (analytic) == "
107 << std::setw(w) << drdb_ad <<
" (AD) Error = " << std::setw(w)
108 << drdb - drdb_ad << std::endl;
110 double tol = 1.0e-14;
111 if (std::fabs(r - r_ad) <
tol &&
112 std::fabs(drda - drda_ad) <
tol &&
113 std::fabs(drdb - drdb_ad) <
tol) {
114 std::cout <<
"\nExample passed!" << std::endl;
118 std::cout <<
"\nSomething is wrong, example failed!" << std::endl;
expr expr1 expr1 expr1 c expr2 expr1 expr2 expr1 expr2 expr1 expr1 expr1 expr1 c expr2 expr1 expr2 expr1 expr2 expr1 expr1 expr1 expr1 c *expr2 expr1 expr2 expr1 expr2 expr1 expr1 expr1 expr1 c expr2 expr1 expr2 expr1 expr2 expr1 expr1 expr1 expr2 expr1 expr2 expr1 expr1 expr1 expr2 expr1 expr2 expr1 expr1 expr1 c
void func_deriv(double a, double b, double c, double &drda, double &drdb)
ScalarT func(const ScalarT &a, const ScalarT &b, const ScalarT &c)