MathGroup Archive 2007

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

Search the Archive

Re: verification


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