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]); |
> |