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 8 0 7 4 5 6 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

((-1)^round(t/2Pi))(Acos(acost-1+a)-Sqrt(1-(acost-1+a)^2)-Pi)
acost-2+a



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 0 0 0 1 1 0
1 0 2
R
6 0 1
R
((-1)^round(t/2Pi))(sin@-@)
1+cos@
0
0
Pi-Acos(acost-1+a)
@ 0.1
0 0
14737632 255 16777215 1 0 0 1 1 0
1 0 3
S
0 0 1
T
6 0 1
T
@+sin@-Pi
1-cos@
0
(1-b)Pi
(1+b)Pi
@ 0.1
0 0
16777215 48896 16777215 1 0 0 1 1 0
3 0 2
U
2 0 1
U
0
2.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.5sin(t/6)
0.5cos(t/6)+2.5
0


t 0.1
0 0
16777215 48896 16777215 1 0 0 1 1 0
1 0 2
A
1 0 1
A
((-1)^round(t/2Pi))(Acos(acost-1+a)+Sqrt(1-(acost-1+a)^2)-Pi)
-acost+2-a
0


t 0.1
0 0
16777215 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
2
3 1 1 48896 16777215 2 0 1
0 
6 7 0 0 0 0 0 0 0 0 0
1 1 1 255 16777215 3 0 1
0 
8 1 0 0 0 0 0 0 0 0 0
----------
paramater
14
0.3 0
1 1 0.1 1 3
0.5 0
1 1 0.1 1 4
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
37.6000000000003 0
1 1 5 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 144
----------
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 1145 x
x
AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible
0 0 0 0 0
NUmber,Base,Linterval
6 1 1
High,Low
3.60874988865255 -3.63808555438542
----------
ScaleY
Vlow,VHigh,label
0 970 y
AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible
0 0 0 0
NUmber,Base,Linterval
8 1 1
High,Low
3.45570187459505 -2.67739192737243
----------
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 279 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

42
サイクロイド振り子時計

パラメータ a(0<=a<=1)を変えると
P のスタート地点を変更できます

bを変えると当て板のサイズが変わります
# //初期化
#ShowObj(A,P,U,V,Q,T,R)
#t := 0
#a := 1
#b :=1
#draw:
#ClrAImg

# //時計
#ShowObj(P,U,V,A,T,R)
#HideObj(Q)
#t :=0
#a :=0.3
#b :=0.5
#draw:
#ClrAImg
#Wait(100)
# for t := 0 to 37.7 step 0.1
#   calc
#   refresh
# next
# Refresh

# //全体
#ShowObj(P,A,Q,T,R)
#t := 0
#a :=1
#b :=1
#draw:
#ClrAImg
#Wait(100)
# for t := 0 to 37.7 step 0.1
#   calc
#   refresh
# next
# Refresh
----------
11
4 24 1
12 61 0
12 61 0
12 61 0
12 61 0
12 61 0
12 61 0
12 61 0
12 61 0
12 61 0
4 24 0
----------
Table SECTION
RowNo, ColumnNo
0 10
Table Data

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