[WWcvs] pg: Better messages when adaptive parameters are too big.

[dpvc v. a. <we...@ma...>]

Log Message:
-----------
Better messages when adaptive parameters are too big.

Modified Files:
--------------
    pg/lib/Value:
        Formula.pm

Revision Data
-------------
Index: Formula.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Value/Formula.pm,v
retrieving revision 1.28
retrieving revision 1.29
diff -Llib/Value/Formula.pm -Llib/Value/Formula.pm -u -r1.28 -r1.29
--- lib/Value/Formula.pm
+++ lib/Value/Formula.pm
@@ -420,12 +420,13 @@
       #
       #  Get parameter values and recompute the points using them
       #
-      my @a; my $i = 0; my $max = $l->getFlag('max_adapt',1E8);
+      my @a; my $i = 0; my $max = Value::Real->new($l->getFlag('max_adapt',1E8));
       foreach my $row (@{$B->[0]}) {
 	if (abs($row->[0]) > $max) {
-	  $l->Error("Constant of integration is too large: $row->[0]")
-	    if ($params[$i] eq 'C0');
-	  $l->Error("Adaptive constant is too large: $params[$i] = $row->[0]");
+	  $l->Error("Constant of integration is too large: ".$row->[0]->string."\n".
+		    "(maximum allowed is ".$max->string.")") if ($params[$i] eq 'C0');
+	  $l->Error("Adaptive constant is too large: $params[$i] = ".$row->[0]->string."\n".
+		    "(maximum allowed is ".$max->string.")");
 	}
 	push @a, $row->[0]; $i++;
       }