Теорема Стюарта в целых числах
На рисунке показаны: общепринятая геометрия Теоремы и шесть различных формул.
Благодаря им, была с легкостью составлена программа расчета на языке Yabasic:
n=4
for x=1 to n
for y=1 to n
for b=1 to 2*n
for c=1 to 2*n
a=x+y
if (b^2*x+c^2*y)/(x+y)>x*y then
if (p^2*a-b^2*x)/(a-x)+a*x>0 then
if (c^2-a*x)<>0 then
if (b^2-a*y)<>0 then
if b+c>a then
if a+b>c then
if a+c>b then
p=sqrt((b^2*x+c^2*y)/(x+y)-x*y)
if p=int(p) then
c1=sqrt((p^2*a-b^2*x)/(a-x)+a*x)
b1=sqrt(a/x*(p^2-c^2)+a^2+c^2-x*a)
x1=(p^2*a-c^2*y)/(b^2-a*y)
y1=(p^2*a-b^2*x)/(c^2-a*x)
a1=(b^2*x+c^2*y)/(p^2+x*y)
s=s+1
print s,x,y,a,b,c,p
fi:fi:fi:fi:fi:fi:fi:fi
next c
next b
next y
next x
В результате получим дюжину целочисленных решений:
N.... x.. y.. a.. b.. c.. p
1.... 1.. 4.. 5.. 6.. 4.. 4
2.... 2.. 3.. 5.. 8.. 7.. 7
3.... 2.. 4.. 6.. 7.. 5.. 5
4.... 3.. 2.. 5.. 7.. 8.. 7
5.... 3.. 3.. 6.. 5.. 5.. 4
6.... 3.. 4.. 7.. 4.. 4.. 2
7.... 3.. 4.. 7.. 8.. 6.. 6
8.... 4.. 1.. 5.. 4.. 6.. 4
9.... 4.. 2.. 6.. 5.. 7.. 5
10.. 4.. 3.. 7.. 4.. 4.. 2
11.. 4.. 3.. 7.. 6.. 8.. 6
12.. 4.. 4.. 8.. 5.. 5.. 3
На рисунке как раз изображен вариант № 11.
8 февраля 2021 г.
Свидетельство о публикации №221020801066