Before I add /. Line -> Arrow
, I had a continuous plot by using Joined -> True
command. Why there is a small gap at the tip of the arrow now? What did I do wrong?
n=100; Do[ ss[j] = N[2 Pi (j - 1)/n]; rr[j] = N[Sqrt[1 + (Cos[4 ss[j]])^2]]; ETA[j] = N[rr[j] Exp[I ss[j]]]; fA[j] = N[Exp[rr[j]]], {j, 1, n + 1}] Shape = ListPlot[Table[{Re[ETA[j]], Im[ETA[j]]}, {j, n + 1}], Joined -> True, PlotStyle -> {Black, Thick}, AspectRatio -> Automatic, PlotRange -> {{-2, 2}, {-2, 2}}, Axes -> False, Frame -> {{True, False}, {True, False}}, FrameTicks -> {{{-2, -1, 0, 1, 2}, None}, {{-2, -1, 0, 1, 2}, None}}, FrameLabel -> {Re t, Im t}, RotateLabel -> False, FrameStyle -> Directive[FontSize -> 24]] /. Line -> Arrow;
