Grapes/win 2.8
[Don't Edit] 3.14
----------
BGstretchOn BGfile
0 
----------
UserFunction
2 1 2 1 1
cos^2 x/A.x^2 + sin^2 x/A.y^2
ucosx/A.x^2 + vsinx/A.y^2
----------
y = f(x)
0
----------
0 = f(x,y)
1 1 1
x^2/A.x^2+y^2/A.y^2=1
0 16711680 2 1 4 1 0 1
----------
Point
22 1 2 3 0 0 0 0 4 5 0 0 0 6 7 0 0 0 0 0 0 0 8 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
P
1 7 1
P
1.14
-0.77
0


t 0.1
0 0
16711680 16711680 16777215 1 0 1 1 1 0
3 0 1
Q
1 0 2
Q
(P+(cos@,sin@)).x
(P+(cos@,sin@)).y
0


t 0.1
0 0
16777215 16711680 16777215 1 0 0 1 1 0
1 0 1
R
1 6 1
R
u
v
0


t 0.1
0 0
255 16711680 16777215 1 0 0 1 1 0
3 1 1
S
0 0 1
T
0 0 1
U
0 0 1
V
0 0 1
A
1 0 1
A
+5
Sqrt(x^2-F.x^2)
0


t 0.1
0 0
16777215 16711680 16777215 0 0 0 1 1 0
1 0 1
B
1 0 1
B
-A.x
-A.y
0


t 0.1
0 0
16777215 16711680 16777215 1 0 0 1 1 0
2 0 1
C
0 0 1
D
0 0 1
E
0 0 1
F
1 7 1
F
3
+0
0


t 0.1
0 0
48896 16711680 16777215 1 0 1 1 1 0
3 0 1
G
1 7 1
F'
-F.x
0
0


t 0.1
0 0
48896 16711680 16777215 1 0 0 1 1 0
3 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
5 1 1 8421504 16777215 1 0 1
0 
8 9 0 0 0 0 0 0 0 0 0
3 1 1 255 16777215 1 0 1
0 
1 2 0 0 0 0 0 0 0 0 0
----------
paramater
14
0.05125 0
1 1 5 1 0
-0.00178544462249603 0
1 1 5 1 0
-0.91095975 0
1 1 5 1 0
4.25100184870546 0
1 1 5 1 0
1 0
1 1 5 1 0
25 0
1 1 5 1 1
1 0
1 1 5 1 0
1 0
1 1 5 1 0
1 0
1 1 5 1 0
45 0
1 1 5 1 0
4.14591223405618 0
1 1 5 1 2
2.23591223405618 0
1 1 5 1 3
45 0
1 1 1 1 4
0 0
1 1 5 1 0
1 1 40
----------
KakuMode ScanWidth LogMode ThetaMode AreaMode capStyle
2 2 1 2 1 0 0 1 0 0 0
DrawMode SegmentShowSync
1 1
AfterImageColorNo, CanAImg
1 1
circleMode
1
----------
ScaleX
Vlow,VHigh,label
0 610 x
x
AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible
0 0 0 0 1
NUmber,Base,Linterval
1 1 1
High,Low
5.31833955936216 -5.47812061762899
----------
ScaleY
Vlow,VHigh,label
0 610 y
AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible
0 0 0 1
NUmber,Base,Linterval
1 1 1
High,Low
5.40672228035532 -5.38373228035532
----------
ScaleS
SquareQ AreaRectify PsMesh AxisWidth FontSize AxisOn letterCenterShowPOsition ShowEquation AxisType PolorNum Areafixed
1 1 0 1 12 0 0 0 0 0 12 0 0
----------
Yvalue
0 
----------
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 423 0 510 261 0 0 0 0 1 0 1 1 0 1 0
1
----------
PetaMEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 16711680 1 10 0 0 0

59
楕円形のビリヤードです．
★ 使い方
１．点{P} や点{F} をドラッグ
２．角度を変えるには，
　　パラメータ{@} を変える．
３．［実行］する．
　　{n}回繰り返されます．
# //初期化
# On F,P,@ change
# t := @
# u := P.x
# v := P.y
# calc:
# ClrAImg
# a := f(t)
# b := g(t)
# c := u^2/A.x^2+v^2/A.y^2-1
# d := (-b + Sqrt(b^2-ac))/a
# u := u + dcost
# v := v + dsint
# draw
#---
# hidescript
# on n change
# ---
# //n回実行
# for k := n-1 to 0 step (-1)
# a := u / A.x^2
# b := v / A.y^2
# c := Sqrt(a^2+b^2)
# a := a/c
# b := b/c
# c := acost+bsint
# t := arg(cost-2ca,sint-2cb)
# a := f(t)
# b := g(t)
# c := u^2/A.x^2+v^2/A.y^2-1
# d := (-b + Sqrt(b^2-ac))/a
# u := u + dcost
# v := v + dsint
# draw
# wait(100)
# next
#---
# //１回だけ実行
# a := u / A.x^2
# b := v / A.y^2
# c := Sqrt(a^2+b^2)
# a := a/c
# b := b/c
# c := acost+bsint
# t := arg(cost-2ca,sint-2cb)
# a := f(t)
# b := g(t)
# c := u^2/A.x^2+v^2/A.y^2-1
# d := (-b + Sqrt(b^2-ac))/a
# u := u + dcost
# v := v + dsint
# draw
----------
11
4 24 1
3 21 1
3 21 1
3 21 1
3 21 1
3 21 1
3 21 1
3 21 1
3 21 1
3 21 0
3 21 0
----------
Table SECTION
RowNo, ColumnNo
0 10
Table Data

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