Apprendre Maple

[michel]

Bonjour,
Je tente de trouver une procédure permettant de composer 2 permutations ;
Exemple : soit A:=[3,7,8,9,4,5,2,1,6] : permutation appelée p.
Comment déterminer pop, popop...?
J'essais :
p:=proc(a,b,c,d,e,f,g,h,i)
> local u,k,P:
> P:=NULL:
> u(a):=c:u(b):=g:u(c):=h:u(d):=i:u(e):=d:
> u(f):=e:u(g):=b:u(h):=a:u(i):=f:
> for k from a to i do
> P:=P,u(k):
> od:
> P
> end: ce qui fonctionne pour trouver A à partir de B:=[1,2,3,4,5,6,7,8,9]
mais qui plante pour pop. Comment corriger ? Merci

[ALS]

Bonjour Michel,
Voici ce que je vous propose très simplement:

[michel]

Bonjour et merci à ALS.
Comment déterminer p^(-1) de la manière la plus simple ? Cordialement.

[ALS]

Bonjour,
Voici une procédure qui donne l'inverse de la permutation: