Pi Formula

```Dear Mathematica Gurus,
Who know which another function as Simplify or FullSimplify to use to
following formula
(Simplify do nothing but FullSimplify simplify too much).
1/8 (-2 I Sqrt[-7 - I] Log[1/5 ((1 - 2 I) + 2 Sqrt[-7 - I])] -
Log[(3 - 4 I)^Sqrt[7 + I]
5^((3 - I) (51 - 10 Sqrt[2])^(
1/4)) ((1 - 2 I) - 2 Sqrt[-7 - I])^((-1 - I) (51 - 10 Sqrt[2])^(
1/4)) (-5 I + (4 - 2 I) Sqrt[-7 - I])^(-2 Sqrt[
7 + I]) ((1 + 2 I) - 2 Sqrt[-7 + I])^(2 Sqrt[-7 + I])] -
I Sqrt[7 - I] Log[(-1 + Sqrt[-1 - I])^2] -
I Sqrt[7 - I] Log[(1 + Sqrt[-1 - I])^2] -
Sqrt[7 + I] Log[(-1 + Sqrt[-1 + I])^2] -
Sqrt[7 + I] Log[(1 + Sqrt[-1 + I])^2] + (1 - 2 I) Sqrt[1 - I]
Log[(1 + I) - Sqrt[1 - I]] - (2 - I) Sqrt[1 + I]
Log[(1 + I) - Sqrt[1 - I]] - (1 - 2 I) Sqrt[1 - I]
Log[(1 + I) + Sqrt[1 - I]] + (2 - I) Sqrt[1 + I]
Log[(1 + I) + Sqrt[1 - I]] +
I Sqrt[7 - I] Log[(-60 - 4 I) + 8 Sqrt[-1 - I] - 24 Sqrt[7 - I]] +
I Sqrt[7 - I] Log[(66 - 14 I) + 8 Sqrt[-1 - I] + 24 Sqrt[7 - I]] +
Sqrt[7 + I] Log[(-60 + 4 I) + 8 Sqrt[-1 + I] - 24 Sqrt[7 + I]] +
Sqrt[7 + I] Log[(66 + 14 I) + 8 Sqrt[-1 + I] + 24 Sqrt[7 + I]] +
I Log[((1 + 2 I) - 2 Sqrt[-7 + I])^(
2 Sqrt[7 - I]) ((-60 + 4 I) - 16 Sqrt[14 - 2 I])^-Sqrt[-7 -
I] ((-60 - 4 I) - 16 Sqrt[14 + 2 I])^-Sqrt[
7 - I] ((-(153/100) + (71 I)/100) + 2/25 Sqrt[287 - 359 I])^
Sqrt[-7 -
I] ((-(153/2500) - (71 I)/2500) + 2/625 Sqrt[287 + 359 I])^
Sqrt[7 - I]])

Best wishes
Artur

```

• Prev by Date: Questions on evaluate matrix operations
• Next by Date: Re: Dynamic tangential plane - how?
• Previous by thread: Re: Re: Re: Nested If
• Next by thread: Re: Pi Formula