EulerSystem:=proc(f,g,n,h,tinit,xinit,yinit,t,x,y);
local i;
t[0]:=tinit;x[0]:=xinit; y[0]:=yinit;
for i from 1 to n do
t:= evalf(t[i-1]+h);
x:= evalf(x[i-1]+h*f(t[i-1],x[i-1],y[i-1]));
y:=evalf(y[i-1]+h*g(t[i-1],x[i-1],y[i-1]));
od;
end;
I think this code for euler's method for systems is correct, but when executed, maple says that it is unable to parse. it put the red box around "local" but i don't know how to change it. i appreciate the help!!
local i;
t[0]:=tinit;x[0]:=xinit; y[0]:=yinit;
for i from 1 to n do
t:= evalf(t[i-1]+h);
x:= evalf(x[i-1]+h*f(t[i-1],x[i-1],y[i-1]));
y:=evalf(y[i-1]+h*g(t[i-1],x[i-1],y[i-1]));
od;
end;
I think this code for euler's method for systems is correct, but when executed, maple says that it is unable to parse. it put the red box around "local" but i don't know how to change it. i appreciate the help!!