#### On met des ## pour insŽrer des commentaires
### Fonction myeuclide
### EntrŽe : A,B,x : A,B polyn™mes en x
### Sortie : pgcd(A,B) ;

myeuclide := proc(A,B,x)
 local i,R;
 ### si on veut suivre le dŽroulement pas ˆ pas du programme,
 ### on insre option trace au dŽbut.
 # option trace ;
  R[0]:=A; R[1]:=B; i:=1;
  while R[i]<>0 do
    R[i+1]:=rem(R[i-1],R[i],x); ## rem comme "remainder"
    R[i+1]:=collect(R[i+1],x,normal);
    i:=i+1;
  end do;
  return(R[i-1]);
end proc ;

## pour lire le contenu de ce fichier depuis maple,
## on utilise la commande read (en prŽcisant o se 
## trouve le fichier :
## read("/Users/jaw/maple/euclide1");