typos and display fix

Author: brittnilorton

Contrib/CCCS/CalculusOne/02.4/CCD_CCCS_Openstax_Calc1_C1-2016-002_04_139_143.pg

@@ -36,15 +36,16 @@ Parser::Number::NoDecimals();
 
 ###########################
 #  Setup
-
+Context("Numeric");
 Context()->noreduce('(-x)-y','(-x)+y');
 
 # first function of the form (x^2+x-2)/(x-1)
 $x = non_zero_random(-6, 6, 1);
 $x0 = non_zero_random(-6, 6, 1);
-$num = Formula("x^2 + ($x+$x0)*x+$x*$x0")->reduce;
+$b = $x+$x0;
+$num = Formula("x^2 + $b*x+$x*$x0")->reduce;
 $denom = Formula("x+$x")->reduce;
-$f_1 = Formula("$num/$denom"); 
+$f_1 = Formula("$num/$denom")->reduce; 
 
 #answers for first function
 $popup1 = PopUp(
@@ -57,15 +58,16 @@ $popup2 = PopUp(
 
 # second function of the form (3x^2+x-2)/(3x-1)
 Context("Fraction-NoDecimals");
+Context()->noreduce('(-x)-y','(-x)+y');
 $a1 = non_zero_random(-3, 3, 1);
 $a2 = non_zero_random(-3, 3, 1);
 $b1 = non_zero_random(-4, 4, 1);
 $b2 = non_zero_random(-4, 4, 1);
 $c = non_zero_random(-6, 6, 1);
 $num1 = Formula("$a1*$a2*x^2 + ($a1*$b2+$a2*$b1)*x + $b1*$b2")->reduce;
 $denom1 = Formula("$a1*x+$b1")->reduce;
-$f_2 = Formula("$num1/$denom1"); 
-$f_2simp = Formula("$a2*x+$b2");
+$f_2 = Formula("$num1/$denom1")->reduce; 
+$f_2simp = Formula("$a2*x+$b2")->reduce;
 
 $x_frac = Compute("-$b1/$a1");
 $y0 = $f_2simp->eval (x=>$x_frac);
@@ -149,44 +151,22 @@ if ($aa == 1) {
 BEGIN_PGML
 
 (a)
-`f(x)=[$f_1]` ;  at `x=-[$x]`;  the function is: [@ $popup1->menu() @]*   Classification: [@ $popup2->menu() @]* 
+[`f(x)=[$f_1]`] ;  at `x=-[$x]`;  the function is: [@ $popup1->menu() @]*   Classification: [@ $popup2->menu() @]* 
 
 
 (b)
  [` f(x)=[$fun] `]  ;  at `x=[$x_frac]` the function is: [@ $popup3->menu() @]*   Classification: [@ $popup4->menu() @]* 
 
 
 (c)
- [` f(x)=[$f_3] `]  ;  at `x=1` the function is: [@ $popup5->menu() @]*   Classification: [@ $popup6->menu() @]* 
+ [`` f(x)=[$f_3] ``]  ;  at `x=1` the function is: [@ $popup5->menu() @]*   Classification: [@ $popup6->menu() @]* 
 
 
 (d)
  [` f(x)=[$fun2] `]  ; at `x=0` the function is: [@ $popup7->menu() @]*   Classification: [@ $popup8->menu() @]* 
 
 END_PGML
 
-############################
-
-BEGIN_PGML_HINT
-
-Recall the definition of continuity at a point and the types of discontinuity:
-
-A function, [`f(x)`], is continuous at [`x=a`] provided all three of the following hold true.
-* [`f(a)`] is defined. (_the function value exists_)
-* [``\lim_{x\rightarrow a} f(x) ``] exists. (_the two sided limit exists_)
-* [``\lim_{x\rightarrow a} f(x) =f(a)``] (_the two sided limit is equal to the function value_)
-
-If one or more of those three conditions fails, then the function [`f(x)`] is discontinuous at [`x=a`].
-
-
-If [`f(x)`] is discontinuous at [`x=a`], then
-1. [`f`] has a *removable discontinuity* at [`a`] if [``\lim_{x\rightarrow a} f(x)``] exists and is equal to a real number.
-2. [`f`] has a *jump discontinuity* at [`a`] if [``\lim_{x\rightarrow a^-} f(x)``] and [``\lim_{x\rightarrow a^+} f(x)``] both exist (and are equal to a real number) but are not equal to each other.
-3. [`f`] has an *infinite discontinuity* at [`a`] if [``\lim_{x\rightarrow a^-} f(x)=\pm \infty``] or [``\lim_{x\rightarrow a^+} f(x)=\pm \infty``]
-
-
-END_PGML_HINT
-
 
 ############################
 # Answers
@@ -210,40 +190,18 @@ BEGIN_PGML
 
 
 (b)
- [` f(x)=[$f_3] `]  ;  at `x=1` the function is: [@ $popup5->menu() @]*   Classification: [@ $popup6->menu() @]* 
+ [`` f(x)=[$f_3] ``]  ;  at `x=1` the function is: [@ $popup5->menu() @]*   Classification: [@ $popup6->menu() @]* 
 
 
 (c)
-`f(x)=[$f_1]` ;  at `x=-[$x]` the function is: [@ $popup1->menu() @]*   Classification: [@ $popup2->menu() @]* 
+[`f(x)=[$f_1]`] ;  at `x=-[$x]` the function is: [@ $popup1->menu() @]*   Classification: [@ $popup2->menu() @]* 
 
 
 (d)
  [` f(x)=[$fun2] `]  ; at `x=0` the function is: [@ $popup7->menu() @]*   Classification: [@ $popup8->menu() @]* 
 
 END_PGML
 
-############################
-
-BEGIN_PGML_HINT
-
-Recall the definition of continuity at a point and the types of discontinuity:
-
-A function, [`f(x)`], is continuous at [`x=a`] provided all three of the following hold true.
-* [`f(a)`] is defined. (_the function value exists_)
-* [``\lim_{x\rightarrow a} f(x) ``] exists. (_the two sided limit exists_)
-* [``\lim_{x\rightarrow a} f(x) =f(a)``] (_the two sided limit is equal to the function value_)
-
-If one or more of those three conditions fails, then the function [`f(x)`] is discontinuous at [`x=a`].
-
-
-If [`f(x)`] is discontinuous at [`x=a`], then
-1. [`f`] has a *removable discontinuity* at [`a`] if [``\lim_{x\rightarrow a} f(x)``] exists and is equal to a real number.
-2. [`f`] has a *jump discontinuity* at [`a`] if [``\lim_{x\rightarrow a^-} f(x)``] and [``\lim_{x\rightarrow a^+} f(x)``] both exist (and are equal to a real number) but are not equal to each other.
-3. [`f`] has an *infinite discontinuity* at [`a`] if [``\lim_{x\rightarrow a^-} f(x)=\pm \infty``] or [``\lim_{x\rightarrow a^+} f(x)=\pm \infty``]
-
-
-END_PGML_HINT
-
 
 ############################
 # Answers
@@ -267,11 +225,11 @@ BEGIN_PGML
 
 
 (b)
- [` f(x)=[$f_3] `]  ; at `x=1` the function is: [@ $popup5->menu() @]*   Classification: [@ $popup6->menu() @]* 
+ [`` f(x)=[$f_3] ``]  ; at `x=1` the function is: [@ $popup5->menu() @]*   Classification: [@ $popup6->menu() @]* 
 
 
 (c)
-`f(x)=[$f_1]` ;  at `x=-[$x]` the function is: [@ $popup1->menu() @]*   Classification: [@ $popup2->menu() @]* 
+[`f(x)=[$f_1]`] ;  at `x=-[$x]` the function is: [@ $popup1->menu() @]*   Classification: [@ $popup2->menu() @]* 
 
 
 (d)
@@ -281,28 +239,6 @@ BEGIN_PGML
 
 END_PGML
 
-############################
-
-BEGIN_PGML_HINT
-
-Recall the definition of continuity at a point and the types of discontinuity:
-
-A function, [`f(x)`], is continuous at [`x=a`] provided all three of the following hold true.
-* [`f(a)`] is defined. (_the function value exists_)
-* [``\lim_{x\rightarrow a} f(x) ``] exists. (_the two sided limit exists_)
-* [``\lim_{x\rightarrow a} f(x) =f(a)``] (_the two sided limit is equal to the function value_)
-
-If one or more of those three conditions fails, then the function [`f(x)`] is discontinuous at [`x=a`].
-
-
-If [`f(x)`] is discontinuous at [`x=a`], then
-1. [`f`] has a *removable discontinuity* at [`a`] if [``\lim_{x\rightarrow a} f(x)``] exists and is equal to a real number.
-2. [`f`] has a *jump discontinuity* at [`a`] if [``\lim_{x\rightarrow a^-} f(x)``] and [``\lim_{x\rightarrow a^+} f(x)``] both exist (and are equal to a real number) but are not equal to each other.
-3. [`f`] has an *infinite discontinuity* at [`a`] if [``\lim_{x\rightarrow a^-} f(x)=\pm \infty``] or [``\lim_{x\rightarrow a^+} f(x)=\pm \infty``]
-
-
-END_PGML_HINT
-
 
 ############################
 # Answers
@@ -325,41 +261,19 @@ BEGIN_PGML
 
 
 (b)
-`f(x)=[$f_1]` ;  at `x=-[$x]` the function is: [@ $popup1->menu() @]*   Classification: [@ $popup2->menu() @]* 
+[``f(x)=[$f_1]``] ;  at `x=-[$x]` the function is: [@ $popup1->menu() @]*   Classification: [@ $popup2->menu() @]* 
 
 
 (c)
  [` f(x)=[$fun2] `]  ; at `x=0` the function is: [@ $popup7->menu() @]*   Classification: [@ $popup8->menu() @]* 
 
 
 (d)
- [` f(x)=[$f_3] `]  ; at `x=1`  the function is: [@ $popup5->menu() @]*   Classification: [@ $popup6->menu() @]* 
+ [`` f(x)=[$f_3] ``]  ; at `x=1`  the function is: [@ $popup5->menu() @]*   Classification: [@ $popup6->menu() @]* 
 
 
 END_PGML
 
-############################
-
-BEGIN_PGML_HINT
-
-Recall the definition of continuity at a point and the types of discontinuity:
-
-A function, [`f(x)`], is continuous at [`x=a`] provided all three of the following hold true.
-* [`f(a)`] is defined. (_the function value exists_)
-* [``\lim_{x\rightarrow a} f(x) ``] exists. (_the two sided limit exists_)
-* [``\lim_{x\rightarrow a} f(x) =f(a)``] (_the two sided limit is equal to the function value_)
-
-If one or more of those three conditions fails, then the function [`f(x)`] is discontinuous at [`x=a`].
-
-
-If [`f(x)`] is discontinuous at [`x=a`], then
-1. [`f`] has a *removable discontinuity* at [`a`] if [``\lim_{x\rightarrow a} f(x)``] exists and is equal to a real number.
-2. [`f`] has a *jump discontinuity* at [`a`] if [``\lim_{x\rightarrow a^-} f(x)``] and [``\lim_{x\rightarrow a^+} f(x)``] both exist (and are equal to a real number) but are not equal to each other.
-3. [`f`] has an *infinite discontinuity* at [`a`] if [``\lim_{x\rightarrow a^-} f(x)=\pm \infty``] or [``\lim_{x\rightarrow a^+} f(x)=\pm \infty``]
-
-
-END_PGML_HINT
-
 
 ############################
 # Answers

Contrib/CCCS/CalculusOne/03.3/CCD_CCCS_Openstax_Calculus_C1-2016-002_3_3_130.pg

@@ -55,6 +55,9 @@ $p4 = FEQ("2.5 for x in <2.5,5] using color:red weight:2");
 
 add_functions($gr0,$p1,$p2,$p3,$p4);
 
+$gr0->lb( new Label(0.5,4,"f(x)", 'blue', 'left', 'middle'));
+$gr0->lb( new Label(1,1.7,"g(x)", 'red', 'left', 'middle'));
+
 #################################
 #  Main text
 

Contrib/CCCS/CalculusOne/03.4/CCD_CCCS_Openstax_Calculus_C1-2016-002_3_4_159.pg

@@ -167,16 +167,6 @@ $popup1 = PopUp(
   ["?","A","B", "C", "D"], "B",
 );
 
-#($gr0->fn)[0]->steps(200);
-
-$in=time();
-$gr0->gifName($gr0->gifName()."$in");
-$gr1->gifName($gr1->gifName()."$in");
-$gr2->gifName($gr2->gifName()."$in");
-$gr3->gifName($gr3->gifName()."$in");
-$gr4->gifName($gr4->gifName()."$in");
-
-
 #################################
 #  Main text
 
@@ -203,7 +193,7 @@ Velocity is positive on [_______________]{$vpos} [@ AnswerFormatHelp("intervals"
 
 Velocity is negative on [_______________]{$vneg} [@ AnswerFormatHelp("intervals") @]*
 
-Velocity is zero on [_______________]{$vzero} [@ AnswerFormatHelp("intervals") @]*
+Velocity is zero on [_______________]{$vzero->cmp(studentsMustReduceUnions => 0)} [@ AnswerFormatHelp("intervals") @]*
 
 
 Use interval notation for your answer. Remember that a single value, such as 3, can be notated with curly brackets as {3} in interval notation.

Contrib/CCCS/CalculusOne/03.9/CCD_CCCS_Openstax_Calc1_C1-2016-002_3_9_344.pg

@@ -33,7 +33,6 @@ $showPartialCorrectAnswers = 1;
 #  Setup
 
 Context("Numeric");
-Context()->variables->add(u => 'Real');
 
 $a=non_zero_random(2,10,1);
 $b=non_zero_random(-10,10,1);
@@ -43,20 +42,17 @@ $e=random(2,9,1);
 
 $f=Formula("($b x^$c+$d)")->reduce;
 
-
 $ans3=Formula("($e/ln($a))(($b* $c x^($c-1))/($b x^$c+$d))")->reduce;
 
 ###########################
 #  Main text
-## I hope you get [`[$ans1]`], [`[$ans2]`], and [`[$ans3]`].
 BEGIN_PGML
 
-Find `f^\prime(x)` for [`f(x)=\log_{[$a]}(([$f])^[$e])`].
+Find `f^\prime(x)` for [``f(x)=\log_{[$a]}\left(\left([$f]\right)^[$e]\right)``].
 
 `f^\prime(x)=`[_______________________________]{$ans3} [@ AnswerFormatHelp("formulas") @]*
 
 
-
 END_PGML
 ############################
 BEGIN_PGML_HINT

Contrib/CCCS/CalculusOne/03.9/CCD_CCCS_Openstax_Calc1_C1-2016-002_3_9_350.pg

@@ -35,8 +35,7 @@ $showPartialCorrectAnswers = 1;
 Context("Numeric");
 Context()->variables->set(x=>{limits=>[0.1,0.5]});
 
-#$a=non_zero_random(-10,10,1);
-$a=-1;
+$a=non_zero_random(-10,10,1);
 $b=non_zero_random(-10,10,1);
 $c=non_zero_random(-10,10,1);
 $d=random(2,10,1);

Contrib/CCCS/CalculusOne/03.9/CCD_CCCS_Openstax_Calc1_C1-2016-002_3_9_353.pg

@@ -8,7 +8,7 @@
 ## DBsection(Logarithmic differentiation)
 ## Date(05/11/2018)
 ## Institution(Colorado Community College System)
-## Author(Eric Fleming)
+## Author(Eric Fleming - edited Brittni Lorton Fall 2022)
 ## MO(1)
 ## KEYWORDS('chain rule', 'trig', 'trigonometric functions', 'cot', 'cotangent', 'cot(x)')
 
@@ -35,40 +35,33 @@ $showPartialCorrectAnswers = 1;
 #  Setup
 
 Context("Numeric");
-
-Context()->variables->add(u => 'Real');
-
-$aa=non_zero_random(-10,-2,1);
-$aaa=non_zero_random(2,10,1);
-$a=max(abs($aa),$aaa);
-$aaaa=$a/abs($a);
-$absa=abs($a);
+$a=non_zero_random(-10,10,1);
 $b=non_zero_random(1,10,1);
 $c=non_zero_random(1,10,1);
 $d=random(2,10,1);
 $e=random(2,10,1);
-$i=random(2,10,1);
+$max = max($d,$e);
+$min = min($d,$e);
+
+$f=random(2,10,1);
 $g=random(2,10,1);
 $h=random(2,10,1);
 
-$divisor=gcd($d,$e);
-
-$dd=$d/$divisor;
-$ee=$e/$divisor;
+Context("Fraction");
+$exp1 = Compute("1/$a");
+$exp2 = Compute("$min/$max");
+$exp3 = Compute("$h");
 
-
-
-$f=Formula("(x^$b+$c)")->reduce;
-$gg=Formula("($i x+$g)^($h)");
-
-$ans=Formula("(1/($a*x)+($b*$d*x^($b-1))/($e*(x^$b+$c))+($h*$i)/($i*x+$g))(x^($aaaa/$absa)($f^($dd/$ee)$gg))")->reduce->with(limits=>[9,10]);
+Context()->noreduce('(-x)-y','(-x)+y', 'x^(-a)');
+$fun = Formula("x**{$exp1}(x**$b+$c)**{$exp2}($f*x+$g)**$h")->reduce;
+$ans=Formula("(1/($a*x)+($exp2*$b*x**($b-1))/(x**$b+$c)+($h*$f)/($f*x+$g))*$fun")->reduce->with(limits=>[9,10]);
 
 ###########################
 #  Main text
-## I hope you get [`[$ans1]`], [`[$ans2]`], and [`[$ans3]`].
+
 BEGIN_PGML
 
-Use logarithmic differentiation to find `\frac{dy}{dx}` for [`\displaystyle y=x^{[$aaaa]/[$absa]}\left([$f]\right)^{[$dd]/[$ee]}[$gg]`].
+Use logarithmic differentiation to find `\frac{dy}{dx}` for [`\displaystyle y= [$fun]`].
 
 `\frac{dy}{dx}=`[______________________________________________________]{$ans} [@ AnswerFormatHelp("formulas") @]*
 

Contrib/CCCS/CalculusOne/04.5/CCD_CCCS_Openstax_Calc1_C1-2016-002_4_5_217.pg

@@ -132,7 +132,7 @@ Draw a graph of a function, [`f(x)`], that satisfies the following specification
 
 [`f'(x)<0`] for [`[$a]<x<[$c]`]
 
-[`f''(x)<0`] for all [`x`]
+[`f''(x)<0`] for all [`x \neq [$c]`]
 
 Which of the following graphs is a graph of [`f(x)`] that satisfies the given specifications on the interval  [`[[$b],[$d]]`]? [_________________]{$popup1} 
 

Contrib/CCCS/CollegeAlgebra/2.6/CCD_CCCS_Openstax_AlgTrig_AT-1-001-AS_2_6_7.pg

@@ -50,7 +50,7 @@ if ( $b % 2) {
 
 $video = MODES(
 HTML=> 
-'<iframe width="420" height="315" src="//www.youtube.com/embed/xs-D0MixxLM"  frameborder="0" allowfullscreen></iframe>', 
+'<iframe width="420" height="315" src="https://www.youtube.com/embed/tjeCvpiI254"  frameborder="0" allowfullscreen></iframe>', 
 TeX =>
 "An embedded YouTube video."
 );