Derivacia

>    with(plots):

>    curve := implicitplot( (x-2)^2+y-2, x=0..3, y=0..4, color=blue ):

>    P := animate(plot, [k*(x-1)+1, x=0..3], k=0.2..2, frames=8):
Q := animate(implicitplot, [x-k, x=0..3, y=0..-(x-2)^2+2],k=2.8..1, frames=8,background=curve ):
display([P, Q]);

[Maple Plot]

>