Merge pull request #1355 from Tanaquil18/patch-17

alt-text format and use shorter alt-text in Michigan/Chap2Sec3/Q41

Author: gajennings

OpenProblemLibrary/Michigan/Chap2Sec3/Q41.pg

@@ -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
@@ -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;
@@ -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\),
@@ -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() \}