Grapes/win 2.8
[Don't Edit] 3.14
----------
BGstretchOn BGfile
0 
----------
UserFunction
0
----------
y = f(x)
0
----------
0 = f(x,y)
0
----------
Point
22 1 2 9 7 5 0 0 3 6 8 10 0 0 0 0 0 0 0 0 0 0 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
P
2 6 2
P
0
0
1


t 0.1
0 0
0 0 16777215 1 0 1 1 1 0 0
2 0 2 0
Q
2 6 2
Q
d
0
a


t 0.1
0 0
0 0 16777215 1 0 0 1 1 0 0
2 0 2 0
R
1 7 2
R
(Ptan(C,Q,-a)).x
(Ptan(C,Q,-a)).y
0


t 0.1
0 0
48896 16711680 16777215 1 0 0 1 1 0 0
2 0 1 0
S
1 7 2
S
(Ptan(B,Q,-a)).x
(Ptan(B,Q,-a)).y
0


t 0.1
0 0
48896 16711680 16777215 1 0 0 1 1 0 0
2 0 1 0
T
1 7 2
T
(Ptan(A,Q,-a)).x
(Ptan(A,Q,-a)).y
0


t 0.1
0 0
48896 16711680 16777215 1 0 0 1 1 0 0
2 0 1 0
U
0 0 1
V
0 0 1
A
6 4 2
<B>A(cos{@},sin{@})</B>
(roll(@)).x
(roll(@)).y
0
0
2Pi
@ 0.001
0 0
255 16777215 16777215 1 0 1 1 1 0 0
3 0 2 0
B
1 7 2
B
(intr(A,T,P,1)).x
(intr(A,T,P,1)).y
0


t 0.1
0 0
255 16711680 16777215 1 0 0 1 1 0 0
3 0 1 0
C
1 7 2
C
(intr(B,S,P,1)).x
(intr(B,S,P,1)).y
0


t 0.1
0 0
255 16711680 16777215 1 0 0 1 1 0 0
3 0 1 0
D
1 2 2
D
(intr(C,R,P,1)).x
(intr(C,R,P,1)).y
0


t 0.1
0 0
255 16711680 16777215 1 0 0 1 1 0 0
3 0 1 0
E
0 0 1
F
0 0 1
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
4
1 1 1 255 16777215 2 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
1 1 1 255 16777215 2 0 1 0 0
0 
9 10 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 255 16777215 2 0 1 0 0
0 
10 11 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 3 0 1 0 0
7 <B>{d}</B>
1 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
----------
paramater
14
0.45 0
1 1 0.005 1 1
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
0.35 0
1 1 0.002 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
0.1 0
1 1 0.1 1 0
25 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
0.20943951 0
1 1 0.15707963267949 1 3
1 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 1
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 1
NUmber,Base,Linterval,numberR
7 1 1 7
High,Low
1.17711879668429 -1.10788120331571
----------
ScaleY
Vlow,VHigh,label
0 914 y
AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible
0 0 0 1 0
NUmber,Base,Linterval,NumbeerR
7 1 1 7
High,Low
1.18901 -1.09599
----------
ScaleS
SquareQ AreaRectify PsMesh AxisWidth FontSize AxisOn letterCenterShowPOsition ShowEquation AxisType PolorNum Areafixed
0 1 0 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 52 142 85 0 0 0 0 1 0 1 0
1
----------
PetaMEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 16711680 0 12 0 0 0

34
円<B>Ｐ</B>と<B>Ｑ</B>の半径は<B>１</B>，{a}で、
その中心間距離は{d}としてあります。
点<B>Ｄ</B>と<B>Ａ</B>を一致するように
{a}と{d}の値を動かしてみよう。

<RED>一致したら、点<B>Ａ</B>を動かしてみよう</RED>


<BLACK>ポンスレーの定理
２円Ｐ，Ｑがあり、それらの
半径を{R}，{r}とするとき、
２円の中心間距離{d}が、
{d=sqrt(R^2-2R r)}
ならば、円Ｐに内接し円Ｑに
外接する三角形は、
無数に存在する。</BLACK>
#//初期化
# a:=0.45
# d:=0.35
# @:=Pi/15
# draw
#---
# //中心間距離を自動で計算
# d:=sqrt(1-2a)
# draw
#---
# //点Aを１周させる
# for @ :=Pi/15 to 2Pi+Pi/15 step Pi/30
#   wait(10)
# draw
# next
#---




----------
11
4 27 1
4 181 1
14 19 0
4 26 1
4 26 1
4 26 1
4 26 1
4 26 1
4 26 0
5 31 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
----------