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 12 14 16 18 0 0 17 15 13 11 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 0 2
P
0
0
1
t 0.1
0 0
16777215 0 16777215 1 0 1 1 1 0 0
2 0 2 0
Q
2 0 2
Q
d
0
a
t 0.1
0 0
16777215 0 16777215 1 0 0 1 1 0 0
2 0 2 0
R
1 0 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 0 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 0 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
A
(roll(@)).x
(roll(@)).y
0
0
2Pi
@ 0.001
0 0
255 16777215 16777215 1 0 1 1 1 0 0
4 0 2 0
B
1 0 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
1 0 1 0
C
1 0 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
1 0 1 0
D
1 0 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
1 0 1 0
E
1 0 2
E
(intr(D,N,P,1)).x
(intr(D,N,P,1)).y
0
t 0.1
0 0
255 16711680 16777215 1 0 0 1 1 0 0
1 0 1 0
F
1 0 2
F
(intr(E,M,P,1)).x
(intr(E,M,P,1)).y
0
t 0.1
0 0
255 16711680 16777215 1 0 0 1 1 0 0
1 0 1 0
G
1 0 2
G
(intr(F,L,P,1)).x
(intr(F,L,P,1)).y
0
t 0.1
0 0
255 16711680 16777215 1 0 0 1 1 0 0
1 0 1 0
H
1 0 2
H
(intr(G,K,P,1)).x
(intr(G,K,P,1)).y
0
t 0.1
0 0
255 16711680 16777215 1 0 0 1 1 0 0
1 0 1 0
I
0 0 1
J
0 0 1
K
1 0 2
K
(Ptan(G,Q,-a)).x
(Ptan(G,Q,-a)).y
0
t 0.1
0 0
48896 16711680 16777215 1 0 0 1 1 0 0
2 0 1 0
L
1 0 2
L
(Ptan(F,Q,-a)).x
(Ptan(F,Q,-a)).y
0
t 0.1
0 0
48896 16711680 16777215 1 0 0 1 1 0 0
2 0 1 0
M
1 0 2
M
(Ptan(E,Q,-a)).x
(Ptan(E,Q,-a)).y
0
t 0.1
0 0
48896 16711680 16777215 1 0 0 1 1 0 0
2 0 1 0
N
1 0 2
N
(Ptan(D,Q,-a)).x
(Ptan(D,Q,-a)).y
0
t 0.1
0 0
48896 16711680 16777215 1 0 0 1 1 0 0
2 0 1 0
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
8
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 0 0 0
0 {d}
1 2 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
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 255 16777215 2 0 1 0 0
0
12 13 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
13 14 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
14 15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
----------
paramater
14
0.195 0
1 1 0.002 1 1
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
0.39 0
1 1 0.01 1 2
1 0
1 1 0.1 1 0
-2 0
1 1 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
6.5973443 0
1 1 0.15707963267949 1 3
1 0
1 1 0.1 1 0
1 1 80
----------
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
47
ポンスレーの定理
同一内接円を持つ多角形は、
無数に存在する。
三角形
{d=sqrt(R^2-2Rr)}
四角形
{d=sqrt(R^2+r^2-rsqrt(r^2+4R^2))}
五角形
・・・
点Aはドラッグ出来ます。
星形も同様?(予想?)
# //点Aを1周させる
# for @ :=Pi/10 to 2Pi+Pi/10 step Pi/15
# wait(10)
# draw
# next
#---
#//三角形 (aからdを決定する)
# d:=sqrt(1-2a)
# draw
#---
#//四角形 (aからdを決定する)
# d:=sqrt(1+a^2-a*sqrt(a^2+4))
# draw
#---
#//5つ星 (近似的にa,dを決める)
#a:=0.2306
#d:=0.543
#@:=Pi/15
# draw
#---
#//7つ星 (近似的にa,dを決める)
#a:=0.195
#d:=0.39
#@:=Pi/15
# draw
#---
#//7つ星(別版) (近似的にa,dを決める)
#a:=0.555
#d:=0.301
#@:=Pi/15
# draw
#---
----------
11
4 27 1
4 170 1
13 18 0
4 25 1
4 25 1
4 25 1
4 25 1
4 25 1
4 25 0
4 25 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
----------