This code creates three complex lists. The third list is the Union
of the other two. There are three plots. When applying ComplexListPlot
to all three lists I would expect the third plot to be the first two plots combined. But no! Why? What am I missing?
z = Table[{x, I*y}, {x, -2, 0}, {y, -2, 0}]
s = z^3
g = Union[z, s]
ComplexListPlot[#, Joined -> True, PlotRange -> Full] & @@ z
ComplexListPlot[#, Joined -> True, PlotRange -> Full] & @@ s
ComplexListPlot[#, Joined -> True, PlotRange -> Full] & @@ g
So I expected to add the first and second plot. But The second plot equals the third plot. ComplexListPlot[#, Joined -> True, PlotRange -> Full] & @@ g[[3;;4]]
gives partly the right picture. Very strange! I use Mathematica 12.1.
ComplexListPlot[z[[1]], Joined->True]
,ComplexListPlot[s[[1]], Joined->True]
andComplexListPlot[Join[z[[1]],s[[1]]], Joined->True]
$\endgroup$ – kglr Feb 18 at 4:39z1 = {u, v, w}; s1 = {a, b, c}; g1 = Union[z1, s1];
and compare# & @@ z1
and# & @@ s1
and# & @@ g1
(versus, say#2 & @@ z1
and#2 & @@ s1
and#2 & @@ g1
), Similarly, for an arbitrary functionfoo
, inspectfoo[# ]& @@ z1
andfoo[# ]& @@ s1
andfoo[# ]& @@ g1
. $\endgroup$ – kglr Feb 18 at 4:43