Skip to content
Merged
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
45 changes: 4 additions & 41 deletions OpenProblemLibrary/Michigan/Chap2Sec3/Q41.pg
Original file line number Diff line number Diff line change
Expand Up @@ -69,12 +69,8 @@ Context("Numeric");
"a curve decreasing with decreasing slope from top left to " .
"bottom right of the graph",
"a horizontal line through the center of the graph",
"a curve starting at the bottom left of the graph, reaching " .
"the top of the graph mid-way across the x-range, and then " .
"decreasing back to zero at the right end of the graph",
"a curve starting at the top right of the graph, reaching the " .
"bottom of the graph mid-way across the x-range, and then " .
"increasing back to the top right corner of the graph" );
"a curve which starts at zero, increases to a peak and then decreases back to zero",
"a curve which starts at the top left, decreases for a bit and then increases to the top right" );

for (my $i=0; $i<@func; $i++ ) {
$graphs[$i] = init_graph( 0,0,1,1,size=>[100,100] ); ## no axes or labels
Expand Down Expand Up @@ -123,7 +119,7 @@ $showPartialCorrectAnswers = 1;

foreach $i (0..8) {
$fig[$i] = image(insertGraph($graphs[$shuff[$i]]), height=>100, width=>100, tex_size=>250,
extra_html_tags=>'alt="' . $gdesc[$shuff[$i]] . '"');
alt=>"$gdesc[$shuff[$i]]");
}

Context()->texStrings;
Expand Down Expand Up @@ -204,8 +200,7 @@ if ( @cor3 > 1 ) {
}

Context()->texStrings;
SOLUTION(EV3(<<'END_SOLUTION'));
$PAR SOLUTION $PAR
BEGIN_SOLUTION

Because \( $descr[$f1]\) for \(x < -$a\), the first segment must be
$pl1 $ans1. Similarly, because \( $descr[$f2]\) for \(-$a < x < $a\),
Expand All @@ -219,35 +214,3 @@ Context()->normalStrings;

;
ENDDOCUMENT();



\{ begintable(3) \}
\{ row( "${BBOLD}1.$EBOLD" .
image(insertGraph($graphs[$shuff[0]]), height=>100, width=>100,
extra_html_tags=>'alt="' . $gdesc[$shuff[0]] . '"'),
"${BBOLD}2.$EBOLD" .
image(insertGraph($graphs[$shuff[1]]), height=>100, width=>100,
extra_html_tags=>'alt="' . $gdesc[$shuff[1]] . '"'),
"${BBOLD}3.$EBOLD" .
image(insertGraph($graphs[$shuff[2]]), height=>100, width=>100,
extra_html_tags=>'alt="' . $gdesc[$shuff[2]] . '"') ) \}
\{ row( "${BBOLD}4.$EBOLD" .
image(insertGraph($graphs[$shuff[3]]), height=>100, width=>100,
extra_html_tags=>'alt="' . $gdesc[$shuff[3]] . '"'),
"${BBOLD}5.$EBOLD" .
image(insertGraph($graphs[$shuff[4]]), height=>100, width=>100,
extra_html_tags=>'alt="' . $gdesc[$shuff[4]] . '"'),
"${BBOLD}6.$EBOLD" .
image(insertGraph($graphs[$shuff[5]]), height=>100, width=>100,
extra_html_tags=>'alt="' . $gdesc[$shuff[5]] . '"') ) \}
\{ row( "${BBOLD}7.$EBOLD" .
image(insertGraph($graphs[$shuff[6]]), height=>100, width=>100,
extra_html_tags=>'alt="' . $gdesc[$shuff[6]] . '"'),
"${BBOLD}8.$EBOLD" .
image(insertGraph($graphs[$shuff[7]]), height=>100, width=>100,
extra_html_tags=>'alt="' . $gdesc[$shuff[7]] . '"'),
"${BBOLD}9.$EBOLD" .
image(insertGraph($graphs[$shuff[8]]), height=>100, width=>100,
extra_html_tags=>'alt="' . $gdesc[$shuff[8]] . '"') ) \}
\{ endtable() \}