Grapes/win 2.5
[Don't Edit]
----------
BGstretchOn BGfile
0 
----------
UserFunction
2
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
x^2/A.x^2+y^2/A.y^2=1
0 1 2 1 4 1 0 1
----------
Point
20
P
1 7 1
P
1.14
-0.77



t  1.00000000000000E-0001
0 0
1 1 0 1 0 1 1 1 0
3 0 1
Q
1 0 2
Q
(P+(cos@,sin@)).x
(P+(cos@,sin@)).y



t  1.00000000000000E-0001
0 0
0 1 0 1 0 0 1 1 0
1 0 1
R
1 6 1
R
u
v



t  1.00000000000000E-0001
0 0
2 1 0 1 0 0 1 1 0
3 1 1
S
0 0 1
T
0 0 1
A
1 3 1
A
+5
Sqrt(x^2-F.x^2)



t  1.00000000000000E-0001
0 0
0 1 0 1 0 0 1 1 0
1 0 1
B
1 0 1
B
-A.x
-A.y



t  1.00000000000000E-0001
0 0
0 1 0 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.00
+0



t  1.00000000000000E-0001
0 0
3 1 0 1 0 1 1 1 0
3 0 1
G
1 7 1
F'
-F.x
0



t  1.00000000000000E-0001
0 0
3 1 0 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



t  1.00000000000000E-0001
0 0
0 1 0 1 0 0 1 1 0
3 0 1
----------
Segments
2
5 1 1 5 0 1 0 0 
6 7 0 0 0 0 0 0 0 0 0 
3 1 1 2 0 1 0 0 
1 2 0 0 0 0 0 0 0 0 0 
----------
paramater
14
 5.12500000000000E-0002 0
1 1  5.00000000000000E+0000
-1.78544462249603E-0003 0
1 1  5.00000000000000E+0000
-9.10959750000000E-0001 0
1 1  5.00000000000000E+0000
 4.25100184870546E+0000 0
1 1  5.00000000000000E+0000
 1.00000000000000E+0000 0
1 1  5.00000000000000E+0000
 2.50000000000000E+0001 0
1 1  5.00000000000000E+0000
 1.00000000000000E+0000 0
1 1  5.00000000000000E+0000
 1.00000000000000E+0000 0
1 1  5.00000000000000E+0000
 1.00000000000000E+0000 0
1 1  5.00000000000000E+0000
 4.50000000000000E+0001 0
1 1  5.00000000000000E+0000
 4.14591223405618E+0000 0
1 1  5.00000000000000E+0000
 2.23591223405618E+0000 0
1 1  5.00000000000000E+0000
 4.50000000000000E+0001 0
1 1  1.00000000000000E+0000
 0.00000000000000E+0000 0
1 1  5.00000000000000E+0000
1 1 40
----------
KakuMode ScanWidth LogMode ThetaMode AreaMode capStyle
2 2 1 2 1 0
DrawMode
1
AfterImageColorNo, CanAImg
1 1
circleMode
1
----------
ScaleX
Vlow,VHigh,label
0 700 x
x
AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter
1 0 0 0
NUmber,Base
1  1.00000000000000E+0000
High,Low
 5.32130101101461E+0000 -5.48116812478786E+0000
----------
ScaleY
Vlow,VHigh,label
0 700 y
AxesVisible,ScaleVisible,Svaluevisible
1 0 0
NUmber,Base
1  1.00000000000000E+0000
High,Low
 5.41272956790124E+0000 -5.38973956790124E+0000
----------
ScaleS
SquareQ AreaRectify PsMesh AxisWidth FontSize AxisOn letterCenter
1 1 0 1 12 0 0
----------
Yvalue
0 
----------
Iinterval
Svalue Evalue sliceNo
1 -1
1 1
40
Dfuncno Efuncno AreaQ
1 0 0
----------
Yvalue Function List
9
y1
y2
y3
y4
y5
y6
y7
y8
y9
----------
Panel Position
0 440 0 523 282 0 0 0 0 1 0 1 1 0 1 0 
1
----------
MEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 1 1 10 0 0 0

45
楕円形のビリヤードです．
 ★ 使い方
１．点{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//パラメータnをデータパネルに表示するためのダミースクリプト
# on n change
# ---
# //n回実行
# for k := n-1 to 0 step (-1)
#   sub(１回だけ実行)
#   wait(50)
# 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
----------
9
 4 24 1
 4 24 1
 4 24 1
 4 24 1
 4 24 1
 4 24 1
 4 24 1
 4 24 1
 4 24 1
----------