Show[{Plot[R[x], {x, -6, -3}, PlotRange -> {{-6, 6}, {-60, 60}}, PlotLabel -> "\!χΙχΙ ... gt; RGBColor[0, 0, 0], DisplayFunction -> Identity] }, DisplayFunction -> $DisplayFunction]

[Graphics:../HTMLFiles/index_49.gif]

-Graphics -

Converted by Mathematica  (March 15, 2005)