| |
 |
|
|
Science Forum Index » Math - Symbolic Forum » symmetric polynomial maple
Page 1 of 1
|
| Author |
Message |
| Serge Nazarian |
 Posted: Sun Apr 13, 2008 1:21 am |
|
|
|
Guest
|
Hello,
How to write a procedure Maple which says if a polynomial is a symmetric
polynomial?
Thank you for any help.
Kind regards,
Bonjour,
Comment écrire une procédure Maple qui dit si un polynôme est un polynôme
symétrique ?
Merci pour toute aide.
Cordialement,
--
Serge Nazarian
Cliquez ci dessous pour une réponse personnelle :
http://cerbermail.com/?CBBJUUv0pN |
|
|
| Back to top |
|
| Serge Nazarian |
| Posted: Sun Apr 13, 2008 4:28 am |
|
|
|
Guest
|
Dans le message :4801a675$0$30617$426a74cc@news.free.fr,
Serge Nazarian <nospam@nospam.fr> a écrit :
Quote: Hello,
How to write a procedure Maple which says if a polynomial is a
symmetric polynomial?
Thank you for any help.
Kind regards,
Self answer :
Permutation's group is generated by one tranposition and one circular
permutation.
Thus...
issymetric:=proc(p)
local l,n,i,r_circ,r_trans,p_circ,p_trans,is_s;
l:=convert(indets(p),list);
n:=nops(l);
if n<=1 then RETURN(true) fi; r_circ:={};for i from 1 to n-1 do
r_circ:={op(r_circ),l[i]=l[i+1]} od; r_circ:={op(r_circ),l[n]=l[1]};
r_trans:={l[1]=l[2],l[2]=l[1]};
p_circ:=sort(simplify(expand(subs(r_circ,p))),l,plex);
p_trans:=sort(simplify(expand(subs(r_trans,p))),l,plex);
is_s:=(p-p_circ=0) and (p-p_trans=0);
RETURN(is_s)
end;
--
Serge Nazarian
Cliquez ci dessous pour une réponse personnelle :
http://cerbermail.com/?CBBJUUv0pN |
|
|
| Back to top |
|
| |
|
Page 1 of 1
All times are GMT - 5 Hours
The time now is Mon Dec 01, 2008 7:00 pm
|
|