Mathematica Asked by Shivam K on December 6, 2020
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) &]
ComplexExpand[Re[ToRadicals[expr]],TargetFunctions -> {Re, Im}] // Simplify
Imaginary part proves to be zero this way.
Answered by Akku14 on December 6, 2020
Get help from others!
Recent Questions
Recent Answers
© 2024 TransWikia.com. All rights reserved. Sites we Love: PCI Database, UKBizDB, Menu Kuliner, Sharing RPP