hi. please help me about modeling population migration. i am writing a sample for drawing plot in maple, however maple has not any error, but working incorrectly. my program is:

> u := am+bm*m0*x*t+cm*n0*y*t;

> v := an+bn*m0*x*t+cn*n0*y*t;

> eq1 := diff*(x*t, t) = 2*A*(sinh(u)-x*t*cosh(u));

> eq2 := diff*(y*t, t) = 2*A*(sinh(v)-y*t*cosh(v));

> init := x*0 = X, y*0 = Y;

> sol := dsolve*({eq1, eq2, init}, {x(t), y(t)}, numeric);

> param :=A=1/(2) ,am=0 , bm=1.2*(e)^(-4) ,cm= 0.5*(e)^(-5) ,;

> m0 = 10000, an = 0, bn = -exp(-4), cn = 1.2*exp(-3), n0 = 1000;

> save u, v, param, " narm.sav";

> init := x*0 = 0, y*0 = 0.1e-1;

> eq1 := subs*(param, eq1);

> eq2 := subs*(param, eq2);

> sol := dsolve*({eq1, eq2, init}, {x(t), y(t)}, numeric);

> with*plots;

> odeplot*(sol, [x*t, y*t], 0 .. 60, numpoints = 300, view = [-1 .. 1, -1 .. 1]);

> odeplot*(sol*d, [t, x*t, y*t], 0 .. 60, numpoints = 300, orientation = [70, 55], colour = black, axes = normal);

> init := x*0 = -1, y*0 = 1;

> sold := dsolve*({eq1, eq2, init}, {x(t), y(t)}, numeric);

> odeplot*(sold, [x*t, y*t], 0 .. 60, numpoints = 300, view = [-1 .. 1, -1 .. 1], color = black);