Мозговой штурм Одиозного Деда Ч. 18

Еще одна просьба поступила - дать прогу по распечатке лишь примитивных троек чисел m, n, k для варианта равностороннего треугольника и целочисленного угла y = 120 град.
Это было легко сделать, добавив простенькую подпрограмму. Текст проги и пример расчета - в иллюстрации. Таблица стала намного компактнее. Её можно значительно расширить, если в выделенной строке проги вместо числа 81 напечатать значительно большее нечетное число. Так удобней стало, поскольку исключены лишние кратные варианты. Они отвлекают от важных аналитических дел!
Повторяю текст программы, чтобы ее не набивать, а скопировать:

dim m(200),n(200),k(200)
for n=3 to 81 step 2
w=0
for k=n+1 to 6*n/5
m = (k - sqrt(4*n^2-3*k^2))/2
if m=int(m) then
s=s+1
m(s)=m:n(s)=n:k(s)=k
a()
if w<>1 then
print m(s),n(s),k(s),k-m,n,k
fi:fi
next k
next n
sub a()
for t=1 to s-1
for i=3 to 101 step 2
if n(s)=n(t)*i then w=1
fi
next i
next t
end sub

24 октября 2022 г.