DOCUMENT();

loadMacros(
"PGstandard.pl",
"PGchoicemacros.pl",
"MathObjects.pl",
);
$m=random(-10,10-1);
$b=random(-10,10-1);
$x=random(-10,10-1);
if(random(0,1,1))
{
        $y=$m*$x+$b;
        $c="Yes";
}
else
{
        $y=random(-10,10,1);
        $c="No";
}
$line=Compute("$m x+$b");
$m=Compute("$m");
$b=Compute("$b");

$mc = new_multiple_choice();
$mc->qa("Is the point \(P($x,$y)\) on this line?",$c);

$mc->makeLast("Yes","No");
Context()->texStrings;
BEGIN_TEXT
Given the line \(y=$line\),$BR
What is the slope? \{ans_rule(2)\} $BR
What is the y-intercept? \{ans_rule(2)\} $BR
\{ $mc->print_q() \}
$BR
\{ $mc->print_a() \}
END_TEXT
$showPartialCorrectAnswers = 0;
Context()->normalStrings;

ANS($m->cmp());
ANS($b->cmp());
ANS( radio_cmp( $mc->correct_ans() ) );

ENDDOCUMENT();