0

I would like to reproduce the plot shown in fig(b) from the link.

enter image description here

How can I obtain yellow, red, green and blue using the command? Let's say there are 4 roots in total. In this case roots will be {2, 1 + i,1 - i, -3 }. I'm trying plot something like in figure (b) of the above link by using the codes in a similar post.

List @@@ Table[ColorData[45, k], {k, 1, Length[roots]}];

Thanks, RM

Syed
  • 52,495
  • 4
  • 30
  • 85
  • Welcome to the Mathematica Stack Exchange. I am afraid your question is not quite clear to me at the moment. Specifically, why would you want to "obtain" the four colors when you already have them? – Syed Mar 11 '22 at 19:10
  • I'm trying to obtain something like figure (b) in https://www.hindawi.com/journals/jam/2014/539707/fig16/ and I don't understand how command "ColorData" works... – R. Madureira Mar 11 '22 at 19:14
  • roots is left undefined –  Mar 11 '22 at 19:20
  • Yes, but roots will be finite distinct numbers (for instance, four numbers). – R. Madureira Mar 11 '22 at 19:21
  • Yes, but it makes a difference. For instance if roots = {{1, 2, 3, 4, 5, 6}} then Length[roots] is 6. On the other hand, if roots = {{1, 2, 3, 4, 5, 6}, {1, 2, 3, 4, 5, 6}} then Length[roots] is 2. On top of that, different numbers will result in different plots. –  Mar 11 '22 at 19:23
  • Ok, in this case roots will be {2, 1 + i,1 - i, -3 }. I'm trying plot something like in figure (b) of the above link by using the codes in https://mathematica.stackexchange.com/questions/15047/how-to-draw-fractal-images-of-iteration-functions-on-the-riemann-sphere – R. Madureira Mar 11 '22 at 19:28
  • Thank you. Maybe you can update the OP so other users can have easier access and you can get help more easily :-) –  Mar 11 '22 at 19:30
  • I presume that Syed has already do that. – R. Madureira Mar 11 '22 at 19:33
  • The first four colors are just ColorData[45] /@ Range[4]. For the named colors use {Yellow, Red, Green, Blue} – Bob Hanlon Mar 11 '22 at 21:17

0 Answers0