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 for we get Fig 4.3.
By
we define a sequence of sets
for
. By plotting
for
we get Fig 4.5.
By plotting for we get Fig 4.6.
By
we define a sequence of sets
. By plotting
for
we get Fig 4.8.
By plotting for we get Fig 4.9.
By
we define a sequence of sets
for
. By plotting
for
we get Fig 4.11.
By plotting for we get Fig 4.12.
By
we define a sequence of sets
for
. By plotting
for
we get Fig 4.14.
By plotting for we get Fig 4.15.
For
the 3D graphs are beautiful, but 2D graphs are not beautiful, however, for
the 3D graphs and 2D graphs are both beautiful.