intothecontinuum- Mathematica code- Id[x_, y_] -= {x, y}f[x_, y_] -= {Log[Sqrt[x^2 + y^2]], ArcTan[x

more about : intothecontinuum