I want my graphic to be like this (file: Hansevi's Graphic.mw ):

instead of this (file: My graphic.mw):

Does anyone know why both graphics are different?

*The graphics were supposed to be similar -_-

Thanks, so now I specify the value for M, ie M=1, but still error :(. What should I do now?

Error:

File: error-series.mw

Please help?

Now it's division by zero, help...

File: division by zero

I tried this on maple:

eps1 := [0, 1/5, 2/5, 3/5, 4/5, 1]:
start1 := 2.3:
base1 := 1.1:
for i from 1 to 6 do
R := start1*base1**0:
points1[i] := [R, evalf(eval(mH, {M=1, r=R, epsilon = eps1[i]}))]:
for a from 1 to 20 do
R := start1*base1**a:
points1[i] := points1[i], [R, evalf(eval(mH, {M=1, r=R, epsilon = eps1[i]}))]:...