Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2000
*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 2000

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

Search the Archive

Re: Re: ArcCos[]

  • To: mathgroup at smc.vnet.net
  • Subject: [mg24837] Re: [mg24815] Re: ArcCos[]
  • From: Andrzej Kozlowski <andrzej at tuins.ac.jp>
  • Date: Tue, 15 Aug 2000 03:04:08 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

I think you solved a differnt problem from the one Gianluca had in mind. In
his case, I think, the correct answer is:

In[1]:=
a=Root[-t + 2*#1 + 2*t^2*#1 + #1^3 & , 1];

In[2]:=
 b = Numerator[D[a, t]]
Out[2]=
                            2        3
1 - 4 t Root[-t + 2 #1 + 2 t  #1 + #1  & , 1]
In[3]:=
FindRoot[Evaluate[b==0],{t,1}]
Out[3]=
{t -> 1.01505}
In[4]:=
FindRoot[Evaluate[b==0],{t,-1}]
Out[4]=
{t -> -1.01505}


-- 
Andrzej Kozlowski
Toyama International University, JAPAN

For Mathematica related links and resources try:
<http://www.sstreams.com/Mathematica/>

on 8/14/00 5:49 AM, John D. Hendrickson at jdh at hend.net wrote:

> I've got Mathematica 4.0.2.0.  Since I'm running Win95 I don't mind
> crashing - thats pretty much a constant, so I tried your dare:)  But mine
> didn't crash - it gave me output.  Also - I have a substitute that might be
> what you want.
> 
> In[1]:=
> a = Root[-t + 2*#1 + 2*t^2*#1 + #1^3 & , 1];
> 
> In[2]:=
> b = D[a, t];
> 
> In[4]:=
> InputForm[ Solve[b == 0, t] ]
> 
> Solve::"tdep": "The equations appear to involve the variables to be solved \
> for in an essentially non-algebraic way."
> 
> Out[4]//InputForm=
> Solve[(1 - 4*t*Root[-t + 2*#1 + 2*t^2*#1 + #1^3 & , 1])/
> (2 + 2*t^2 + 3*Root[-t + 2*#1 + 2*t^2*#1 + #1^3 & , 1]^
> 2) == 0, t]
> 
> ===================================================================
> Would the following be acceptible in your circumstance?
> I assumed by making the unexplicit root object explicit:
> ====================================================================
> 
> In[3]:=
> Exit[]
> 
> In[1]:=
> a = Root[-t + 2*#1 + 2*t^2*#1 + #1^3 & , 1];
> 
> In[2]:=
> ax = First[a][x]
> 
> Out[2]=
> \!\(\(-t\) + 2\ x + 2\ t\^2\ x + x\^3\)
> 
> In[3]:=
> b = D[ax, t];
> 
> In[4]:=
> InputForm[ Solve[b == 0, t] ]
> 
> Out[4]//InputForm=
> {{t -> 1/(4*x)}}
> 
> ===================================================================
> 
> Allan Hayes wrote in message <8mtc0m$7qb at smc.vnet.net>...
>> 
>> 
>> 
>> "Gianluca Gorni" <gorni at dimi.uniud.it> wrote in message
>> news:8mqvd7$18j at smc.vnet.net...
>> 
>> 
>> -----------  Snip -------------
>>> An unrelated problem: the following instructions consistently crash
>>> my Mac Mathematica 4 kernel:
>>> 
>>> a = Root[-t + 2*#1 + 2*t^2*#1 + #1^3 & , 1];
>>> b = D[a, t];
>>> Solve[b == 0, t]
>>> 
>> --
>> Gianluca ,
>> It crashes Mathematica 4.02  on Windows also.
>> 
>> Allan
>> ---------------------
>> Allan Hayes
>> Mathematica Training and Consulting
>> Leicester UK
>> www.haystack.demon.co.uk
>> hay at haystack.demon.co.uk
>> Voice: +44 (0)116 271 4198
>> Fax: +44 (0)870 164 0565
>> 
>> 
>> 
>> 
> 
> 
> 
> 



  • Prev by Date: Re: Incorrect Fourier Transorms?
  • Next by Date: Re: Incorrect Fourier Transforms?
  • Previous by thread: Re: Re: ArcCos[]
  • Next by thread: Re: Test for On/Off