Question: Procedure (Maple 10)

Hello, I need make procedure for following instance. I want enter only: v, phi, sirka, k

Thank you...

restart:

with(DEtools):

v := 4;

phi := 1/3*Pi;

sirka := 10;

k := .2;

eq1 := diff(x(t), t) = v*cos(phi):

eq2 := diff(y(t), t) = -v*sin(phi)+k*x(t)*(sirka-x(t)):

sys := [eq1, eq2]:

DEplot(sys, [x(t), y(t)], t = 0 .. 15, [[x(0) = 0, y(0) = 0]], x = 0 .. sirka, y = -10 .. 10, stepsize = .1, thickness = 1, linecolor = red, arrows = none);

 

Please Wait...