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 255 2 1 4 1 0 1
----------
Point
22 1 2 4 6 0 5 0 7 0 0 0 0 0 0 8 0 0 0 0 0 0 3 0 0 0 0 1 0 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1
P
1 0 2
P
acost
bsint
0


t 0.1
0 0
16711680 16711680 16777215 1 0 0 1 1 0
1 0 1
Q
1 0 2
Q
(-P).x
(-P).y
0


t 0.1
0 0
16711680 16711680 16777215 1 0 0 1 1 0
1 0 1
R
1 0 2
R
((a b^2 sint,-a^2 bcost)/[U]).x
((a b^2 sint,-a^2 bcost)/[U]).y
0


t 0.1
0 0
16711680 16711680 16777215 1 0 0 1 1 0
1 0 1
S
1 0 2
S
(-R).x
(-R).y
0


t 0.1
0 0
16711680 16711680 16777215 1 0 0 1 1 0
1 0 1
T
0 0 1
U
1 0 2
U
a^2 cost
b^2 sint
0


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0
3 0 1
V
0 0 1
A
2 0 2
A
0
0
[OH]


t 0.1
0 0
16777215 48896 16777215 1 0 0 1 1 0
1 0 3
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
1 0 2
H
(perp(P,R)).x
(perp(P,R)).y
0


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0
1 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
1
7 1 1 16711680 16777215 2 0 1
0 
1 4 2 3 0 0 0 0 0 0 0
----------
paramater
14
3 0
1 1 0.1 1
2 0
1 1 0.1 1
1 0
1 1 0.1 1
1 0
1 1 0.1 1
1 0
1 1 0.1 1
1 0
1 1 0.1 1
4 0
1 1 0.1 1
6.4 0
1 1 0.1 1
1 0
1 1 0.1 1
360 0
1 1 2 1
1 0
1 1 0.1 1
1 0
1 1 0.1 1
2.2 0
1 1 0.1 1
1 0
1 1 0.1 1
1 1 80
----------
KakuMode ScanWidth LogMode ThetaMode AreaMode capStyle
2 4 2 1 1 0 0 1 0 0 0
DrawMode SegmentShowSync
1 0
AfterImageColorNo, CanAImg
2 1
circleMode
1
----------
ScaleX
Vlow,VHigh,label
0 877 x
x
AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible
1 0 0 0 0
NUmber,Base,Linterval
7 1 1
High,Low
3.71789677315249 -3.71430661667802
----------
ScaleY
Vlow,VHigh,label
0 877 y
AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible
1 0 0 0
NUmber,Base,Linterval
7 1 1
High,Low
3.74261467749619 -3.66404884416467
----------
ScaleS
SquareQ AreaRectify PsMesh AxisWidth FontSize AxisOn letterCenterShowPOsition ShowEquation AxisType PolorNum Areafixed
1 1 0 1 18 0 0 0 0 0 12 0
----------
Yvalue
1 1
----------
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 81 0 0 162 0 299 0 0 1 0 1 1 0 1 0
1
----------
MEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 0 0 14 0 0 0

23
Given an ellipse, 
draw an inscribed rhombus.

Show that the rhombus 
inscribes a fixed circle.
#//Auto Show
#draw
#ClrAImg
#b:=2
#for a:=3 to 2 step -0.1
#draw
#next a
#Call(Rotation)
#wait(1000)
#for a:=2 to 3 step 0.1
#draw
#next a
#Call(Rotation)

#//Rotation
#for t:=0 to 360 step 1
#draw
#next t
----------
11
4 24 1
6 34 0
6 34 0
6 34 0
6 34 0
6 34 0
6 34 0
6 34 0
6 34 0
6 34 0
6 34 0
----------