Grapes/win 2.8
[Don't Edit] 3.14
----------
BGstretchOn BGfile
1
----------
UserFunction
3 1 2 3 1 1 1
s-x
p-f(x)+Sqrt(p^2+f(x)^2)
yz/2x
----------
y = f(x)
0
----------
0 = f(x,y)
0
----------
Point
22 4 5 6 12 13 14 18 1 2 3 9 10 11 19 20 8 0 0 15 16 17 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
P
2 1 2
P
(intr(A,I,E,F)).x
(intr(A,I,E,F)).y
h(g(a),g(b),g(c))
t 0.1
0 0
0 0 16777215 1 0 0 1 1 0 0
1 0 2 0
Q
2 2 2
Q
(intr(B,I,T,U)).x
(intr(B,I,T,U)).y
h(g(b),g(c),g(a))
t 0.1
0 0
0 0 16777215 1 0 0 1 1 0 0
1 0 2 0
R
2 4 2
R
(intr(C,I,M,N)).x
(intr(C,I,M,N)).y
h(g(c),g(a),g(b))
t 0.1
0 0
0 0 16777215 1 0 0 1 1 0 0
1 0 2 0
S
1 0 2
S
(rot(C,B,Pi/2)).x
(rot(C,B,Pi/2)).y
0
t 0.1
0 0
255 0 16777215 0 0 0 1 1 0 0
3 0 2 0
T
1 0 2
T
(B+Q.r*BS/[BS]).x
(B+Q.r*BS/[BS]).y
0
t 0.1
0 0
255 0 16777215 0 0 0 1 1 0 0
3 0 2 0
U
1 0 2
U
(rot(S,T,-Pi/2)).x
(rot(S,T,-Pi/2)).y
0
t 0.1
0 0
255 0 16777215 0 0 0 1 1 0 0
3 0 2 0
V
2 0 2
V
((1-k)I+kP).x
((1-k)I+kP).y
(1-k)I.r+kP.r
t 0.1
0 0
48896 48896 48896 0 0 0 4 1 0 0
1 0 3 0
A
1 3 2
A
6.23995468944326
7.57997734472163
0
t 0.1
0 0
16711680 0 16777215 1 1 1 1 1 0 0
2 0 2 0
B
1 2 2
B
-5.60
-3.08
0
t 0.1
0 0
16711680 0 16777215 1 1 1 1 1 0 0
2 0 2 0
C
1 4 2
C
13.96
-3.12
0
t 0.1
0 0
16711680 0 16777215 1 1 1 1 1 0 0
2 0 2 0
D
1 0 2
D
(rot(B,A,Pi/2)).x
(rot(B,A,Pi/2)).y
0
t 0.1
0 0
255 0 16777215 0 0 0 1 1 0 0
3 0 2 0
E
1 0 2
E
(A+P.r*AD/[AD]).x
(A+P.r*AD/[AD]).y
0
t 0.1
0 0
255 0 16777215 0 0 0 1 1 0 0
3 0 2 0
F
1 0 2
F
(rot(D,E,-Pi/2)).x
(rot(D,E,-Pi/2)).y
0
t 0.1
0 0
255 0 16777215 0 0 0 1 1 0 0
3 0 2 0
G
2 0 2
G
((1-k)I+kQ).x
((1-k)I+kQ).y
(1-k)I.r+kQ.r
t 0.1
0 0
48896 48896 48896 0 0 0 4 1 0 0
1 0 3 0
H
2 0 2
H
((1-k)I+kR).x
((1-k)I+kR).y
(1-k)I.r+kR.r
t 0.1
0 0
48896 48896 48896 0 0 0 4 1 0 0
1 0 3 0
I
2 4 2
I
(Icentr(A,B,C)).x
(Icentr(A,B,C)).y
Irad(A,B,C)
t 0.1
0 0
255 255 16777215 1 0 0 1 1 0 0
1 0 2 0
J
0 0 1
K
0 0 1
L
1 0 2
L
(rot(A,C,Pi/2)).x
(rot(A,C,Pi/2)).y
0
t 0.1
0 0
255 0 16777215 0 0 0 1 1 0 0
3 0 2 0
M
1 0 2
M
(C+R.r*CL/[CL]).x
(C+R.r*CL/[CL]).y
0
t 0.1
0 0
255 0 16777215 0 0 0 1 1 0 0
3 0 2 0
N
1 0 2
N
(rot(L,M,-Pi/2)).x
(rot(L,M,-Pi/2)).y
0
t 0.1
0 0
255 0 16777215 0 0 0 1 1 0 0
3 0 2 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
3
1 1 1 16711680 16777215 2 0 1 0 0
0 {a}
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 16711680 16777215 2 0 1 0 0
0 {b}
10 8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 16711680 16777215 2 0 1 0 0
0 {c}
8 9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
----------
paramater
14
19.5600408997527 0
1 1 0.1 0 1
13.194264 0
1 1 0.1 0 2
15.931718 0
1 1 0.1 0 3
6 0
1 1 0.1 1 0
6.2831831 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
4.2924589 0
1 1 0.1 0 4
6.6655225 0
1 1 0.1 1 0
24.343012 0
1 1 0.1 0 5
1 0
1 1 0.1 1 0
6.24 0
1 1 0.1 1 0
7.58 0
1 1 0.1 1 0
6.2831815 0
1 1 0.1 1 0
1 0
1 1 0.05 1 6
1 1 112
----------
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
7 1 1 7
High,Low
15.2399825717629 -7.05270035506635
----------
ScaleY
Vlow,VHigh,label
0 914 y
AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible
0 0 0 0 0
NUmber,Base,Linterval,NumbeerR
7 1 1 7
High,Low
16.9446282141079 -5.25202821410791
----------
ScaleS
SquareQ AreaRectify PsMesh AxisWidth FontSize AxisOn letterCenterShowPOsition ShowEquation AxisType PolorNum Areafixed
1 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 0 0 33 0 0 0 0 0 0 1 0
1
----------
PetaMEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 16711680 0 12 0 0 0
59
三角形ABCが与えられたとき、
その辺に2つずつ内接し、
互いに外接する3円を求めよ。
これは、「マルファティの問題」です。
「安島-マルファテイの問題の逆」
3点A,B,Cはドラッグ可
#HideScript//CAL
#on A,B,C change
#a:=[BC]
#b:=[CA]
#c:=[AB]
#s:=(a+b+c)/2
#p:=Sqrt(s(s-a)(s-b)(s-c))/s
#//<変形(点Aの移動)>
#draw
#u:=A.x
#v:=A.y
#for @:=0 to 2Pi step Pi/72
#A.x:=u+6sin(2@)
#A.y:=v+6sin@
#Call(CAL)
#draw
#next
#//【内接円Iと3円P,Q,R】
#ShowObj(V)
#wait(500)
#for m:=0 to Pi step Pi/72
#k:=(cosm+1)/2
#draw
#next d
#HideObj(V)
#ShowObj(G)
#for m:=Pi to 3Pi step Pi/72
#k:=(cosm+1)/2
#draw
#next d
#HideObj(G)
#ShowObj(H)
#for m:=Pi to 3Pi step Pi/72
#k:=(cosm+1)/2
#draw
#next d
#HideObj(H)
#ShowObj(V)
#for m:=Pi to 2Pi step Pi/72
#k:=(cosm+1)/2
#draw
#next d
#wait(2000)
#HideObj(V,G,H)
#//(円の表示SW)
#InvShowObj(V,G,H)
----------
11
4 27 1
4 109 1
4 167 1
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
----------