Grapes/win 2.8
[Don't Edit] 3.14
----------
BGstretchOn BGfile
0 
----------
UserFunction
0
----------
y = f(x)
1 1 1
(1-cos@)(x-@+sin@)/sin@-1+cos@
1 255 2 1 1
----------
0 = f(x,y)
0
----------
Point
22 0 2 0 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 1 1 1
P
0 0 1
Q
6 0 1
Q
@-sin@-Pis
cos@-1+2[s]
0
0
2Pi
@ 0.1
0 0
16777215 16711680 16777215 1 0 0 1 1 0
1 0 2
R
0 0 1
S
0 0 1
T
0 0 1
U
0 0 1
V
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
0


t 0.1
0 0
16777215 16711680 16777215 1 0 0 1 1 0
3 0 1
----------
Segments
0
----------
paramater
14
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
1 0
1 1 0.1 1 0
0 0
1 1 0.2 1 2
0 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 1
1 0
1 1 0.1 1 0
1 1 80
----------
KakuMode ScanWidth LogMode ThetaMode AreaMode capStyle
1 4 2 1 1 0 0 1 0 0 0
DrawMode SegmentShowSync
1 1
AfterImageColorNo, CanAImg
2 1
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
7.56877963723831 -1.32995453997688
----------
ScaleY
Vlow,VHigh,label
0 379 y
AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible
1 0 0 1
NUmber,Base,Linterval
7 1 1
High,Low
2.40617947451988 -2.41805078577925
----------
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 0 112 112 224 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
# //初期化
#@ := 1
#draw:
#ClrAImg

# //法線
#@ := 0
#draw:
#ClrAImg
# for @ := 0 to 2Pi step 0.1
#   calc
#   refresh
# next
#@ := 2Pi
#calc
# Refresh

# //移動
#s := 0
# for s := 0 to 1 step 0.01
#   calc
#   refresh
# next
#s := 1
#calc
# Refresh
#Wait(1000)
# for s := 1 to -1 step -0.01
#   calc
#   refresh
# next
#s := -1
#calc
# Refresh
#Wait(1000)
# for s := -1 to 0 step 0.02
#   calc
#   refresh
# next
#s := 0
#calc
# Refresh
----------
11
2 15 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
6
サイクロイドの法線の包絡線はまたサ
イ
クロイドになる

θを動かすと法線の族を描画
ｓを動かすとサイクロイドを平行移動
----------