text: ## DESCRIPTION
  ## 
  ## ENDDESCRIPTION
  
  ## DBsubject(Algebra)
  ## DBchapter(Transformations of functions and graphs)
  ## DBsection(Symmetry: even, odd, neither)
  ## Date(06/02/2017)
  ## Institution(Red Rocks Community College, Colorado Community College System)
  ## Author(Brenda Forland)
  ## MO(1)
  ## KEYWORDS('algebra')
  
  
  ###########################
  #  Initialization
  
  DOCUMENT();
  
  loadMacros(
  "PGstandard.pl",
  "MathObjects.pl",
  "parserPopUp.pl",
  "AnswerFormatHelp.pl",
  "PGML.pl",
  "PGcourse.pl",
  );
  
  TEXT(beginproblem());
  
  $showPartialCorrectAnswers = 1;
  
  
  ###########################
  #  Setup
  
  Context("Numeric");
  
  $a = non_zero_random(2,6,2);
  $b = non_zero_random(-10,10,1);
  
  $f = Formula("$b*x^$a")->reduce;
  
  $ans1 = $f;
  $ans2 = Formula("-$b*x^$a")->reduce;
  
  $popup = PopUp(
    ["?","odd","even","neither"],
    "even",
  );
  ###########################
  #  Main text
  
  BEGIN_PGML
  Let [``f(x) = [$f]``]. Find [``f(-x)``] and [``-f(x)``]. Use them to determine whether or not [``f(x)``] is even, odd, or neither.
  
  [` f(-x) = `] [_______________]{$ans1} [@ AnswerFormatHelp("formulas") @]*
  
  [` -f(x) = `] [_______________]{$ans2} [@ AnswerFormatHelp("formulas") @]*
  
  Is [``f(x)``] odd, even, or neither?
  [@ $popup->menu() @]*
  
  END_PGML
  
  
  ############################
  
  #  Answer evaluation
  
  install_problem_grader(~~&std_problem_grader);
  
  $showPartialCorrectAnswers = 0;
  
  ANS( $popup->cmp() );
  
  ############################
  #  Solution
  
  #BEGIN_PGML_SOLUTION
  #Solution explanation goes here.
  #END_PGML_SOLUTION
  
  COMMENT('MathObject version. Uses PGML.');
  
  ENDDOCUMENT();