source: trunk/test_more/asinh.cpp @ 3680

Last change on this file since 3680 was 3680, checked in by bradbell, 5 years ago

merge to branch: trunk
from repository: https://github.com/coin-or/CppAD
start hash code: 071875a4beba3363e5fa9752426aec4762cd1caa
end hash code: 0bef506513a519e1073c6279d5c4cba9e5c3b180

commit 0bef506513a519e1073c6279d5c4cba9e5c3b180
Author: Brad Bell <bradbell@…>
Date: Thu May 7 12:14:32 2015 -0700

Add the acosh function (as an atomic operation when defined by compiler).

commit b3264fa17b2f65b65800423a0e243c9c3ccfe06a
Author: Brad Bell <bradbell@…>
Date: Wed May 6 20:25:38 2015 -0700

CMakeLists.txt: Change so test only check for compliation.

commit dcbac4d4f20cc383f2bd9edb02036659df40b791
Author: Brad Bell <bradbell@…>
Date: Wed May 6 15:06:28 2015 -0700

asinh.cpp: check higher orders, relax accuracy on test.

commit 5f8881993fedd18cccc3c74831133a8f8a9d17b0
Author: Brad Bell <bradbell@…>
Date: Wed May 6 14:36:18 2015 -0700

Change Acos to acos.
acos.cpp: remove trailing white space.

commit e828fa1f7c4c3848c727f14b1b7a8030071ee705
Author: Brad Bell <bradbell@…>
Date: Wed May 6 12:07:35 2015 -0700

Change Acos to acos.
acos.cpp: remove redundant index commands, remove trailing with space.

commit 3d16e5b9fe1bdafa4ad01d1d466bb72b792650fa
Author: Brad Bell <bradbell@…>
Date: Wed May 6 11:30:49 2015 -0700

op_code.hpp: Minor edits to AcosOp? commnets.

commit 58beaaad149b4ac29fae44589d7f8900bf8f4c40
Author: Brad Bell <bradbell@…>
Date: Wed May 6 10:51:43 2015 -0700

for_jac_sweep.hpp: Add missing AsinhOp? case.

commit 623c134870c522ae5e80bcf0f89d230902594c80
Author: Brad Bell <bradbell@…>
Date: Wed May 6 10:27:39 2015 -0700

Fix comment about AsinhOp? operator.

commit 226b14f6f4810f5abf1ca247aae541963efaf4d6
Author: Brad Bell <bradbell@…>
Date: Wed May 6 10:14:08 2015 -0700

Add derivative of F to make order zero case clearer.
acos_reverse.omh: Fix some sign errors.
asin_reverse.omh: Fix typo.
acos_forward.omh: Simplify by distributing minus sign.

commit 4682f4ee73e33b600b180086576e986f636a24dc
Author: Brad Bell <bradbell@…>
Date: Wed May 6 08:15:50 2015 -0700

acos_forward.omh: fix sign that depends on acos versus acosh.

commit 906ae10adf019ddda7f57dd165aab08fc55289c4
Author: Brad Bell <bradbell@…>
Date: Wed May 6 07:09:47 2015 -0700

  1. Fix inclusion of some temporary files in package (e.g., git_commit.sh).
  2. Simplify and improve using git ls-files and ls bin/check_*.
  3. Remove trailing white space.

commit 5096f4706a547bd76caa3766aa2c62802ef7f0bf
Author: Brad Bell <bradbell@…>
Date: Wed May 6 06:41:20 2015 -0700

Combine base type documentation for erf, asinh
(will add more functions to this list list).

commit b3535db5ad95bee90672abcaa686032d23bce2fc
Author: Brad Bell <bradbell@…>
Date: Tue May 5 18:01:11 2015 -0700

  1. Change Arc Cosine/Sine? to Inverse Cosine/Sine?.
  2. Change arcsin-> asin and arccos->acos.
  3. Remove index commands that are duplicates of words in titles.


acos_reverse.omh: Add acosh case to this page.

File size: 2.0 KB
Line 
1/* $Id$ */
2/* --------------------------------------------------------------------------
3CppAD: C++ Algorithmic Differentiation: Copyright (C) 2003-15 Bradley M. Bell
4
5CppAD is distributed under multiple licenses. This distribution is under
6the terms of the
7                    Eclipse Public License Version 1.0.
8
9A copy of this license is included in the COPYING file of this distribution.
10Please visit http://www.coin-or.org/CppAD/ for information on other licenses.
11-------------------------------------------------------------------------- */
12
13# include <cppad/cppad.hpp>
14
15bool asinh(void)
16{       bool ok = true;
17
18        using CppAD::AD;
19        using CppAD::NearEqual;
20
21        // 10 times machine epsilon
22        double eps = 10. * std::numeric_limits<double>::epsilon();
23
24        // domain space vector
25        size_t n  = 1;
26        double x0 = 0.5;
27        CPPAD_TESTVECTOR(AD<double>) ax(n);
28        ax[0]     = x0;
29
30        // declare independent variables and start tape recording
31        CppAD::Independent(ax);
32
33        // a temporary value
34        AD<double> sinh_of_x0 = CppAD::sinh(ax[0]);
35
36        // range space vector
37        size_t m = 1;
38        CPPAD_TESTVECTOR(AD<double>) ay(m);
39        ay[0] = CppAD::asinh(sinh_of_x0);
40
41        // create f: x -> y and stop tape recording
42        CppAD::ADFun<double> f(ax, ay);
43
44        // check value
45        ok &= NearEqual(ay[0] , x0,  eps, eps);
46
47        // forward computation of first partial w.r.t. x[0]
48        CPPAD_TESTVECTOR(double) dx(n);
49        CPPAD_TESTVECTOR(double) dy(m);
50        dx[0] = 1.;
51        dy    = f.Forward(1, dx);
52        ok   &= NearEqual(dy[0], 1., eps, eps);
53
54        // forward computation of higher order partials w.r.t. x[0]
55        size_t n_order = 5;
56        for(size_t order = 2; order < n_order; order++)
57        {       dx[0] = 0.;
58                dy    = f.Forward(order, dx);
59                ok   &= NearEqual(dy[0], 0., eps, eps);
60        }
61        // reverse computation of derivatives
62        CPPAD_TESTVECTOR(double)  w(m);
63        CPPAD_TESTVECTOR(double) dw(n_order * n);
64        w[0]  = 1.;
65        dw    = f.Reverse(n_order, w);
66        ok   &= NearEqual(dw[0], 1., eps, eps);
67        for(size_t order = 1; order < n_order; order++)
68                ok   &= NearEqual(dw[order * n + 0], 0., eps, eps);
69
70        return ok;
71}
72
73// END C++
Note: See TracBrowser for help on using the repository browser.