Grapes/win 2.6
[Don't Edit]
----------
BGstretchOn BGfile
0 
----------
UserFunction
0
----------
y = f(x)
0
----------
0 = f(x,y)
0
----------
Point
20 1 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
P
1 0 1
P
cos(2Pim/n)
sin(2Pim/n)
0


t 0.1
0 0
1 1 0 1 0 0 1 1 0
2 0 1
Q
1 0 1
Q
cos(2Pi(m+k)/n)
sin(2Pi(m+k)/n)
0


t 0.1
0 0
1 1 0 1 0 0 1 1 0
2 0 1
R
0 0 1
S
0 0 1
T
0 0 1
A
0 0 1
B
0 0 1
C
0 0 1
D
0 0 1
E
0 0 1
F
0 0 1
G
0 0 1
H
0 0 1
I
0 0 1
J
0 0 1
K
0 0 1
L
0 0 1
M
0 0 1
N
0 0 1
O
1 0 2
O
0
0



t 0.1
0 0
0 1 0 1 0 0 1 1 0
3 0 1
----------
Segments
1
1 1 1 2 0 1 1 1
0 
2 1 0 0 0 0 0 0 0 0 0
----------
paramater
14
1 0
1 1 1 1
1 0
1 1 1 1
1 0
1 1 1 1
1 0
1 1 1 1
18 0
1 1 1 1
18 0
1 1 1 1
1 0
1 1 1 1
1 0
1 1 1 1
1 0
1 1 1 1
1 0
1 1 1 1
1 0
1 1 1 1
1 0
1 1 1 1
1 0
1 1 1 1
9 0
1 1 1 1
1 1 32
----------
KakuMode ScanWidth LogMode ThetaMode AreaMode capStyle
1 2 1 2 1 0 0 1 0 0
DrawMode SegmentShowSync
1 1
AfterImageColorNo, CanAImg
0 1
circleMode
1
----------
ScaleX
Vlow,VHigh,label
0 877 x
x
AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible
0 0 1 0 1
NUmber,Base
2 1
High,Low
1.07247496709603 -1.06134498424217
----------
ScaleY
Vlow,VHigh,label
0 877 y
AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible
0 0 1 1
NUmber,Base
1 1
High,Low
1.050784560475 -1.08162495837306
----------
ScaleS
SquareQ AreaRectify PsMesh AxisWidth FontSize AxisOn letterCenterShowPOsition ShowEquation AxisType PolorNum Areafixed
1 1 0 1 10 0 0 0 0 0 12 0
----------
Yvalue
1 1
----------
Iinterval
Svalue Evalue sliceNo
1 -1
1 1
40
Dfuncno Efuncno AreaQ
1 0 0
----------
Yvalue Function List
9
y1
y2
y3
y4
y5
y6
y7
y8
y9
----------
Panel Position
0 0 0 431 0 0 137 0 0 0 0 1 1 0 1 0
1
----------
MEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 4 1 10 0 0 0

22
　正18角形のすべての頂点
を結びました．
　不思議なのは，4本以上の
対角線が交わる点がたくさん
あることです．18角形以外で
は，これほどうまく交わりませ
ん．試してみましょう．

　頂点の個数を変えるには，
{n}に頂点の個数を代入します．
#HideScript//自動描画
# On n Change
# k := 1
# m := 1
# calc:
# ClrAImg
# for k := 1 to n/2
#   for m := 1 to n
#     calc
#   next
#   ShowAImg
# next
----------
11
4 24 1
6 35 1
6 35 1
6 35 1
6 35 1
6 35 1
6 35 1
6 35 1
6 35 1
6 35 0
6 35 0
----------