Euler's method using methematica