Scott03

What the error is indicating is that the system that you are trying to create is not a differential equation.  To get this to work, just change the sys call to

sys := DynamicSystems [ AlgEquation]( eq, inputvariable = [s1, s2],outputvariable = [F(t)]);

or

sys := DynamicSystems [ NewSystem]( eq, inputvariable = [s1, s2],outputvariable = [F(t)])

Since the histogram command is part of the Statistics package, you will need to change that link to something like

"maplenet/imaging/image?maple=plots[display](Statistics[Histogram]([1,2]))"

Scott

The two ways that you can create the log-log plot is to call the function directly or set the axis to log in the sequence list.  So the following code should work.

>restart;
>with(plots):
a := sum(m^i*exp(-m)/factorial(i), i = 0 .. c):
l := []:
for c from 0 to 40 do
l := [op(l), a]:
end do:
plotlist := [seq(loglogplot(l[n], m = 0 .. 40), n = 1 .. nops(l))]:
>plots[display](plotlist);

This will produce a plot where...

I believe that the suggestion that pagan suggested is likely the most efficient, but if you just want to use your list of lists and use map then the following should work.

for i to 3 do
  b || i := map((x) -> [x[4], x[6]], a || i)
end do;

This should allow you to go through each of the 'a' lists and take the 4th and 6th position.

If you wanted to have the 'a' values as Matrices you could simplify this as the following

a1 := Matrix([[1, 2, 3, 4, 5, 6, 7...