[system] / trunk / pg / macros / PGdiffeqmacros.pl Repository:
ViewVC logotype

Diff of /trunk/pg/macros/PGdiffeqmacros.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 3340 Revision 3540
672 672
673sub level_curve_check { 673sub level_curve_check {
674 my $diffEqRHS = shift; #required differential equation 674 my $diffEqRHS = shift; #required differential equation
675 my $correctEqn = shift; # required answer in order to check the equation 675 my $correctEqn = shift; # required answer in order to check the equation
676 my %options = @_; 676 my %options = @_;
677 my $saveUseOldAnswerMacros = main::PG_restricted_eval('$main::useOldAnswerMacros') || 0;
678 main::PG_restricted_eval('$main::useOldAnswerMacros = 1');
677 assign_option_aliases( \%options, 679 assign_option_aliases( \%options,
678 'vars' => 'var', 680 'vars' => 'var',
679 'numPoints' => 'num_of_points', 681 'numPoints' => 'num_of_points',
680 'reltol' => 'relTol', 682 'reltol' => 'relTol',
681 ); 683 );
801 803
802 } 804 }
803 $rh_ans; 805 $rh_ans;
804 }); 806 });
805 807
808 main::PG_restricted_eval('$main::useOldAnswerMacros = '.$saveUseOldAnswerMacros);
806 $answer_evaluator; 809 $answer_evaluator;
807 810
808} 811}
809 812
810 813

Legend:
Removed from v.3340  
changed lines
  Added in v.3540

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9