Mean curvature with Mathematica

I Use the function NDSolve of mathematica to
solve the mean curvature flow of ellipse.

Here is the results:

We refer to the article: http://ieeexplore.ieee.org/xpls/abs_all.jsp?arnumber=859298