Skip to main content
Mathematica

Return to Question

Made English more idiomatic.
Source Link
m_goldberg
m_goldberg
  • 108.1k
  • 16
  • 104
  • 259

Problem How can I make the output from Solve with presenting rootslook nice?

I have onea problem with presenting solutions. As we know that rootsRoots of 4th order polynomialpolynomials are big, is expressions. Is there possiblea way how to present s1 andthe roots, s2 unknownsand s3, in normal form with some substitutions.? Maybe idea can bea way to force Mathematica for findingto find some similar terms under the rootsradicals and to givereplace them with substitutions (to factorize or simplify on that way). So s1 and, so s2 and s3 are problem to present topresented in a way that looks like nice?

a1 = Roots[x^4 + r1 x^3 + r2 x^2 + r3 x + r4 == 0, x][[1]][[2]];
a2 = Roots[x^4 + r1 x^3 + r2 x^2 + r3 x + r4 == 0, x][[2]][[2]];
a3 = (-s2 - Sqrt[s2^2 - 4  s3])/2 ;
a4 = (-s2 + Sqrt[s2^2 - 4  s3])/2 ;

Solve[{a1 - a3 == 0, a2 - a4 == 0}, {s2, s3}]

Problem Solve with presenting roots

I have one problem with presenting solutions. As we know that roots of 4th order polynomial are big, is there possible way how to present s1 and s2 unknowns in normal form with some substitutions. Maybe idea can be to force Mathematica for finding some similar terms under the roots and to give them substitutions (to factorize or simplify on that way). So s1 and s2 are problem to present to looks like nice

a1 = Roots[x^4 + r1 x^3 + r2 x^2 + r3 x + r4 == 0, x][[1]][[2]];
a2 = Roots[x^4 + r1 x^3 + r2 x^2 + r3 x + r4 == 0, x][[2]][[2]];
a3 = (-s2 - Sqrt[s2^2 - 4  s3])/2 ;
a4 = (-s2 + Sqrt[s2^2 - 4  s3])/2 ;

Solve[{a1 - a3 == 0, a2 - a4 == 0}, {s2, s3}]

How can I make the output from Solve look nice?

I have a problem with presenting solutions. Roots of 4th order polynomials are big expressions. Is there a way to present the roots, s2 and s3, in normal form with some substitutions? Maybe a way to force Mathematica to find some similar terms under the radicals and replace them with substitutions (to factorize or simplify that way), so s2 and s3 are presented in a way that looks nice?

a1 = Roots[x^4 + r1 x^3 + r2 x^2 + r3 x + r4 == 0, x][[1]][[2]];
a2 = Roots[x^4 + r1 x^3 + r2 x^2 + r3 x + r4 == 0, x][[2]][[2]];
a3 = (-s2 - Sqrt[s2^2 - 4  s3])/2 ;
a4 = (-s2 + Sqrt[s2^2 - 4  s3])/2 ;

Solve[{a1 - a3 == 0, a2 - a4 == 0}, {s2, s3}]
edited body
Source Link
halirutan
halirutan
  • 113.4k
  • 7
  • 266
  • 479

I have one problem with presenting solutions. As we know that roots of 4th order polynomial are big, is there possible way how to present s1 and s2 unknowns in normal form with some substitutions. Maybe idea can be to force $Mathematica$Mathematica for finding some similar terms under the roots and to give them substitutions (to factorize or simplify on that way). So s1 and s2 are problem to present to looks like nice

a1 = Roots[x^4 + r1 x^3 + r2 x^2 + r3 x + r4 == 0, x][[1]][[2]];
a2 = Roots[x^4 + r1 x^3 + r2 x^2 + r3 x + r4 == 0, x][[2]][[2]];
a3 = (-s2 - Sqrt[s2^2 - 4  s3])/2 ;
a4 = (-s2 + Sqrt[s2^2 - 4  s3])/2 ;

Solve[{a1 - a3 == 0, a2 - a4 == 0}, {s2, s3}]

I have one problem with presenting solutions. As we know that roots of 4th order polynomial are big, is there possible way how to present s1 and s2 unknowns in normal form with some substitutions. Maybe idea can be to force $Mathematica$ for finding some similar terms under the roots and to give them substitutions (to factorize or simplify on that way). So s1 and s2 are problem to present to looks like nice

a1 = Roots[x^4 + r1 x^3 + r2 x^2 + r3 x + r4 == 0, x][[1]][[2]];
a2 = Roots[x^4 + r1 x^3 + r2 x^2 + r3 x + r4 == 0, x][[2]][[2]];
a3 = (-s2 - Sqrt[s2^2 - 4  s3])/2 ;
a4 = (-s2 + Sqrt[s2^2 - 4  s3])/2 ;

Solve[{a1 - a3 == 0, a2 - a4 == 0}, {s2, s3}]

I have one problem with presenting solutions. As we know that roots of 4th order polynomial are big, is there possible way how to present s1 and s2 unknowns in normal form with some substitutions. Maybe idea can be to force Mathematica for finding some similar terms under the roots and to give them substitutions (to factorize or simplify on that way). So s1 and s2 are problem to present to looks like nice

a1 = Roots[x^4 + r1 x^3 + r2 x^2 + r3 x + r4 == 0, x][[1]][[2]];
a2 = Roots[x^4 + r1 x^3 + r2 x^2 + r3 x + r4 == 0, x][[2]][[2]];
a3 = (-s2 - Sqrt[s2^2 - 4  s3])/2 ;
a4 = (-s2 + Sqrt[s2^2 - 4  s3])/2 ;

Solve[{a1 - a3 == 0, a2 - a4 == 0}, {s2, s3}]
added 10 characters in body
Source Link
George Mills
George Mills
  • 953
  • 1
  • 9
  • 14

I have one problem with presenting solutions. As we know that roots of 4th order polynomial are big, is there possible way how to present s1 and s2 unknowns in normal form with some substitutions. Maybe idea can be to force $Mathematica$ for finding some similar terms under the roots and to give them substitutions (to factorize or simplify on that way). So s1 and s2 are problem to present to looks like nice

a1 = Solve[x^4Roots[x^4 + r1 x^3 + r2 x^2 + r3 x + r4 == 0, x][[1]];x][[1]][[2]];
a2 = Solve[x^4Roots[x^4 + r1 x^3 + r2 x^2 + r3 x + r4 == 0, x][[2]];x][[2]][[2]];
a3 = (-s2 - Sqrt[s2^2 - 4  s3])/2 ;
a4 = (-s2 + Sqrt[s2^2 - 4  s3])/2 ;

Solve[{a1 - a3 == 0, a2 - a4 == 0}, {s2, s3}]

I have one problem with presenting solutions. As we know that roots of 4th order polynomial are big, is there possible way how to present s1 and s2 unknowns in normal form with some substitutions. Maybe idea can be to force $Mathematica$ for finding some similar terms under the roots and to give them substitutions (to factorize or simplify on that way). So s1 and s2 are problem to present to looks like nice

a1 = Solve[x^4 + r1 x^3 + r2 x^2 + r3 x + r4 == 0, x][[1]];
a2 = Solve[x^4 + r1 x^3 + r2 x^2 + r3 x + r4 == 0, x][[2]];
a3 = (-s2 - Sqrt[s2^2 - 4  s3])/2 ;
a4 = (-s2 + Sqrt[s2^2 - 4  s3])/2 ;

Solve[{a1 - a3 == 0, a2 - a4 == 0}, {s2, s3}]

I have one problem with presenting solutions. As we know that roots of 4th order polynomial are big, is there possible way how to present s1 and s2 unknowns in normal form with some substitutions. Maybe idea can be to force $Mathematica$ for finding some similar terms under the roots and to give them substitutions (to factorize or simplify on that way). So s1 and s2 are problem to present to looks like nice

a1 = Roots[x^4 + r1 x^3 + r2 x^2 + r3 x + r4 == 0, x][[1]][[2]];
a2 = Roots[x^4 + r1 x^3 + r2 x^2 + r3 x + r4 == 0, x][[2]][[2]];
a3 = (-s2 - Sqrt[s2^2 - 4  s3])/2 ;
a4 = (-s2 + Sqrt[s2^2 - 4  s3])/2 ;

Solve[{a1 - a3 == 0, a2 - a4 == 0}, {s2, s3}]
Source Link
George Mills
George Mills
  • 953
  • 1
  • 9
  • 14