Seems I have no access to this routine. What happens when you replace q with Canonicalize(q, {x[1], x[2], x[3]}); ?

@dharr Interestingly convert(%, radical) simplifies the last RootOf even further.

@vv The statement used is incomplete. May still be useful.                         

@Thomas Dean Of all the small groups order up to 25, these groups: [4, 2], [8, 5], [9, 2], [16, 14], [25, 2] fail the procedure MinimumPermutationRepresentationDegree. I think no group tested was a symmetric group and only these ones failed the procedure. Is it because all of these are squares or cubes? A weakness in programming?

@Joe Riel The option compile=false does the trick. I do not see how I can succeed without it and not completely disable security.

@Carl Love According to Maple 5.4, I is a radical. It always was in Maple and in mathbooks. It no longer is...

Does the answer to type((-1)^(1/2), radical) tell you there is nothing wrong with Maple as is? What a bold failure.

type(sqrt(-1), radical);

Outright profanity....

Consider this code:

@Joe Riel indets({(-1)^(1/2), (-2)^(1/2)}, anything^Non(integer)) = {(-1)^(1/2), (-2)^(1/2)};

In Maple 5.4 I get the proper response that is logically true statement. In Maple 2017 I get a bogus answer.
What do you think should happen in the code below. Also when did Maplesoft make the change?
@Carl Love indets({(-1)^(1/2), (-2)^(1/2)}, anything^Non(integer)) = {(-1)^(1/2), (-2)^(1/2)};

@Kitonum How long does this take ?

@Carl Love Thanks!

@PhearunSeng Older Maple uses linalg package that has a "blockmatrix" function for building matrices from other matrices. 

This code works with your example:

A := [1..3,1..2], [1..1], [1..2];
F := proc(v) proc(x,y) 'M2[x,y]' end(-1+v[1]+v[3], -2+2*v[2]+v[4]) end; 
G := proc(v) M[v[1], v[2]][v[3]][v[4]] end;
d := 3, 4;
assign('M2' = Matrix(d), 'C' = combinat[cartprod](map2(op@map,[`$`],[A])), 'proc(v) (F = G)(v) end(C[nextvalue]())'$(mul([d])));
print('M2' = M2);

You would have to adapt it to work with other examples. You need to configure A, F, G, d variables.

there is no do in the k loop.

Try Ctrl+(1..9).

As for the menus you'd have to change your Windows settings to use larger fonts.

Do not use the string error for a variable name.

Does Maple have /=, += operators? Mine (ver 2017.3) does not.