View of /trunk/NationalProblemLibrary/Union/setIntRiemannSums/riemann-sum-estimate-text.pg

    1 $offset = 0 unless defined $offset;
    2 $percent = 100*$offset;
    3 if ($offset == 0)  {$points = "left endpoints";}
    4      elsif ($offset == 1)  {$points = "right endpoints";}
    5      elsif ($offset == .5) {$points = "midpoints";}
    6      else  {$points = "points that are $percent $PERCENT of the way from
    7              left to right";}
    8 
    9 $ans=RiemannSum($a,$b,$n,$offset);
   10 
   11 BEGIN_TEXT
   12 Estimate
   13 \( \displaystyle\int_{$a}^{\,$b} $f \,dx\)
   14 using $points for \( n = $n \) approximating rectangles.
   15 $PAR
   16 \( \displaystyle\int_{$a}^{\,$b} $f \,dx\) is approximately \{ans_rule(45)\}
   17 END_TEXT