source: trunk/example/example.cpp @ 3739

Last change on this file since 3739 was 3739, checked in by bradbell, 4 years ago

merge to branch: trunk
from repository: https://github.com/coin-or/CppAD
start hash code: 73a24bb54131f169c29c2cd2393c10bdaecb5d95
end hash code: f75f1beb91433287505fbcb2cda2081a775c05e2

commit f75f1beb91433287505fbcb2cda2081a775c05e2
Author: Brad Bell <bradbell@…>
Date: Tue Oct 6 05:05:54 2015 -0700

Run reduce_index on files changes in last 3 days.

commit be03e5aca0965e38b41c30495950587b7fef4f01
Author: Brad Bell <bradbell@…>
Date: Tue Oct 6 04:54:18 2015 -0700

reduce_index.py: make some improvements.
reduce_index.sh: routine for driving reduce_index.py.

commit ce0c937f72c2e38d6fe8cf54a664a325fd0017ee
Author: Brad Bell <bradbell@…>
Date: Tue Oct 6 03:50:33 2015 -0700

reduce_index.py: program that condenses duplicate index commands.

  • Property svn:keywords set to Id
File size: 13.5 KB
Line 
1/* $Id: example.cpp 3739 2015-10-06 12:47:55Z 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 example.cpp$$
15$spell
16        Cpp
17$$
18
19$section CppAD Examples and Tests$$
20
21$head Running Tests$$
22To build this program and run its correctness tests see $cref cmake_check$$.
23
24$code
25$verbatim%example/example.cpp%0%// BEGIN C++%// END C++%1%$$
26$$
27
28$end
29*/
30// BEGIN C++
31
32// system include files used for I/O
33# include <iostream>
34
35// C style asserts
36# include <cassert>
37
38// standard string
39# include <string>
40
41// memory utility
42# include <cppad/thread_alloc.hpp>
43
44// prototype external compiled tests (this line expected by bin/new_test.sh)
45extern bool abort_recording(void);
46extern bool ad_assign(void);
47extern bool ad_ctor(void);
48extern bool abs(void);
49extern bool acos(void);
50extern bool acosh(void);
51extern bool Add(void);
52extern bool AddEq(void);
53extern bool ad_fun(void);
54extern bool ad_in_c(void);
55extern bool ad_input(void);
56extern bool ad_output(void);
57extern bool asin(void);
58extern bool asinh(void);
59extern bool atan(void);
60extern bool atanh(void);
61extern bool atan2(void);
62extern bool azmul(void);
63extern bool base_require(void);
64extern bool BenderQuad(void);
65extern bool BoolFun(void);
66extern bool capacity_order(void);
67extern bool change_param(void);
68extern bool check_for_nan(void);
69extern bool CheckNumericType(void);
70extern bool CheckSimpleVector(void);
71extern bool colpack_hes(void);
72extern bool colpack_jac(void);
73extern bool Compare(void);
74extern bool compare_change(void);
75extern bool complex_poly(void);
76extern bool CondExp(void);
77extern bool conj_grad(void);
78extern bool Cos(void);
79extern bool Cosh(void);
80extern bool CppAD_vector(void);
81extern bool dependency(void);
82extern bool Div(void);
83extern bool DivEq(void);
84extern bool eigen_array(void);
85extern bool eigen_det(void);
86extern bool EqualOpSeq(void);
87extern bool Erf(void);
88extern bool ErrorHandler(void);
89extern bool exp(void);
90extern bool expm1(void);
91extern bool ForOne(void);
92extern bool ForTwo(void);
93extern bool ForSparseJac(void);
94extern bool Forward(void);
95extern bool forward_dir(void);
96extern bool forward_order(void);
97extern bool fun_assign(void);
98extern bool FunCheck(void);
99extern bool HesLagrangian(void);
100extern bool HesLuDet(void);
101extern bool HesMinorDet(void);
102extern bool Hessian(void);
103extern bool HesTimesDir(void);
104extern bool Independent(void);
105extern bool index_sort(void);
106extern bool Integer(void);
107extern bool Interface2C(void);
108extern bool interp_onetape(void);
109extern bool interp_retape(void);
110extern bool JacLuDet(void);
111extern bool JacMinorDet(void);
112extern bool Jacobian(void);
113extern bool log(void);
114extern bool log10(void);
115extern bool log1p(void);
116extern bool LuFactor(void);
117extern bool LuInvert(void);
118extern bool LuRatio(void);
119extern bool LuSolve(void);
120extern bool LuVecADOk(void);
121extern bool Mul(void);
122extern bool MulEq(void);
123extern bool mul_level(void);
124extern bool mul_level_adolc(void);
125extern bool mul_level_ode(void);
126extern bool mul_level_adolc_ode(void);
127extern bool nan(void);
128extern bool Near_Equal(void);
129extern bool NearEqualExt(void);
130extern bool number_skip(void);
131extern bool NumericType(void);
132extern bool num_limits(void);
133extern bool OdeErrControl(void);
134extern bool OdeErrMaxabs(void);
135extern bool OdeGear(void);
136extern bool OdeGearControl(void);
137extern bool OdeStiff(void);
138extern bool ode_taylor(void);
139extern bool opt_val_hes(void);
140extern bool optimize(void);
141extern bool ParVar(void);
142extern bool Poly(void);
143extern bool pow(void);
144extern bool pow_int(void);
145extern bool print_for(void);
146extern bool reverse_any(void);
147extern bool reverse_one(void);
148extern bool reverse_three(void);
149extern bool reverse_two(void);
150extern bool RevOne(void);
151extern bool RevSparseHes(void);
152extern bool RevSparseJac(void);
153extern bool RevTwo(void);
154extern bool RombergMul(void);
155extern bool RombergOne(void);
156extern bool Rosen34(void);
157extern bool runge_45_1(void);
158extern bool runge_45_2(void);
159extern bool seq_property(void);
160extern bool sign(void);
161extern bool SimpleVector(void);
162extern bool Sin(void);
163extern bool Sinh(void);
164extern bool sparse_hessian(void);
165extern bool sparse_jacobian(void);
166extern bool sparse_sub_hes(void);
167extern bool sparsity_sub(void);
168extern bool Sqrt(void);
169extern bool StackMachine(void);
170extern bool Sub(void);
171extern bool SubEq(void);
172extern bool sub_sparse_hes(void);
173extern bool Tan(void);
174extern bool Tanh(void);
175extern bool TapeIndex(void);
176extern bool thread_alloc(void);
177extern bool UnaryMinus(void);
178extern bool UnaryPlus(void);
179extern bool Value(void);
180extern bool Var2Par(void);
181extern bool vec_ad(void);
182extern bool vectorBool(void);
183
184namespace {
185        // function that runs one test
186        static size_t Run_ok_count    = 0;
187        static size_t Run_error_count = 0;
188        bool Run(bool TestOk(void), std::string name)
189        {       bool ok      = true;
190                std::streamsize width =  20;
191                std::cout.width( width );
192                std::cout.setf( std::ios_base::left );
193                std::cout << name;
194                //
195                ok &= name.size() < size_t(width);
196                ok &= TestOk();
197                if( ok )
198                {       std::cout << "OK" << std::endl;
199                        Run_ok_count++;
200                }
201                else
202                {       std::cout << "Error" << std::endl;
203                        Run_error_count++;
204                }
205                return ok;
206        }
207}
208
209// main program that runs all the tests
210int main(void)
211{       bool ok = true;
212
213        // This line is used by test_one.sh
214
215        // run external compiled tests (this line expected by bin/new_test.sh)
216        ok &= Run( abort_recording,   "abort_recording"  );
217        ok &= Run( ad_assign,         "ad_assign"        );
218        ok &= Run( ad_ctor,           "ad_ctor"          );
219        ok &= Run( abs,               "abs"              );
220        ok &= Run( acos,              "acos"             );
221        ok &= Run( acosh,             "acosh"            );
222        ok &= Run( Add,               "Add"              );
223        ok &= Run( AddEq,             "AddEq"            );
224        ok &= Run( ad_fun,            "ad_fun"           );
225        ok &= Run( ad_in_c,           "ad_in_c"          );
226        ok &= Run( ad_input,          "ad_input"         );
227        ok &= Run( ad_output,         "ad_output"        );
228        ok &= Run( asin,              "asin"             );
229        ok &= Run( asinh,             "asinh"            );
230        ok &= Run( atan,              "atan"             );
231        ok &= Run( atanh,             "atanh"            );
232        ok &= Run( atan2,             "atan2"            );
233        ok &= Run( azmul,             "azmul"            );
234        ok &= Run( BenderQuad,        "BenderQuad"       );
235        ok &= Run( BoolFun,           "BoolFun"          );
236        ok &= Run( capacity_order,    "capacity_order"   );
237        ok &= Run( change_param,      "change_param"     );
238        ok &= Run( check_for_nan,     "check_for_nan"    );
239        ok &= Run( CheckNumericType,  "CheckNumericType" );
240        ok &= Run( CheckSimpleVector, "CheckSimpleVector");
241        ok &= Run( Compare,           "Compare"          );
242        ok &= Run( compare_change,    "compare_change"   );
243        ok &= Run( complex_poly,      "complex_poly"     );
244        ok &= Run( CondExp,           "CondExp"          );
245        ok &= Run( conj_grad,         "conj_grad"        );
246        ok &= Run( Cos,               "Cos"              );
247        ok &= Run( Cosh,              "Cosh"             );
248        ok &= Run( CppAD_vector,      "CppAD_vector"     );
249        ok &= Run( dependency,        "dependency"       );
250        ok &= Run( Div,               "Div"              );
251        ok &= Run( DivEq,             "DivEq"            );
252        ok &= Run( EqualOpSeq,        "EqualOpSeq"       );
253        ok &= Run( Erf,               "Erf"              );
254        ok &= Run( ErrorHandler,      "ErrorHandler"     );
255        ok &= Run( exp,               "exp"              );
256        ok &= Run( expm1,             "expm1"            );
257        ok &= Run( ForOne,            "ForOne"           );
258        ok &= Run( ForTwo,            "ForTwo"           );
259        ok &= Run( Forward,           "Forward"          );
260        ok &= Run( forward_dir,       "forward_dir"      );
261        ok &= Run( forward_order,     "forward_order"    );
262        ok &= Run( ForSparseJac,      "ForSparseJac"     );
263        ok &= Run( fun_assign,        "fun_assign"       );
264        ok &= Run( FunCheck,          "FunCheck"         );
265        ok &= Run( HesLagrangian,     "HesLagrangian"    );
266        ok &= Run( HesLuDet,          "HesLuDet"         );
267        ok &= Run( HesMinorDet,       "HesMinorDet"      );
268        ok &= Run( Hessian,           "Hessian"          );
269        ok &= Run( HesTimesDir,       "HesTimesDir"      );
270        ok &= Run( Independent,       "Independent"      );
271        ok &= Run( index_sort,        "index_sort"       );
272        ok &= Run( Integer,           "Integer"          );
273        ok &= Run( Interface2C,       "Interface2C"      );
274        ok &= Run( interp_onetape,    "interp_onetape"   );
275        ok &= Run( interp_retape,     "interp_retape"    );
276        ok &= Run( JacLuDet,          "JacLuDet"         );
277        ok &= Run( JacMinorDet,       "JacMinorDet"      );
278        ok &= Run( Jacobian,          "Jacobian"         );
279        ok &= Run( log,               "log"              );
280        ok &= Run( log10,             "log10"            );
281        ok &= Run( log1p,             "log1p"            );
282        ok &= Run( LuFactor,          "LuFactor"         );
283        ok &= Run( LuInvert,          "LuInvert"         );
284        ok &= Run( LuRatio,           "LuRatio"          );
285        ok &= Run( LuSolve,           "LuSolve"          );
286        ok &= Run( LuVecADOk,         "LuVecADOk"        );
287        ok &= Run( Mul,               "Mul"              );
288        ok &= Run( MulEq,             "MulEq"            );
289        ok &= Run( mul_level,         "mul_level"        );
290        ok &= Run( mul_level_ode,     "mul_level_ode"    );
291        ok &= Run( nan,               "nan"              );
292        ok &= Run( Near_Equal,        "Near_Equal"       );
293        ok &= Run( NearEqualExt,      "NearEqualExt"     );
294        ok &= Run( number_skip,       "number_skip"      );
295        ok &= Run( NumericType,       "NumericType"      );
296        ok &= Run( num_limits,        "num_limits"       );
297        ok &= Run( OdeErrControl,     "OdeErrControl"    );
298        ok &= Run( OdeErrMaxabs,      "OdeErrMaxabs"     );
299        ok &= Run( OdeGear,           "OdeGear"          );
300        ok &= Run( OdeGearControl,    "OdeGearControl"   );
301        ok &= Run( OdeStiff,          "OdeStiff"         );
302        ok &= Run( ode_taylor,        "ode_taylor"       );
303        ok &= Run( opt_val_hes,       "opt_val_hes"      );
304        ok &= Run( optimize,          "optimize"         );
305        ok &= Run( ParVar,            "ParVar"           );
306        ok &= Run( Poly,              "Poly"             );
307        ok &= Run( pow,               "pow"              );
308        ok &= Run( pow_int,           "pow_int"          );
309        ok &= Run( reverse_any,       "reverse_any"      );
310        ok &= Run( reverse_one,       "reverse_one"      );
311        ok &= Run( reverse_three,     "reverse_three"    );
312        ok &= Run( reverse_two,       "reverse_two"      );
313        ok &= Run( RevOne,            "RevOne"           );
314        ok &= Run( RevSparseHes,      "RevSparseHes"     );
315        ok &= Run( RevSparseJac,      "RevSparseJac"     );
316        ok &= Run( RevTwo,            "RevTwo"           );
317        ok &= Run( RombergMul,        "RombergMul"       );
318        ok &= Run( RombergOne,        "RombergOne"       );
319        ok &= Run( Rosen34,           "Rosen34"          );
320        ok &= Run( runge_45_1,        "runge_45_1"       );
321        ok &= Run( runge_45_2,        "runge_45_2"       );
322        ok &= Run( seq_property,      "seq_property"     );
323        ok &= Run( sign,              "sign"             );
324        ok &= Run( SimpleVector,      "SimpleVector"     );
325        ok &= Run( Sin,               "Sin"              );
326        ok &= Run( Sinh,              "Sinh"             );
327        ok &= Run( sparse_hessian,    "sparse_hessian"   );
328        ok &= Run( sparse_jacobian,   "sparse_jacobian"  );
329        ok &= Run( sparse_sub_hes,    "sparse_sub_hes"   );
330        ok &= Run( sparsity_sub,      "sparsity_sub"     );
331        ok &= Run( Sqrt,              "Sqrt"             );
332        ok &= Run( StackMachine,      "StackMachine"     );
333        ok &= Run( Sub,               "Sub"              );
334        ok &= Run( SubEq,             "SubEq"            );
335        ok &= Run( sub_sparse_hes,    "sub_sparse_hes"   );
336        ok &= Run( Tan,               "Tan"              );
337        ok &= Run( Tanh,              "Tanh"             );
338        ok &= Run( TapeIndex,         "TapeIndex"        );
339        ok &= Run( thread_alloc,      "thread_alloc"     );
340        ok &= Run( UnaryMinus,        "UnaryMinus"       );
341        ok &= Run( UnaryPlus,         "UnaryPlus"        );
342        ok &= Run( Value,             "Value"            );
343        ok &= Run( Var2Par,           "Var2Par"          );
344        ok &= Run( vec_ad,            "vec_ad"           );
345        ok &= Run( vectorBool,        "vectorBool"       );
346# ifdef CPPAD_ADOLC_EXAMPLES
347        ok &= Run( mul_level_adolc,      "mul_level_adolc"     );
348        ok &= Run( mul_level_adolc_ode,  "mul_level_adolc_ode" );
349# endif
350# ifdef CPPAD_COLPACK_EXAMPLES
351        ok &= Run( colpack_hes,       "colpack_hes"      );
352        ok &= Run( colpack_jac,       "colpack_jac"      );
353# endif
354# ifdef CPPAD_EIGEN_EXAMPLES
355        ok &= Run( eigen_array,       "eigen_array"      );
356        ok &= Run( eigen_det,         "eigen_det"        );
357# endif
358
359        // check for errors
360        using std::cout;
361        using std::endl;
362        assert( ok || (Run_error_count > 0) );
363        if( CppAD::thread_alloc::free_all() )
364        {       Run_ok_count++;
365                cout << "OK:    " << "No memory leak detected" << endl;
366        }
367        else
368        {       ok = false;
369                Run_error_count++;
370                cout << "Error: " << "memory leak detected" << endl;
371        }
372        // Run base_require after memory leak check because base_alloc.hpp uses
373        // thread_alloc to allocate memory for static copies of nan.
374        ok &= Run( base_require,      "base_require"     );
375        // convert int(size_t) to avoid warning on _MSC_VER systems
376        if( ok )
377                cout << "All " << int(Run_ok_count) << " tests passed." << endl;
378        else    cout << int(Run_error_count) << " tests failed." << endl;
379
380        return static_cast<int>( ! ok );
381}
382// END C++
Note: See TracBrowser for help on using the repository browser.