Grapes/win 2.8
[Don't Edit] 3.14
----------
BGstretchOn BGfile
0
----------
UserFunction
0
----------
y = f(x)
0
----------
0 = f(x,y)
1 1 1
x^2/a^2 +y^2/b^2 =1
0 16711680 3 1 4 1 0 1 X
----------
Point
22 1 2 3 6 0 0 0 0 0 4 5 9 7 0 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 0 2
P
0
t
0
t 0.1
0 0
255 16711680 16777215 1 0 0 1 1 0 0
2 0 1 0
Q
1 0 2
Q
a
t
0
t 0.1
0 0
255 16711680 16777215 1 0 0 1 1 0 0
2 1 1 0
R
1 0 2
Q
(P+(a cos@,a sin@)).x
(P+(a cos@,a sin@)).y
0
t 0.1
1 0
255 16711680 16777215 1 0 0 1 1 0 0
2 1 1 0
S
1 0 2
S
(Q).x
(Q).y
0
t 0.1
0 0
16777215 16711680 16777215 1 0 0 1 1 0 0
3 0 1 0
T
0 0 1
U
0 0 1
V
0 0 1
A
0 0 1
B
0 0 1
C
1 3 1
C
a
0
0
t 0.1
0 0
0 16711680 16777215 1 0 0 1 1 0 0
3 0 1 0
D
1 3 1
D
0
b
0
t 0.1
0 0
0 16711680 16777215 1 0 0 1 1 0 0
3 0 1 0
E
1 6 2
F'
(-F).x
(-F).y
0
t 0.1
0 0
48896 16711680 16777215 1 1 0 1 1 0 0
4 0 1 0
F
1 6 2
F
Sqrt(a^2-b^2)
0
0
t 0.1
0 0
48896 16711680 16777215 1 1 0 1 1 0 0
4 0 1 0
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 0
3 0 1 0
----------
Segments
6
1 3 1 255 16777215 1 0 1 0 0
0
1 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 3 1 255 16777215 1 1 1 0 0
0
1 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 48896 16777215 6 0 1 0 0
7 {a}
11 13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 48896 16777215 6 0 1 0 0
7 {a}
11 12 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 48896 16777215 2 0 1 0 0
7 {a}
1 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 48896 16777215 6 0 1 0 0
7 {a}
252 10 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
----------
paramater
14
5 0
1 1 0.2 1 1
4 0
1 1 0.2 1 2
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
4 0
1 1 0.1 1 0
4 0
1 1 0.2 0 3
4.0000037 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
-3.1415934 0
1 1 0.098174770424681 0 4
1 0
1 1 0.1 1 0
1 1 0
----------
KakuMode ScanWidth LogMode ThetaMode AreaMode capStyle
1 4 2 1 1 0 1 1 0 1 0 32 0
DrawMode SegmentShowSync
1 1
AfterImageColorNo, CanAImg,MaxAimgN0
2 1 3001
circleMode
1
----------
ScaleX
Vlow,VHigh,label
0 914 x
x
AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible
1 0 1 0 1
NUmber,Base,Linterval,numberR
7 1 1 7
High,Low
5.8810673462611 -5.68855290690345
----------
ScaleY
Vlow,VHigh,label
0 914 y
AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible
1 0 1 1 0
NUmber,Base,Linterval,NumbeerR
7 1 1 7
High,Low
5.62019245672814 -6.057048278502
----------
ScaleS
SquareQ AreaRectify PsMesh AxisWidth FontSize AxisOn letterCenterShowPOsition ShowEquation AxisType PolorNum Areafixed
1 1 0 2 24 0 0 0 0 0 12 0 0 0
----------
Yvalue
1 1
----------
Iinterval
Svalue Evalue sliceNo
1 -1
1 1
40 10
Dfuncno Efuncno AreaQ
1 0 0
----------
Yvalue Function List
6
y1
y2
y3
y4
y5
y6
----------
Panel Position
0 0 0 0 0 52 112 85 0 0 0 0 1 0 1 0
1
----------
PetaMEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 0 0 14 0 0 0
50
点Dを中心とし、半径が長軸の半分の円を描く。
そのとき、{x}軸との交点が焦点F, F'。（但し、{a>b}）
{a=5}のとき
{b=4}または、{b=3}
は焦点の位置が整数となって
ハッキリわかる例です。
#//初期化
# on a,b change
# HideObj(E,F,S)
# t:=0
# @:=0
# calc
# ClrAImg
# Refresh
#//スタート
# HideObj(E,F,S)
# t:=0
# @:=0
# calc
# ClrAImg
# Refresh
# ShowObj(P,S)
# for t:=0 to b step [b]/16
# draw
# wait(150)
# next t
# wait(1000)
# u := 1
# for @:=0 to -Pi-0.01 step -Pi/64
# if (u * R.y < 0) or (R.y = 0) then
# hideobj(L5)
# if R.x > 0 then ShowObj(D,F) else ShowObj(D,E)
# wait(1000)
# showobj(L5)
# endif
# draw
# wait(100)
# u := R.y
# next @
# ShowObj(C,E,F)
# wait(1000)
# for s:=1 to 4
# HideObj(C,D,E,F,S)
# wait(500)
# ShowObj(C,D,E,F,S)
# wait(500)
# next s
----------
11
260 795 0
4 27 1
4 26 0
4 26 0
4 26 0
4 26 0
4 26 0
4 26 0
4 26 0
4 26 0
4 24 0
----------
Table SECTION
RowNo, ColumnNo
0 10 200
Table Data
60 60 60 60 60 60 60 60 60 60
----------
SimpleMemo SECTION
0
----------