Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

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

Search the Archive

Re: How to get an answer as a Root object?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg57145] Re: How to get an answer as a Root object?
  • From: "Valeri Astanoff" <astanoff at yahoo.fr>
  • Date: Thu, 19 May 2005 03:08:12 -0400 (EDT)
  • References: <d6bv8r$pcu$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

The trouble is the derivative being infinite at the solution.
I use that trouble to find the solution :

In[1]:=f[s_]:=
(-1+Sqrt[2]-Sqrt[(1+2*Sqrt[2]-s)*(-1+s)]+s)*(-1-Sqrt[2]+Sqrt[2]*s-
          Sqrt[-1-2*Sqrt[2]+2*(2+Sqrt[2]-s)*s])-(-1-Sqrt[2]+Sqrt[2]*s+
          Sqrt[-1-2*Sqrt[2]+2*(2+Sqrt[2]-s)*s])*(-2-2*Sqrt[2]+2*s+2*

Sqrt[1-(1/4)*(-1-Sqrt[2]+Sqrt[(1+2*Sqrt[2]-s)*(-1+s)]+s)^2])

In[2]:=Select[s /. Solve[Numerator[Together[1/f'[s]]] == 0], 2 < # < 3
&] // Simplify

Out[2]= 2 + 1/Sqrt[2]

In[3]:= % // N

Out[3]= 2.70711


That's not what you asked for but that's all I can do!


v.a.


  • Prev by Date: Re: Visualization
  • Next by Date: Re: Beginner : how to convert .bmp or .jpeg for digital processing
  • Previous by thread: Re: How to get an answer as a Root object?
  • Next by thread: Re: How to get an answer as a Root object?