TXM800
LetΔbeabasicrationaltriangle.ThenXisarationalpointofΔiffisalsoarationalpointofΔ.Inotherwords:(XΔ)⟺(Δ)
X
X
NOTE:IntheRP-TheoryiscalledtheisogonalconjugateofthepointX.Atrianglewith3rationalsidesiscalledabasicrationaltriangle
X
EXAMPLE
In[]:=
x
1
2
(1+x)
2
x
2
(-1+x+y+x y)
2
(+x y (1+y)+ (1+y+))
2
y
2
x
2
y
2
x
2
y
2
x
2
(1+y)
y
1
x
2
x (-1+x (-1+y)-y) (1+y) (1+) (+ +x y (1+2 y))
2
(1+x)
3
(-1+x+y+x y)
2
(+x y (1+y)+ (1+y+))
2
y
2
x
2
y
2
x
2
y
2
x
2
(1+y)
1+
2
x
y
2
2 x (1+y) (x+y) (-1+x y) (1+) (+ +x y (1+2 y))
2
(1+x)
2
(-1+x+y+x y)
2
(+x y (1+y)+ (1+y+))
2
y
2
x
2
y
2
x
2
y
2
x
2
(1+y)
1+
2
x
x
3
y
3
x
4
3
(1+x)
2
(x+y)
2
(-1+x+y+x y)
2
(+x y (1+y)+ (1+y+))
2
y
2
x
2
y
2
x
2
y
2
x
2
(1+y)
(1+) (+ +x y (1+2 y))
2
x
2
y
2
x
2
(1+y)
y
4
2
(1+x)
2
(-1+x+y+x y)
2
(+x y (1+y)+ (1+y+))
2
y
2
x
2
y
x
5
2
x
2
y
2
x
2
y
2
y
2
x
2
y
2
x
2
(1+y)
y
5
2
x
2
y
2
y
2
y
2
x
2
y
2
x
2
y
2
x
2
(1+y)
x
n
y
n
NOTE:{,}and{,}aretwoisogonalconjugatepoints
x
4
y
4
x
5
y
5
In[]:=
Manipulate[Module[{pp,edges},pp=Chop[points/.{x->a,y->b}];edges=Subsets[pp,{2}];Graphics[{Tooltip[Line[#],EuclideanDistance@@#]&/@edges,Tooltip[{Red,Point[#]},#]&/@pp}]],{{a,1},-10,10,1/6,Appearance->"Labeled"},{{b,2},-10,10,1/7,Appearance->"Labeled"},SaveDefinitionsTrue]
Out[]=

