1
$\begingroup$

I want to create a graphic of a series of points. It's easy as long as I don't want to style the points:

Module[{z = 1 + I},
 table1 = Table[{Re[((z^2 + 1)/(z^2 - 1))^k], Im[((z^2 + 1)/(z^2 - 1))^k]}, {k, 1, 25, 2}]; 
 Graphics[Point[table1]]
]

But when I try to add a Darker[Red] style to the points, it stops working:

Module[{z = 1 + I},
 table1 = Table[{Re[((z^2 + 1)/(z^2 - 1))^k], Im[((z^2 + 1)/(z^2 - 1))^k]}, {k, 1, 25, 2}]; 
 Graphics[Point[{Darker[Red], table1}]]
]

I am sure that someone will suggest using ComplexListPlot, but my question is not about using ComplexListPlot, it's about how to do this using Graphics[Point[{...}]]. All I am after is a quick and dirty check of the geometry, and Point delivers that - only apparently without the style!

I am using Mathematica 12.1.1.0 for MacOS.

$\endgroup$
2
  • $\begingroup$ try Graphics[{Darker[Red], Point[ table1]}]? $\endgroup$ – kglr Apr 13 at 11:29
  • $\begingroup$ Hi @kglr. Thank you - thought I'd tried that, obviously hadn't! It works. Do you want to put it up as an answer for me to tick? $\endgroup$ – Richard Burke-Ward Apr 13 at 13:54
0
$\begingroup$

You need to place the styling directive before Point:

Graphics[{Darker[Red], Point[table1]}]

or wrap Point[...] with Style:

Graphics[Style[Point[table1], Darker[Red]]]

to get

enter image description here

$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.