1
$\begingroup$

I am unable to simplify this expression, help me in this regard, thanks in advance. I tried this : Normal//ToRadicals//FullSimplify

5 - RootSum[
  5 + 6 #1^2 + 6 #1^3 &, (
   5 Log[1 - #1] - 5 Log[1 - #1] #1 + 11 Log[1 - #1] #1^2)/(
   2 #1 + 3 #1^2) &] + 
 RootSum[5 + 6 #1^2 + 6 #1^3 &, (
   5 Log[-#1] - 5 Log[-#1] #1 + 11 Log[-#1] #1^2)/(2 #1 + 3 #1^2) &]
Improve this question
$\endgroup$
5
  • 1
    $\begingroup$ Did you try N? $\endgroup$
    – user64494
    Commented Nov 3, 2020 at 6:27
  • $\begingroup$ I need a closed-form expression, not a numerical value. $\endgroup$
    – Shivam K
    Commented Nov 3, 2020 at 7:09
  • 2
    $\begingroup$ ComplexExpand[Re[ToRadicals[exp]], TargetFunctions -> {Re, Im}] // Simplify Imaginary part proofs to be zero this way. $\endgroup$
    – Akku14
    Commented Nov 3, 2020 at 8:01
  • $\begingroup$ This is helpful, I got the result, thank you! $\endgroup$
    – Shivam K
    Commented Nov 3, 2020 at 11:03
  • $\begingroup$ @Akku14 Why do not you place your comment as the answer? $\endgroup$
    – Alexei Boulbitch
    Commented Nov 3, 2020 at 11:17

1 Answer 1

Reset to default
4
$\begingroup$ 
ComplexExpand[Re[ToRadicals[expr]],TargetFunctions -> {Re, Im}] // Simplify

Imaginary part proves to be zero this way.

Improve this answer
$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.