       Re: refining expression in terms of real numbers

• To: mathgroup at smc.vnet.net
• Subject: [mg58747] Re: refining expression in terms of real numbers
• From: Peter Pein <petsie at dordos.net>
• Date: Sun, 17 Jul 2005 03:04:00 -0400 (EDT)
• References: <dba4l5\$elr\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Mukhtar Bekkali schrieb:
> My expression is real for all values of gamma between half and one (I
> plotted it just to be sure), yet the general solution that Mathametica
> generates may imply that I have an unreal solution, an impression that
> I would like to avoid. Is there a way to make Mathematica refine
> solutions in terms of real numbers. Here is the input:
>
> \!\(expr := Refine[Root[\(-160\) + 783\ =CE=B3 + 54\
>             =CE=B3\^2 - 1059\ #1 - 540\ =CE=B3\ #1 + 504\ #1\^2 + 80\ #=
1\^3 &,
> 2] //
>                  ToRadicals, 1\/2 < =CE=B3 < 1] //
> Simplify\[IndentingNewLine]
>   expr\[IndentingNewLine]
>   \(Plot[expr, {=CE=B3, 1\/2, 1}];\)\)
>
> Thanks, Mukhtar Bekkali
>
Hi,

you can find a notebook with a solution at
http://people.freenet.de/Peter_Berlin/Mathe/Mukhtar.nb

does anyone know, why Mathematica changes the index of the Root[,index],
while evaluating FullSimplify[ComplexExpand[Re[Root[...,2]]]] ?

Regards,
P^2
--
Peter Pein
Berlin
http://people.freenet.de/Peter_Berlin/

```

• Prev by Date: Trace[ Through [ (Max - Min) [ {1, 2, 3, 4, 5} ] ] ]
• Next by Date: Re: Modeling and Array Problem
• Previous by thread: refining expression in terms of real numbers
• Next by thread: Re: refining expression in terms of real numbers