Programs on Mathematica I wrote on the third year of undergraduate program.