By
we define a sequence of sets
,
. By plotting
for
we get Fig 4.2.
We use the following Mathematica program. Note that we join points with curved segments by Mathematica command "
".
LS[1]=ppo[50];
Clear[d]; Do[
d[1,k] = Map[{#[[2]], #[[3]]} &,
Select[LS[1], #[[1]] == k &]], {k, 0, 50}];
ListPlot[Table[d[1,k], {k, 1, 50}], Joined -> True]
By plotting
By
we define a sequence of sets
for
. By plotting
for
we get Fig 4.5.
By plotting
By
we define a sequence of sets
. By plotting
for
we get Fig 4.8.
By plotting
By
we define a sequence of sets
for
. By plotting
for
we get Fig 4.11.
By plotting
By
we define a sequence of sets
for
. By plotting
for
we get Fig 4.14.
By plotting
For
the 3D graphs are beautiful, but 2D graphs are not beautiful, however, for
the 3D graphs and 2D graphs are both beautiful.