New in Wolfram Mathematica 7: Transcendental Roots ◄ previous | next ►
Plot the Roots of a Nested Transcendental Equation
Plot the roots of a nested transcendental equation.
In[1]:=

Click for copyable input
roots = Reduce[

    Sin[z + Sin[z + Sin[z]]] == Cos[z + Cos[z + Cos[z]]] && -3 < 

      Re[z] < 3 && -3 < Im[z] < 3, z] // Quiet;
In[2]:=

Click for copyable input
ListPlot[{Re[z], Im[z]} /. {ToRules[roots]}, 

 PlotLabel -> 

  Style[TraditionalForm[

    Sin[z + Sin[z + Sin[z]]] == Cos[z + Cos[z + Cos[z]]]], 14], 

 PlotStyle -> Red, AspectRatio -> 1]
Out[2]=