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

Чрезвычайно влюбленная в математику Анна заинтересовалась тем фактом, что если отрезки m, n, k представляют собой пифагоровы числа, то только они дают целочисленное значение угла икс в градусах. Причем дают значение х=150 град. Попросила сделать таблицу для четных значений углов B в пределах от 42 до 68 град. при m=5; n=12 и k=13. Также попросила дать распечатку программы и выполнить чертёж для В = 60 град.
Просьбу эту с удовольствием выполняю.
Текст программы:

 rem РЕШЕНИЕ ЗАДАЧИ  ЗЕМСКОГО
m=5:n=12:k=13
for B0=42 to 68 step 2
s=10^10:z1=0.1
B=B0/180*pi
c0=k
for i=1 to 1000000
c=c0+(ran()-0.5)*z1
b=2*c*sin(B/2)
xM=(b^2+m^2-n^2)/(2*b)
yM=sqrt(m^2-xM^2)
m1=sqrt(xM^2+yM^2)
n1=sqrt(yM^2+(b-xM)^2)
k1=sqrt((c*cos(B/2)-yM)^2+(b/2-xM)^2)
f=abs(m-m1)+abs(n-n1)+abs(k-k1)
if f<s then
mk=m1:nk=n1:kk=k1:ck=c:bk=b:sk=s
xMk=xM:yMk=yM
s=f:c0=c
fi
if s<1/10^5 then z1=1/10^5:fi
if s<1/10^8 then z1=1/10^8:fi
next i
x=180/pi*acos((mk^2+nk^2-bk^2)/(2*mk*nk))
y=180/pi*acos((mk^2+kk^2-ck^2)/(2*mk*kk))
z=360-x-y
print B0,xMk,yMk,ck,bk,x,y,z
next B0

14 октября 2022 г.