Re: refining expression in terms of real numbers

• To: mathgroup at smc.vnet.net
• Subject: [mg58837] Re: refining expression in terms of real numbers
• From: "Mukhtar Bekkali" <mbekkali at gmail.com>
• Date: Wed, 20 Jul 2005 00:29:38 -0400 (EDT)
• References: <dba4l5\$elr\$1@smc.vnet.net><dbd0ll\$2pm\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Thanks Peter.  This follow up question pertains to your remark
regarding Mathematica changing the order of solutions.  For example, in
this code

\!\(\(Î³ = 5\/7;\)\[IndentingNewLine]
\(T = \(Root[243\ Î³ - 54\ Î» + 432\ Î³\ Î» +
54\ Î³\^2\ Î» -
96\ Î»\^2 + 108\ Î³\ Î»\^2 - 10\ Î»\^3 - 243\ #1 - 540\ Î»\
#1 - 324\ Î³\
Î»\ #1 - 252\ Î»\^2\ #1 - 216\ Î³\ Î»\^2\ #1 - 24\
Î»\^3\ #1 + 216\ Î»\ #1\^2 + 216\ Î»\^2\ #1\^2 + 72\
Î»\^3\ #1\^2 \
+ 48\ Î»\^2\ #1\^3 + 32\ Î»\^3\ #1\^3 &, #] &\) /@ Range[3];\)\
\[IndentingNewLine]
\(TR := Refine[ToRadicals[T[\([i]\)]], {1\/2 â?¤ \ Î³ â?¤ \
1 - Î»\/4, 2 > Î» > 0}];\)\[IndentingNewLine]
\(Table[Plot[Evaluate[{TR, T[\([i]\)]}], {Î», 1\/2,
3\/2}, PlotStyle \[Rule] {Hue[0], Hue[ .7]}], {i, 1,
3}];\)\
\[IndentingNewLine]
\)

function TR looks nothing like T.  Something weird is happening behind
the scenes. Mukhtar Bekkali

```

• Prev by Date: Re: Re: "2p" in BenchmarkReport[] ?
• Next by Date: Getting crude approximation to a function
• Previous by thread: Re: refining expression in terms of real numbers
• Next by thread: Notebook Style problems?