Grapes/win 2.8
[Don't Edit] 3.14
----------
BGstretchOn BGfile
0 
----------
UserFunction
0
----------
y = f(x)
0
----------
0 = f(x,y)
0
----------
Point
22 1 3 4 5 0 6 7 8 0 0 0 0 0 0 0 0 0 0 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
P
1 3 1
P
((-1)^round(t/2Pi))(Acos(acost-1+a)-Sqrt(1-(acost-1+a)^2)-Pi)
acost-2+a
0


t 0.1
0 0
255 16711680 16777215 1 0 0 1 1 0
6 0 2
Q
6 0 1
Q
@-sin@-Pi
cos@-1
0
0
2Pi
@ 0.1
0 0
16777215 16711680 16777215 1 0 0 1 1 0
1 0 2
R
1 6 1
R
-asint
acost-2+a
0


t 0.1
0 0
255 16711680 16777215 1 0 0 1 1 0
6 0 2
S
2 0 1
S
0
a-2
a


t 0.1
0 0
48896 48896 16777215 1 0 0 1 1 0
2 0 2
T
0 0 1
U
2 0 1
U
0
0.5
0.5


t 0.1
0 0
48896 48896 16777215 1 0 0 1 1 0
2 0 2
V
1 0 1
V
-0.5sint
0.5cost+0.5
0


t 0.1
0 0
48896 48896 16777215 1 0 0 1 1 0
1 0 2
A
1 0 1
A
((-1)^round(t/2Pi))(Acos(cost)-Sqrt((sint)^2)-Pi)
cost-1
0


t 0.1
0 0
16711680 16711680 16777215 1 0 0 1 1 0
6 0 2
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
0


t 0.1
0 0
16777215 16711680 16777215 1 0 0 1 1 0
3 0 1
----------
Segments
3
2 2 1 255 16777215 2 0 1
0 
3 1 0 0 0 0 0 0 0 0 0
1 1 1 48896 16777215 2 0 1
0 
4 3 0 0 0 0 0 0 0 0 0
3 1 1 48896 16777215 2 0 1
0 
6 7 0 0 0 0 0 0 0 0 0
----------
paramater
14
0.4 0
1 1 0.1 1 3
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
0.8 0
1 1 0.1 1 0
0 0
1 1 0.1 1 1
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
0 0
0 1 0.1 1 2
1 0
1 1 0.1 1 0
1 1 120
----------
KakuMode ScanWidth LogMode ThetaMode AreaMode capStyle
1 4 2 1 1 0 0 1 0 0 0
DrawMode SegmentShowSync
1 1
AfterImageColorNo, CanAImg
2 0
circleMode
1
----------
ScaleX
Vlow,VHigh,label
0 703 x
x
AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible
1 0 0 0 1
NUmber,Base,Linterval
6 1 1
High,Low
4.78352996286256 -4.11520421435263
----------
ScaleY
Vlow,VHigh,label
0 379 y
AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible
1 0 0 1
NUmber,Base,Linterval
7 1 1
High,Low
1.41936459332454 -3.41283744090527
----------
ScaleS
SquareQ AreaRectify PsMesh AxisWidth FontSize AxisOn letterCenterShowPOsition ShowEquation AxisType PolorNum Areafixed
1 1 0 1 21 0 0 0 0 0 12 0 0
----------
Yvalue
1 1
----------
Iinterval
Svalue Evalue sliceNo
1 -1
1 1
40 10
Dfuncno Efuncno AreaQ
1 0 0
----------
Yvalue Function List
9
y1
y2
y3
y4
y5
y6
y7
y8
y9
----------
Panel Position
0 0 0 0 270 0 0 0 0 0 0 0 1 0 1 0
1
----------
PetaMEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 16711680 0 12 0 0 0

49
サイクロイドが等時曲線であることの
ホイヘンスによる証明のアイデア

パラメータ a を変えると 
P のスタート地点を変更できます
# //初期化
#ShowObj(A,P,R,S,U,V)
#t := 0
#a := 0.4
#draw:
#ClrAImg

# // 異なる位置から
#HideObj(S,R)
#ShowObj(A,P)
#t := 0
#draw:
#ClrAImg
#Wait(100)
# for t := 0 to 31.5 step 0.1
#   calc
#   refresh
# next
# Refresh

# // 等速円運動との比較
#HideObj(A)
#ShowObj(S,P,R)
#t := 0
#draw:
#ClrAImg
#Wait(100)
# for t := 0 to 31.5 step 0.1
#   calc
#   refresh
# next
# Refresh

# // 一斉に
#ShowObj(A,S,P,R)
#t := 0
#draw:
#ClrAImg
#Wait(100)
# for t := 0 to 31.5 step 0.1
#   calc
#   refresh
# next
# Refresh
----------
11
4 24 1
6 31 0
6 31 0
6 31 0
6 31 0
6 31 0
6 31 0
6 31 0
6 31 0
6 31 0
4 24 0
----------
Table SECTION
RowNo, ColumnNo
0 10
Table Data

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