Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1995

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

Search the Archive

Re: intransigent root expressions

  • To: mathgroup at
  • Subject: [mg633] Re: [mg616] intransigent root expressions
  • From: Count Dracula <lk3a at>
  • Date: Mon, 3 Apr 1995 11:03:08 -0400

(Martin McClain) wmm at wites:

>  xExpr = 5.54977*10^-25 * Sqrt[-7.57576*10^47 + 2.16450*10^48*y]

> This would be your answer, if only you could force that tiny exterior
> coefficient to multiply into the huge numbers under the square root.

> Does anybody know a graceful way to do this?  

> My current solution

> x -> Sqrt[xExpr /. m_ Sqrt[n_]->m^2 n // Expand]

Slightly simpler is:

In[2]:= xExpr = 5.54977*10^-25 * Sqrt[-7.57576*10^47 + 2.16450*10^48*y];

In[3]:= xExpr /. Sqrt[x_] :> Sqrt[Factor[x]]

Out[3]= 0.816495 Sqrt[-0.35 + 1. y]

 Levent Kitis           lk3a at    lk3a at
 University of Virginia  Department of Mechanical, Aerospace and Nuclear Engineering  

  • Prev by Date: plotting roots of complex nonlinear equation
  • Next by Date: How to construct pure expressions
  • Previous by thread: intransigent root expressions
  • Next by thread: Re: Best solution definition