doloop.mws
>
restart:
>
N:=3;
(1)
>
for i from 1 to N do
diff(y[i](t),t)=(y[i+1](t)-y[i-1](t));
od;
(2)
>
(3)
>