
   y = -2Log[x]

   Out[20]=

   -2 Log[x]

   In[22]:=

   RowBox[{Plot,  [, RowBox[{y, ,, RowBox[{{, RowBox[{x, ,, 0.01, ,, 4}],
   }}], ,, AxesLabel&#62754; {x, -2Log[x]}}], ]}]

   [Graphics:HTMLFiles/-2Log_10.gif]

   Out[22]=

   -Graphics-

   ______________________________________________________________________

   Created by [1]Mathematica  (September 7, 2007)

References

   1. http://www.wolfram.com/
