Groups > comp.soft-sys.math.mathematica > #3147

Re: " for

From	Bob Hanlon <hanlonr@cox.net>
Newsgroups	comp.soft-sys.math.mathematica
Subject	Re: " for
Date	2011-06-17 04:10 +0000
Organization	Steven M. Christensen and Associates, Inc and MathTensor, Inc.
Message-ID	<itek32$s6e$1@smc.vnet.net> (permalink)

Show all headers | View raw

Assumptions for Simplify or FullSimplify must be simpler.

expr = Conjugate[Sqrt[-(t Cos[2 kx] Cos[ky]) + Cos[kx] + M]];

sub = z -> -(t Cos[2 kx] Cos[ky]) + Cos[kx] + M;

Simplify[expr /. Reverse[sub], z > 0] /. sub

Sqrt[M + Cos[kx] - t*Cos[2*kx]*Cos[ky]]

or 

expr /. Conjugate[Sqrt[pr_]] -> Sqrt[pr]

Sqrt[M + Cos[kx] - t*Cos[2*kx]*Cos[ky]]




Bob Hanlon

---- liblenovo <liblenovo@gmail.com> wrote: 

=============
In[86]:=Simplify[Conjugate[Sqrt[-(t Cos[2 kx] Cos[ky]) + Cos[kx] +
M] ], -(t Cos[2 kx] Cos[ky]) + Cos[kx] + M > 0]

Out[86]= Sqrt[-t cos(2 kx) cos(ky)+cos(kx)+M]^\[Conjugate]

I don't want that  ^\[Conjugate], why it is there?

Back to comp.soft-sys.math.mathematica | Previous | Next | Find similar | Unroll thread

Thread

Re: "  for Bob Hanlon <hanlonr@cox.net> - 2011-06-17 04:10 +0000

csiph-web