how to solve wave equation using ctcs method in mathematica programming?