Prev

Next

Index-> contents reference index search external

Up-> cppad_swig library a_double a_double_ad_binary a_double_ad_binary_xam.pm

cppad_swig-> testing swig_xam.i library whats_new_2018

library-> module a_double vector a_fun sparse error xam.m4

a_double-> a_double_ctor a_double_unary_op a_double_property a_double_ad_binary a_double_compare a_double_assign a_double_unary_fun a_double_cond_assign

a_double_ad_binary-> a_double_ad_binary_xam.cpp a_double_ad_binary_xam.m a_double_ad_binary_xam.pm a_double_ad_binary_xam.py

a_double_ad_binary_xam.pm

Headings

package a_double_ad_binary_xam;
sub a_double_ad_binary_xam() {
     # check for standard perl programming conventions
     use strict;
     use warnings;
     #
     # load the Cppad Swig library
     use pm_cppad;
     #
     # initilaize return variable
     my $ok = 1;
     # ---------------------------------------------------------------------
     my $two = new pm_cppad::a_double(2.0);
     my $three = new pm_cppad::a_double(3.0);
     #
     my $five = $two + $three;
     my $six = $two * $three;
     my $neg_one = $two - $three;
     my $two_thirds = $two / $three;
     #
     $ok = $ok && $five->value() == 5.0;
     $ok = $ok && $six->value() == 6.0;
     $ok = $ok && $neg_one->value() == -1.0;
     $ok = $ok && 0.5 < $two_thirds->value();
     $ok = $ok && $two_thirds->value() < 1.0;
     $ok = $ok && $five < $six;
     #
     return( $ok );
}