8.3.4 ListPlot[] -- リストの形で与えられた平面上の点を結んで折れ線を描く

数値データのリストから曲線を描く。 これを用いると、例えば外部のプログラムで計算したデータを表示できる。 次の例では Table[] で生成したリストから曲線を描いている。
fp = Table[{t,N[Sin[Pi t]]}, {t,0,0.5,0.025}]  
ListPlot[fp]  
ListPlot[fp, PlotJoined -> True]  
Remove[fp]  

p[z_, alpha_, maxn_] :=
  Module[{r, t, w}, r = Abs[z]; t = Arg[z]; w = r^alpha*Exp[I alpha t];
         Table[{Re[w Exp[I n alpha 2 Pi]], Im[w Exp[I n alpha 2 Pi]]},{n,maxn}]
        ]
g8 = ListPlot[p[1, 1/8, 8],
              AspectRatio -> Automatic, PlotStyle -> {Red, PointSize[0.03]}]

ひまわりの種 (黄金角が大事って本当?)
a=N[GoldenAngle]
ps[a_] := Table[N[Sqrt[n] {Cos[a*n], Sin[a*n]}], {n, 1, 1000}];
ListPlot[ps[a], AspectRatio -> 1, PlotStyle -> Thick]
Manipulate[ListPlot[ps[a + eps], AspectRatio -> 1, PlotStyle -> Thick],
 {eps, -0.1, 0.1, 1/1000}]

桂田 祐史
2018-10-12