source: trunk/example/acos.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.

  • Property svn:keywords set to Id
File size: 2.0 KB
Line 
1/* $Id: acos.cpp 3680 2015-05-07 19:17:37Z bradbell $ */
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/*
14$begin acos.cpp$$
15$spell
16        cos
17        acos
18$$
19
20$section The AD acos Function: Example and Test$$
21
22$code
23$verbatim%example/acos.cpp%0%// BEGIN C++%// END C++%1%$$
24$$
25
26$end
27*/
28// BEGIN C++
29
30# include <cppad/cppad.hpp>
31
32bool acos(void)
33{       bool ok = true;
34
35        using CppAD::AD;
36        using CppAD::NearEqual;
37
38        // 10 times machine epsilon
39        double eps = 10. * std::numeric_limits<double>::epsilon();
40
41        // domain space vector
42        size_t n  = 1;
43        double x0 = 0.5;
44        CPPAD_TESTVECTOR(AD<double>) x(n);
45        x[0]      = x0;
46
47        // declare independent variables and start tape recording
48        CppAD::Independent(x);
49
50        // a temporary value
51        AD<double> cos_of_x0 = CppAD::cos(x[0]);
52
53        // range space vector
54        size_t m = 1;
55        CPPAD_TESTVECTOR(AD<double>) y(m);
56        y[0] = CppAD::acos(cos_of_x0);
57
58        // create f: x -> y and stop tape recording
59        CppAD::ADFun<double> f(x, y);
60
61        // check value
62        ok &= NearEqual(y[0] , x0,  eps, eps);
63
64        // forward computation of first partial w.r.t. x[0]
65        CPPAD_TESTVECTOR(double) dx(n);
66        CPPAD_TESTVECTOR(double) dy(m);
67        dx[0] = 1.;
68        dy    = f.Forward(1, dx);
69        ok   &= NearEqual(dy[0], 1., eps, eps);
70
71        // reverse computation of derivative of y[0]
72        CPPAD_TESTVECTOR(double)  w(m);
73        CPPAD_TESTVECTOR(double) dw(n);
74        w[0]  = 1.;
75        dw    = f.Reverse(1, w);
76        ok   &= NearEqual(dw[0], 1., eps, eps);
77
78        // use a VecAD<Base>::reference object with acos
79        CppAD::VecAD<double> v(1);
80        AD<double> zero(0);
81        v[zero] = cos_of_x0;
82        AD<double> result = CppAD::acos(v[zero]);
83        ok     &= NearEqual(result, x0, eps, eps);
84
85        return ok;
86}
87
88// END C++
Note: See TracBrowser for help on using the repository browser.