Mathematica- Multi-Slit Interference simulation