display error, exponent error, bug fixes

Author: brittnilorton

Contrib/CCCS/AlgebraicLiteracy/IA_6.5/OpenStax_IA_6.5_296.pg

@@ -36,7 +36,7 @@ Context("Numeric");
 
 # Problem can be factored as (x + a)(x + b) = 0
 #Solutions are x = -a, -b
-$a = non_zero_random(-10, 10, 2);
+do{$a = non_zero_random(-10, 10, 2);
 $b = non_zero_random (-10, 10);
 
 #expanded form
@@ -47,7 +47,7 @@ $last = $a*$b;
 #problem is x(x + c) = n(x + d)
 #x^2 + (c - n)x -nd = 0
 $n = 2;
-$c = $middle + $n;
+$c = $middle + $n;}until($c != 0);
 $d = $last/-$n;
 
 $right = Compute("x(x + $c)")->reduce;

Contrib/CCCS/CalculusOne/04.10/CCD_CCCS_Openstax_Calc1_C1-2016-002_4_10_493.pg

@@ -58,7 +58,7 @@ BEGIN_PGML_HINT
 
 If you break up the fraction and simplify, it will make it easier to identify the antiderivative.
 
-For example: [`\frac{2x^9+5x^2}{x^5} = \frac{2x^9}{x^5}+\frac{5x^2}{x^5} = 2x^5+5x^{-3}`]
+For example: [`\frac{2x^9+5x^2}{x^5} = \frac{2x^9}{x^5}+\frac{5x^2}{x^5} = 2x^4+5x^{-3}`]
 
 END_PGML_HINT
 ############################

Contrib/CCCS/CalculusOne/04.3/CCD_CCCS_Openstax_Calc1_C1-2016-002_4_3_140.pg

@@ -41,12 +41,12 @@ $showPartialCorrectAnswers = 1;
 #  Setup
 
 $a=random(1,3,1);
-$b=random(1000, 2000, 100);
-$c=random(36000, 40000, 50);
-$ans1=Compute(1000*$b/(2*$a));
-$fun=Formula("$a*x^2-$b*x+$c")->reduce;
-
+$h = random(100,400,1);
+$k = random(36000,40000,50);
+$c = $h**2+$k;
+$ans = Compute(1000*$h);
 
+$fun = Formula("$a*x**2-2*$a*$h*x+$c")->reduce;
 #################################
 #  Main text
 
@@ -55,7 +55,7 @@ BEGIN_PGML
 A company that produces cell phones has a cost function of [`C(x) = [$fun]`]  where [`C`] is cost in dollars and [`x`] is number of cell phones produced (in
 thousands). How many units of cell phones minimizes this cost function?
 
-Cost function is minimized at [________________]{$ans1} cell phones. [@ AnswerFormatHelp("numbers") @]* 
+Cost function is minimized at [________________]{$ans} cell phones. [@ AnswerFormatHelp("numbers") @]* 
 
 
 END_PGML

Contrib/CCCS/CalculusOne/05.6/CCD_CCCS_Openstax_Calc1_C1-2016-002_5_6_320.pg

@@ -31,7 +31,7 @@ $a = random(2,25,1);
 $b = random(2,30,1);
 $c = random(-20,20,1);
 $func = FormulaUpToConstant("($a/$b)*e**{$b*x} + $c*x + C");
-
+$func->{limits} = [0.1,0.2];
 BEGIN_PGML
 
 Evaluate the following indefinite integral.

Contrib/CCCS/PreCalculus/6.2/CCD_CCCS_Openstax_AlgTrig_AT-1-001-AS_6_2_sup1.pg

@@ -43,22 +43,23 @@ $showPartialCorrectAnswers = 1;
 #  Setup
 
 Context("Numeric");
-
+Context()->noreduce('(-x)-y','(-x)+y');
 $a = random(2,5,1);
 $vertshift = non_zero_random(-8,8,1);
 do{$horizshift = non_zero_random(-4,4,1);} until ($horizshift != $vertshift);
 $stretch = random(0.15, 2, 0.1 );
 
 
 if ($vertshift>0, $horizshift>0)
-{$func = ("-$stretch($a^(x+$horizshift)) + $vertshift");}
+{$func = Formula("-$stretch($a^(x+$horizshift)) + $vertshift")->reduce;}
 if ($vertshift>0, $horizshift<0)
-{$func = ("-$stretch($a^(x $horizshift)) + $vertshift");}
+{$func = Formula("-$stretch($a^(x $horizshift)) + $vertshift")->reduce;}
 if ($vertshift<0, $horizshift<0)
-{$func = ("-$stretch($a^(x $horizshift)) + $vertshift");}
-else{ $func = ("-$stretch($a^(x+$horizshift)) + $vertshift");};
+{$func = Formula("-$stretch($a^(x $horizshift)) + $vertshift")->reduce;}
+else{ $func = Formula("-$stretch($a^(x+$horizshift)) + $vertshift")->reduce;};
 
 $absvertshift = abs($vertshift);
+$abshorizshift = abs($horizshift);
 
 $ans1 = Formula("$a^x");
 
@@ -91,8 +92,8 @@ if ($horizshift>0)
 
 else {
     $popup2 = PopUp(
- ["?","Upward shift of $horizshift units", "Downward shift of $horizshift units", "Left shift of $horizshift units", "Right shift of $horizshift units"],
-		  "Right shift of $horizshift units",
+ ["?","Upward shift of $abshorizshift units", "Downward shift of $abshorizshift units", "Left shift of $abshorizshift units", "Right shift of $abshorizshift units"],
+		  "Right shift of $abshorizshift units",
 );
 
 };