Professor of Physics. Using Mathematica for education and research