@Markiyan Hirnyk What are the empty words? Did I accuse you of trespassing the copyright law? No.

So what does this undocumented command do?

@Markiyan Hirnyk If you want to confirm its existence and the existence of its copyright notice, then do

interface(verboseproc= 2):
print(`evala/toprof`);

or

showstat(`evala/toprof`);

See ?option and ?interface.

@Markiyan Hirnyk The error message is due to the non-existence of command split in modern Maple.

@Christian Wolinski You are obviously a master Maple coder and master algebraist. Why don't you get modern Maple? Become a beta tester and you can earn a copy for finding a few bugs. Otherwise, what would it take for you to get modern Maple?

@Markiyan Hirnyk The fact that it prints with the body elided (or redacted) proves that it has option `Copyright...`. See ?option.

@Christian Wolinski There is no command split in modern Maple. Perhaps you mean factor?

@Mariusz Iwaniuk 

Okay, change +a to -a and change the assumption to a < 0. Then it works.

@vv Sorry about that. That's why my final animation seemed slower. The moral of the story is that I should use restart before testing!

@Markiyan Hirnyk I did comment on the purpose of parameter mu in my code below.

@Markiyan Hirnyk The parameter mu is the number of iterations between frames. In other words, every point makes mu micro-movements between frames.

@vv Try reducing the number of frames (the second parameter) from 600.

Did you change the number of starlings (points)? That hasn't worked well for me either. At 3000, they all get stuck.

@vv Do you mean that the code doesn't work in Maple or that when viewing the above animation in MaplePrimes all the frames are the same?

@acer See below for the adjusted appliable module that I posted a few minutes before your last Reply.

@mriedel Indeed it is easy to verify that the algebraic form is a pole. The command to do it is evala(Normal(...)):

evala(Normal(eval(z^4 + 2*z^2 + 2, z= rr)));

     0

I've never encountered an algebraic-number expression which was equal to 0 which evala(Normal(...)) wasn't able to prove was equal to 0, although sometimes it has taken a few minutes.

Unfortunately, the simplistic code showstat(residue) doesn't call evala(Normal(...)).