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

MathGroup Archive 2007

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

Search the Archive

Re: verification

  • To: mathgroup at smc.vnet.net
  • Subject: [mg74731] Re: verification
  • From: Peter Pein <petsie at dordos.net>
  • Date: Mon, 2 Apr 2007 07:00:35 -0400 (EDT)
  • References: <eunpso$772$1@smc.vnet.net>

dimitris schrieb:
> Hello.
> 
> 
> foo = {ArcTan[8/(1 - Sqrt[-15 - 4*I])] + ArcTan[8/(1 + Sqrt[-15 -
> 4*I])] + ArcTan[8/(1 - Sqrt[-15 + 4*I])] +
>      ArcTan[8/(1 + Sqrt[-15 + 4*I])], ArcTan[3] + ArcTan[5] +
> ArcTan[41/3] + ArcTan[21], 2*Pi - ArcTan[1/4] - ArcTan[5/12]};
> 
> The elements of foo list are equal
...
> 
> Having failed also in similar attempts I would really appreciate any
> ideas!
> 
> Dimitris
> 
> 

Hi Dimitris,

try this one:

Reduce[And @@ Equal @@@ Subsets[foo, {2}] // ComplexExpand]


Peter


  • Prev by Date: Visual Basic
  • Next by Date: Re: Efficient BesselJ and LegendreP Evaluation
  • Previous by thread: Re: verification
  • Next by thread: Re: verification