Symmetry group for orthogonal wave equations
Study case suggested by G. Metivier, Universite de Rennes.
> | coord_frame([x,y],[s,phi,psi],fr):
LieAlg:= [ vect(x),vect(y), v_zip([-y,x],[x,y],plus, vect), v_zip([x,y,2*s[0,0]],[x,y,s[0,0]],plus,vect), v_zip([phi[0,0]],[phi[0,0]],plus,vect), v_zip([psi[0,0]],[psi[0,0]],plus,vect)]: |
> | Section:=[x=0,y=0,s[0,0]=1,phi[0,0]=1, psi[0,0]=1, s[1,0]=0]: stair(Section); |
> | C, Invariantizations :=dmf(LieAlg,Section, fr, [op(Section), s[0,1]=2*s1, s[2,0] = 2*s1*(s3+s1),s[1,1] = 2*s1*s2, phi[1,0]=phi1, phi[0,1]=phi2, psi[1,0]=psi1, psi[0,1]=psi2],'COM'): |
"Section :"
"Transversality condition :" -s[0 1]
"Invariantizations:"
"Commutation rules"
"Syzygies"
"Syzygies with attempt to eliminate the y's"
fr > | COM; |
fr > | Invariantizations; |
fr > |