Prev

Next

Index-> contents reference index search external

Up-> cppad_swig library a_double a_double_cond_assign a_double_cond_assign_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_cond_assign-> a_double_cond_assign_xam.cpp a_double_cond_assign_xam.m a_double_cond_assign_xam.pm a_double_cond_assign_xam.py

a_double_cond_assign_xam.pm

Headings

package a_double_cond_assign_xam;
sub a_double_cond_assign_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 $n_ind = 4;
     my $n_dep = 1;
     #
     # create ax (value of independent variables does not matter)
     my $x = new pm_cppad::vec_double($n_ind);
     $x->set(0, 0.0);
     $x->set(1, 1.0);
     $x->set(2, 2.0);
     $x->set(3, 3.0);
     my $ax = pm_cppad::independent($x);
     #
     # arguments to conditional assignment
     my $left = $ax->get(0);
     my $right = $ax->get(1);
     my $if_true = $ax->get(2);
     my $if_false = $ax->get(3);
     #
     # assignment
     my $target = new pm_cppad::a_double();
     $target->cond_assign(
          "<",
          $left,
          $right,
          $if_true,
          $if_false
     );
     #
     # f(x) = taget
     my $ay = new pm_cppad::vec_a_double($n_dep);
     $ay->set(0, $target);
     my $af = new pm_cppad::a_fun($ax, $ay);
     #
     # assignment with different independent variable values
     $x->set(0, 9.0); # left
     $x->set(1, 8.0); # right
     $x->set(2, 7.0); # if_true
     $x->set(3, 6.0); # if_false
     my $p = 0;
     my $y = $af->forward($p, $x);
     $ok = $ok && $y->get(0) == 6.0;
     #
     return( $ok  );
}