Grapes/win 2.8
[Don't Edit] 3.14
----------
BGstretchOn BGfile
1 
----------
UserFunction
1 1 1
(cosux+ucosx,sinux+usinx)/(u+1)
----------
y = f(x)
0
----------
0 = f(x,y)
0
----------
Point
22 1 2 9 0 8 0 3 5 0 0 7 0 0 4 0 0 0 0 0 0 0 6 1 1 1 1 1 1 1 0 1 1 0 1 1 1 1 1 1 1 1 1 1 1
P
1 0 2
P
(roll(ak)).x
(roll(ak)).y
0


t 0.1
0 0
16711680 16711680 16777215 1 0 0 1 1 0 0
1 0 1 0
Q
1 0 2
Q(!{ua mod n})
(roll(uak)).x
(roll(uak)).y
0


t 0.1
0 0
16711680 16711680 16777215 1 0 0 1 1 0 0
1 0 1 0
R
1 0 2
R
((uP+Q)/(u+1)).x
((uP+Q)/(u+1)).y
0


t 0.1
1 0
255 16711680 16777215 1 0 0 1 1 0 0
2 0 1 0
S
0 0 1
T
6 0 2
T
(f(t)).x
(f(t)).y
0
0
b
t 0.1
0 0
16777215 16711680 16777215 1 0 0 1 1 0 0
3 0 2 0
U
0 0 1
V
2 0 2
V
0
0
1


t 0.1
0 0
16777215 8421504 16777215 1 0 0 1 1 0 0
3 0 1 0
A
1 0 2
A
(rot(O,P,Pi/2)).x
(rot(O,P,Pi/2)).y
0


t 0.1
0 0
255 8421504 16777215 0 0 0 1 1 0 0
3 0 1 0
B
0 0 1
C
0 0 1
D
1 0 2
D
1
-1
0


t 0.1
0 0
16777215 16711680 16777215 1 0 1 1 1 0 0
3 0 1 0
E
0 0 1
F
0 0 1
G
1 0 2
A
(roll(@k)).x
(roll(@k)).y
0


t 0.1
1 0
0 8421504 16777215 1 0 0 1 1 0 0
1 0 1 0
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
0


t 0.1
0 0
16777215 16711680 16777215 1 0 0 1 1 0 0
3 0 1 0
----------
Segments
1
2 1 1 0 16777215 1 1 1 0 0
0 
1 11 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
----------
paramater
14
0 0
1 1 1 1 1
6.28318530717959 0
1 1 1 1 2
48 0
1 1 1 1 0
0.808 0
1 1 0.02 1 0
1 0
1 1 0.1 1 0
60 0
1 1 1 1 3
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
1.49 0
1 1 0.01 1 0
1 0
1 1 0.1 1 4
-2 0
1 1 0.5 1 5
1 0
1 1 0.1 1 0
60 0
1 1 2 0 6
0.10471975511966 0
1 1 0.1 0 7
1 1 56
----------
KakuMode ScanWidth LogMode ThetaMode AreaMode capStyle
1 4 2 1 1 0 1 1 0 1 0 32 0
DrawMode SegmentShowSync
1 0
AfterImageColorNo, CanAImg,MaxAimgN0
2 1 3001
circleMode
1
----------
ScaleX
Vlow,VHigh,label
0 914 x
x
AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible
0 0 0 0 0
NUmber,Base,Linterval,numberR
7 1 1 7
High,Low
3.73163789611698 -4.28590596353214
----------
ScaleY
Vlow,VHigh,label
0 914 y
AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible
0 0 0 0 0
NUmber,Base,Linterval,NumbeerR
7 1 1 7
High,Low
4.09061649479699 -4.01382649479699
----------
ScaleS
SquareQ AreaRectify PsMesh AxisWidth FontSize AxisOn letterCenterShowPOsition ShowEquation AxisType PolorNum Areafixed
0 1 0 1 12 0 0 0 0 0 12 0 0 0
----------
Yvalue
1 1
----------
Iinterval
Svalue Evalue sliceNo
1 -1
1 1
40 10
Dfuncno Efuncno AreaQ
1 0 0
----------
Yvalue Function List
6
y1
y2
y3
y4
y5
y6
----------
Panel Position
0 0 0 556 354 110 0 143 0 0 0 1 1 0 1 0
1
----------
PetaMEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 0 0 12 0 0 0

50
正多角形の対角線の一部

ＰＱを１：!{[u]}に外分する点をＲ、
点Ｒは、内トロコイド上に存在する
{u=-2}の時、デルトイド
{u=-3}の時、アステロイド

{u}は、0.5ピッチの変化に対応
#//初期化
#k:=2Pi/n
#a:=0
#if P=Q then
#D.x:=A.x
#D.y:=A.y
#else
#D.x:=Q.x
#D.y:=Q.y
#endif
#Calc
#ClrAImg
#draw

#//自動描画
#for a:=0 to 2n/(2-(-2u mod 2))
#Call(D)
#next

#//等分点を描く
#k:=2Pi/n
#for @:=1 to n
#draw
#next

#//内トロコイド表示ＳＷ
#InvShowObj(T)

#//点Ｒの表示ＳＷ
#InvShowObj(R)

#HideScript//D
#on a,n,u change
#b:=4Pi/(2-(-2u mod 2))
#if P=Q then
#D.x:=A.x
#D.y:=A.y
#else
#D.x:=Q.x
#D.y:=Q.y
#endif
#draw


----------
11
4 27 1
4 236 1
6 36 0
6 36 0
6 36 0
6 36 0
6 36 0
6 36 0
6 36 0
6 36 0
4 24 0
----------
Table SECTION
RowNo, ColumnNo
0 10 200
Table Data


60 60 60 60 60 60 60 60 60 60
----------
SimpleMemo SECTION
0
----------