Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

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

Search the Archive

Re: Simplifying Jacobian elliptic functions

  • To: mathgroup at smc.vnet.net
  • Subject: [mg56325] Re: Simplifying Jacobian elliptic functions
  • From: John Billingham <John.Billingham at Nottingham.ac.uk>
  • Date: Fri, 22 Apr 2005 06:22:51 -0400 (EDT)
  • References: <16439696.1114083913364.JavaMail.jakarta@nitrogen.mathforum.org>
  • Sender: owner-wri-mathgroup at wolfram.com

> > Unprotect[Plus]
> > JacobiDN[p_, k_]^2 + k_ JacobiSN[p_, k_]^2 := 1
> > Protect[Plus]
> > 
> 
> Thanks for the tip. Why does your suggestion work,
> but
> 
> Unprotect[Minus];
> 1 -  JacobiSN[p_, m_]^2 := JacobiCN[p, m]^2;
> Protect[Minus];
> 
> doesn't??

OK. Sorry. Having read some help files, I can see that

Unprotect[Plus];
JacobiDN[p_, k_]^2 + k_ JacobiSN[p_, k_]^2 := 1
1 + Minus[ JacobiSN[p_, m_]^2] := JacobiCN[p, m]^2;
Protect[Plus];

Does the trick.

John


  • Prev by Date: Re: multiple 3d plots
  • Next by Date: Solving partial moment with unknowns in boundaries
  • Previous by thread: Re: Simplifying Jacobian elliptic functions
  • Next by thread: Re: Simplifying Jacobian elliptic functions