01.08.2013 12:36:38 [->] D:\tmp\tmpAAB9.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

plotsetup(gif, plotoutput="D:\\tmp\\tmpAABA.gif", plotoptions=`height=200,width=200`);
a:=plot(0, x=-5..5, axes=boxed, color=black, labels=["",""], tickmarks=[3,3]):t := textplot([0,0.5,`EMPTY PLOT`],align=ABOVE, color=red, font=[COURIER,14]):c:=coordplot(rectangular, [-5..5, -1..1], color=[gray,gray], linestyle=[7,7], grid=[5,5]):display([a,c,t]);
quit:

01.08.2013 12:36:39 [->] D:\tmp\tmpAD2B.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

plotsetup(gif, plotoutput="D:\\tmp\\tmpAD3B.gif", plotoptions=`height=200,width=200`);
a:=plot(0, x=-5..5, axes=boxed, color=black, labels=["",""], tickmarks=[3,3]):t := textplot([0,0.5,`EMPTY PLOT`],align=ABOVE, color=red, font=[COURIER,14]):c:=coordplot(rectangular, [-5..5, -1..1], color=[gray,gray], linestyle=[7,7], grid=[5,5]):display([a,c,t]);
quit:

01.08.2013 12:37:03 [->] D:\tmp\tmpD36.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

plotsetup(gif, plotoutput="D:\\tmp\\tmpD37.gif", plotoptions=`height=200,width=200`);
FillCurve := proc(f,a,b,am,bm)

    local i,n,x1,x2,y1,y2,A,d:
	
    n := 200;
    d := ( b - a ) / n;
    x2 := a;

    for i from 1 to n do
			
        x1 := evalf( x2 );
        x2 := evalf( a + i * d );
        y1 := evalf( f( x1 ) );
        y2 := evalf( f( x2 ) );
			
        if ( y1 > 0 ) then 
            A[i] := polygonplot( [ [x1, 0], [x1, y1], [x2, y2], [x2, 0] ], color=, style=patchnogrid );
        else 
            A[i] := polygonplot( [ [x1, 0], [x1, y1], [x2, y2], [x2, 0] ], color=, style=patchnogrid );
        fi;
			
    od:
		
    display( [ plot( f(x), x = am..bm, color=, discont=true ), seq( A[i], i=1..n ) ] );
		
end:
FillCurve(x->,,,,
quit:

01.08.2013 12:37:03 [->] D:\tmp\tmpD77.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

plotsetup(gif, plotoutput="D:\\tmp\\tmpD78.gif", plotoptions=`height=200,width=200`);
a:=plot(0, x=-5..5, axes=boxed, color=black, labels=["",""], tickmarks=[3,3]):t := textplot([0,0.5,`EMPTY PLOT`],align=ABOVE, color=red, font=[COURIER,14]):c:=coordplot(rectangular, [-5..5, -1..1], color=[gray,gray], linestyle=[7,7], grid=[5,5]):display([a,c,t]);
quit: