MathGroup Archive 2003

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

Search the Archive

Re: Log Equation


Your equation has a real solution only for x less than about -0.2 or so.  In
this range you could use FindRoot[].

In[1]:=
? FindRoot

In[2]:=
f[y_] :=
       x /. FindRoot[y == \(1 - x\)\/Log[x], {x,
         1 + $MachineEpsilon, \ 10\^6}]

In[3]:=
f[-2]

Out[3]=
3.51286

In[4]:=
f[-1]
Out[4]=
1.

In[5]:=
f[-7]
Out[5]=
22.9259

In[6]:=
\!\(f[\(-10\^4\)]\)
Out[6]=
116672.

-- 
Curt Fischer



  • Prev by Date: here's one driving me mad!
  • Next by Date: change of a coefficient in a polynomial
  • Previous by thread: Log Equation
  • Next by thread: Re: Log Equation