Diff for /loncom/homework/templates/extreme.problem between versions 1.1 and 1.2

version 1.1, 2010/06/13 22:56:55 version 1.2, 2010/06/14 11:34:20
Line 71  hasextreme:is(at(diff(y(x),x,1),x=LONCAP Line 71  hasextreme:is(at(diff(y(x),x,1),x=LONCAP
 isrightkind:false;  isrightkind:false;
 k:0;  k:0;
 s:0;  s:0;
 if hasextreme then for i:2 while s=0 do (s:at(diff(y(x),x,i),x=LONCAPALIST[1]),k:i);  if hasextreme then for i:2 while s=0 and not is(diff(y(x),x,i)=0) do (s:at(diff(y(x),x,i),x=LONCAPALIST[1]),k:i);
 if evenp(k) and is(LONCAPALIST[2]*s>0) then isrightkind:true;  if evenp(k) and is(LONCAPALIST[2]*s>0) then isrightkind:true;
 hasextreme and isrightkind;</answer>  hasextreme and isrightkind;</answer>
     <textline readonly="no" size="50" />      <textline readonly="no" size="50" />
 </mathresponse>  </mathresponse>
 </part>  </part>
 <part id="2">  <part id="2">
 <script type="loncapa/perl">$value=&cas('maxima',"float(at($example,x=$location))");</script>  <script type="loncapa/perl">$previous=&maxima_cas_formula_fix($example);
   $value=&cas('maxima',"float(at($previous,x=$location))");</script>
 <startouttext />  <startouttext />
 What is the value of your function at this $text?  What is the value of your function at this $text?
 <endouttext />  <endouttext />

Removed from v.1.1  
changed lines
  Added in v.1.2


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>