球面上点间最大距离和随点数变化的规律

GeoGebra 命令及参数

1. Sequence((2 * Element[pumfang0, i] / (((i + 3) * (i + 2)))), i, 1, Length[pumfang0]) → pumfang1
2. TableText({Join[{{"n"}, Sequence[i, i, 4, Length[pumfang0] + 3]}], Join[{{"P_n"}, pumfang0}], Join[{{" p_n=P_n/[n*(n-1)/2]"}, pumfang1}], Join[{{"p_n/p_4"}, pumfang2}]}, "vl") → text8
3. Zip((a, (10 * b)), a, l0, b, l1') → l_f
4. Sequence(Text[l0(i)], i, 1, Length[l0]) → l2
5. TableText(Join[{{"n"}, Sequence[Text[l0(i)], i, 1, Length[l0]]}], Join[{{"\fgcolor{#5D8AA8}{Distance\; Sum^*_n}"}, l1}], "vl") → text8a
6. Point(l_f) → A
7. IndexOf(A, l_f) → c
8. RotateText(text4, 90°) → Text1