additional bug fixes

Author: brittnilorton

Contrib/CCCS/AlgebraicLiteracy/IA_8.4/OpenStax_IA_8.4_165.pg

@@ -1,12 +1,10 @@
 #Add or Subtract Radicals
 # ENDDESCRIPTION
-## DBsubject()
-## DBchapter()
-## DBsection()
+## DBsubject(Algebra)
+## DBchapter(Properties of exponents, rational exponents and radicals)
+## Date(6/2019)
 ## Institution(Red Rocks Community College)
 ## Author(Martha Stevens)
-## Date(6/2019)
-## KEYWORDS()
 
 
 DOCUMENT();
@@ -27,23 +25,23 @@ TEXT(beginproblem());
 Context("Numeric");
 
 #Part A
-$a = list_random(2, 3, 5, 7);
-$b = non_zero_random(-10, 10);
+$a = list_random(2, 3, 5, 7, 10);
+do{$b = non_zero_random(-10, 10);
 $c = non_zero_random(-10, 10);
-$d = Compute("$b+$c");
+$d = Compute("$b+$c");}until($d !=0);
 
 #Part B
 $n = random(3, 6);
 $b2 = non_zero_random(-10, 10);
 do{
 $c2 = non_zero_random(-10, 10);
-}until($c2 != -$b2);
-
-$d2 = Compute("$c2 + $b2");
+$d2 = Compute("$c2 + $b2");}until($d2 !=0);
 
 Context("LimitedRadical");
 
-$ans1 = Formula("$d*sqrt($a)");
+if($d ==1){$ans1 = Formula("sqrt($a)");}
+elsif($d ==-1){$ans1 = Formula("-sqrt($a)");}
+else{$ans1 = Formula("$d*sqrt($a)");}
 $ans2 = Formula("$d2*root($n,x)");
 
 ##########################################
@@ -56,7 +54,7 @@ BEGIN_PGML
 Simplify each radical.
 
 
-  (a)  [`` [$b]\sqrt{[$a]} + [$c]\sqrt{[$a]} = ``] [_____________]{$ans1->cmp(mathQuillOpts => "rootsAreExponents: false")}
+  (a)  [`` [$b]\sqrt{[$a]} + [$c]\sqrt{[$a]} = ``] [_____________]{$ans1}
 
   (b)  [`` [$b2]\sqrt[[$n]]{x} + [$c2]\sqrt[[$n]]{x} = ``] [_____________]{$ans2->cmp(mathQuillOpts => "rootsAreExponents: false")}
 

Contrib/CCCS/CollegeAlgebra/6.1/CCD_CCCS_Openstax_AlgTrig_AT-1-001-AS_6_1_39.pg

@@ -36,7 +36,7 @@ TEXT(beginproblem());
 # Setup
 $a=random(1000,5000);
 $b=non_zero_random(-1,1,.01);
-
+$b = Round($b, 3);
 Context("Numeric");
 
 if ($b>0) 

Contrib/CCCS/PreCalculus/08.2/CCD_CCCS_Openstax_AlgTrig_AT-1-001-AS_8_2_40.pg

@@ -58,19 +58,19 @@ Determine which equation can be used to find the asymptotes for the following gr
 
 Which equation can be used to find the asymptotes for the graph?   [_______]{$popup}.
 
-A. `y=\frac{pi}{3} \pm \frac{pi}{2}k`, for any `k` integer.
+A. `y=\frac{pi}{3} + \frac{pi}{2}k`, for any `k` integer.
 
 
 B. `y=\frac{pi}{6}k`, for any `k` integer.
 
 
-C. `x=\frac{pi}{2} \pm k`, for any `k` integer.
+C. `x=\frac{pi}{2} + k`, for any `k` integer.
 
 
 D. `x=k`, for any `k` integer.
 
 
-E. `x=kpi \pm k`, for any `k` integer.
+E. `x=kpi + k`, for any `k` integer.
 
 
 

Contrib/CCCS/PreCalculus/08.2/CCD_CCCS_Openstax_AlgTrig_AT-1-001-AS_8_2_41.pg

@@ -62,10 +62,10 @@ A. `x=\frac{pi}{6}k`, for any `k` integer.
 B. `y=\frac{pi}{2}k`, for any `k` integer.
 
 
-C. `x=\frac{pi}{4} \pm \frac{pi}{2}k`, for any `k` integer.
+C. `x=\frac{pi}{4} + \frac{pi}{2}k`, for any `k` integer.
 
 
-D. `y=\frac{pi}{4} \pm \frac{pi}{2}k`, for any `k` integer.
+D. `y=\frac{pi}{4} + \frac{pi}{2}k`, for any `k` integer.
 
 
 E. `x=\frac{pi}{2}k`, for any `k` integer.

Contrib/CCCS/PreCalculus/08.2/CCD_CCCS_Openstax_AlgTrig_AT-1-001-AS_8_2_42.pg

@@ -61,16 +61,16 @@ Which equation can be used to find the asymptotes for the graph?   [_______]{$po
 A. `x=-\frac{pi}{8}k`, for any `k` integer.
 
 
-B. `x=\frac{3pi}{8} \pm \frac{pi}{2}k`, for any `k` integer.
+B. `x=\frac{3pi}{8} + \frac{pi}{2}k`, for any `k` integer.
 
 
-C. `y=\frac{pi}{8} \pm 2pik`, for any `k` integer.
+C. `y=\frac{pi}{8} + 2pik`, for any `k` integer.
 
 
-D. `y=\frac{pi}{4} \pm \frac{pi}{2}k`, for any `k` integer.
+D. `y=\frac{pi}{4} + \frac{pi}{2}k`, for any `k` integer.
 
 
-E. `x=-\frac{3pi}{8} \pm pik`, for any `k` integer.
+E. `x=-\frac{3pi}{8} + pik`, for any `k` integer.
 
 
 

Contrib/CCCS/PreCalculus/3.7/CCD_CCCS_Openstax_AlgTrig_AT-1-001-AS_3_7_14.pg

@@ -39,7 +39,9 @@ $a = non_zero_random(2,9,1);
 
 $f=Formula("(x-$a)^2")->reduce;
 
-$f_inverse=Formula("sqrt(x)+$a");
+$f_inverse=Formula("sqrt(x)+$a")->reduce;
+
+$f_inverse->{limits} = [0,20];
 
 Context("Interval");
 $interval=Interval("[$a, infinity)");