For[a = 2, a < 6, a = a + .1, Show[{Plot[R[x], {x, -6, -3}, PlotRange -> {{-6, 6}, {-60, ... t; RGBColor[0, 0, 0], DisplayFunction -> Identity] },  DisplayFunction -> $DisplayFunction]]

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


Converted by Mathematica  (March 15, 2005)