Grapes/win 2.8
[Don't Edit] 3.14
----------
BGstretchOn BGfile
1 
----------
UserFunction
0
----------
y = f(x)
0
----------
0 = f(x,y)
1 1 1
x^2/A.x^2+y^2/A.y^2=1
0 0 2 1 4 1 0 1 X
----------
Point
22 5 6 7 8 0 0 0 1 2 3 4 10 11 0 0 0 0 0 0 0 0 9 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
P
2 4 2
<RED>P</RED>
A.x-p
A.y-p
p


t 0.1
0 0
255 255 16777215 0 0 0 1 1 0 0
1 0 2 0
Q
2 4 2
<red>Q</red>
A.x-q
A.y-q
q


t 0.1
0 0
255 255 16777215 0 0 0 1 1 0 0
1 0 2 0
R
2 4 2
<blue>R</blue>
A.x-u
A.y-u
u


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0 0
1 0 2 0
S
2 4 2
<blue>S</blue>
A.x-v
A.y-v
v


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0 0
1 0 2 0
T
0 0 1
U
0 0 1
V
0 0 1
A
1 3 2
A
4
3
0


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


t 0.1
0 0
16777215 16711680 16777215 1 0 0 1 1 0 0
3 0 1 0
C
1 0 2
C
(-A).x
(-A).y
0


t 0.1
0 0
16777215 16711680 16777215 1 0 0 1 1 0 0
3 0 1 0
D
1 0 2
D
(-B).x
(-B).y
0


t 0.1
0 0
16777215 16711680 16777215 1 0 0 1 1 0 0
3 0 1 0
E
1 0 2
E
0
A.y
0


t 0.1
0 0
0 16711680 16777215 1 0 0 1 1 0 0
1 0 1 0
F
1 0 2
F
A.x
0
0


t 0.1
0 0
0 16711680 16777215 1 0 0 1 1 0 0
1 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
0 16711680 16777215 0 0 0 1 1 0 0
1 0 1 0
----------
Segments
5
9 1 1 0 16777215 1 0 1 0 0
0 
8 9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
9 1 1 0 16777215 1 0 1 0 0
0 
8 11 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
5 1 1 0 16777215 2 0 1 0 0
0 
8 10 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 0 16777215 1 0 1 0 0
8 {b}
12 252 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 0 16777215 1 0 1 0 0
7 {a}
13 252 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
----------
paramater
14
7.97 0
1 1 0.1 1 0
5.836365 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.5900233 0
1 1 0.1 1 1
20.33818 0
1 1 0.1 1 2
0 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
2.8269715 0
1 1 0.1 1 3
4.2448253 0
1 1 0.1 1 4
6.0868358 0
1 1 0.1 1 0
40 0
1 1 0.1 1 0
1 1 1
----------
KakuMode ScanWidth LogMode ThetaMode AreaMode capStyle
1 4 2 1 1 0 1 1 0 1 0 32 0
DrawMode SegmentShowSync
1 0
AfterImageColorNo, CanAImg,MaxAimgN0
2 1 3001
circleMode
1
----------
ScaleX
Vlow,VHigh,label
0 914 x
x
AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible
0 0 0 0 0
NUmber,Base,Linterval,numberR
1 1 1 1
High,Low
5 -5
----------
ScaleY
Vlow,VHigh,label
0 914 y
AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible
0 0 0 0 0
NUmber,Base,Linterval,NumbeerR
1 1 1 1
High,Low
5 -5
----------
ScaleS
SquareQ AreaRectify PsMesh AxisWidth FontSize AxisOn letterCenterShowPOsition ShowEquation AxisType PolorNum Areafixed
0 1 2 1 12 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 0 0 33 0 0 0 0 0 0 1 0
1
----------
PetaMEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 0 0 12 0 0 0

46
[Rectangular_Obal_Circle]

長軸{2a},短軸{2b}
{r=a+b}±{Sqrt(ab)}
　　　　<red>±</red>|{Sqrt(a)}±{Sqrt(b)}|{Sqrt(a+b)}

点Ａはドラッグできます。
#HideScript//DR
#Call(CA)
#ShowObj(P)
#HideObj(Q,R,S)
#Call(【エリア変更】)
#draw

#HideScript//CA
#on A change
#p:=A.x+A.y+Sqrt(A.x*A.y)-(Sqrt(A.x)+Sqrt(A.y))Sqrt(A.x+A.y)
#q:=A.x+A.y+Sqrt(A.x*A.y)+(Sqrt(A.x)+Sqrt(A.y))Sqrt(A.x+A.y)
#u:=A.x+A.y-Sqrt(A.x*A.y)-[Sqrt(A.x)-Sqrt(A.y)]Sqrt(A.x+A.y)
#v:=A.x+A.y-Sqrt(A.x*A.y)+[Sqrt(A.x)-Sqrt(A.y)]Sqrt(A.x+A.y)
#draw

#//【初期化】
#A:=(4,3)
#s:=1
#Calc
#Call(DR)

#//【エリア変更】
#if s=1 then SetArea(-5,5,5,-5) else SetArea(-25,5,5,-25)
#s:=1-s

#//ALL
#ShowObj(P,Q,R,S)

#//SW(P)
#InvShowObj(P)

#//SW(Q)
#InvShowObj(Q)

#//SW(R)
#InvShowObj(R)

#//SW(S)
#InvShowObj(S)


----------
11
4 27 1
6 36 0
6 36 0
6 36 0
6 36 0
6 36 0
6 36 0
6 36 0
6 36 0
6 36 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
----------