Here are Mathematica functions that is useful for me.