MathGroup Archive 1995

[Date Index] [Thread Index] [Author Index]

Search the Archive

Help reduce this expression (Not Long)


Here it is.  I didn't want to send the expression 
in its glory since it is too long.  So I send this
expression and a few rules to get to the big one:

 
Dn[a_,k_] := Sqrt[1 - k^2 Sn[a,k]^2];

Cn[a_,k_] := Sqrt[1 - Sn[a,k]^2];

ellirule := {Sn[u_+v_,k_] -> (Sn[u,k]Cn[v,k]Dn[v,k] + Cn[u,k]Sn[v,k]Dn[u,k])/
				(1-k^2 Sn[u,k]^2 Sn[v,k]^2)}

sngone := Sn[x_,k_]-> x;


In[1]:= Sn[v, k]*Sn[2*y, k]^2 + Sn[u - v, k]*Sn[2*y, k]*Sn[u + 2*y, k] - 
   Sn[u, k]*Sn[2*y, k]*Sn[u - v + 2*y, k] - 
   k^2*Sn[u, k]*Sn[u - v, k]*Sn[v, k]*Sn[2*y, k]^2*Sn[u + 2*y, k]*
    Sn[u - v + 2*y, k]

In[2]:= % /. ellirule;

In[3]:= % /. ellirule;

In[4]:= % /. sngone

Out[4]= Lots of stuff I cannot simplify to become zero.



Has anyone out there got experience working with elliptic functions
in an algebraic way?

Thanks for any help.
Vlad.
        
--

                             ___________________________ 
    Vlad.Fridkin at anu.edu.au  || ||| || ||| || ||| || ||| 
       http://wwwmaths.anu.edu.au/~vxf661/Vlad_Fridkin.html


  • Prev by Date: Re: Plotting Piecewise Functions with Discontinuites
  • Next by Date: Re: Question: how to get Sin[n*Pi]=0 (n integer)
  • Previous by thread: Re: Plotting Piecewise Functions with Discontinuites
  • Next by thread: Re: Q: ArcTan[ Tan[ x ] ] = x