Еще семь равновеликих треугольников. 3

Ну, теперь полный порядок! Составлена компактная и полная программа с расчетами и построением наглядного рисунка. Ее текст:

a=8:b=9:c=7:xA=0:yA=0
xB=(b^2+c^2-a^2)/(2*b):yB=sqrt(c^2-xB^2)
xC=b:yC=0
xA1=(2*xC+xB)/7:yA1=yB/7
xB1=1/7*(4*xB+xC):yB1=4/7*yB
xC1=2/7*(xB+2*xC):yC1=2/7*yB
print xA1,yA1:print xB1,yB1:print xC1,yC1
open window 600,600
d=50:k=400/b
line d,600-d to 2*d+k*b,600-d
line d,600-d to d,600-d-k*yB
for i=-1 to 2
line d,600-d+i to d+k*b,600-d+i
line d+i,600-d to d+k*xB+i,600-d-k*yB
line d+k*xB+i,600-d-k*yB to d+k*xC+i,600-d
next i
line d,600-d to d+k*xC1,600-d-k*yC1
line d,600-d to d+k*xB1,600-d-k*yB1
line d+k*xB,600-d-k*yB to d+k*xC1,600-d-k*yC1
line d+k*xB,600-d-k*yB to d+k*xA1,600-d-k*yA1
line d+k*xC,600-d-k*yC to d+k*xB1,600-d-k*yB1
line d+k*xC,600-d-k*yC to d+k*xA1,600-d-k*yA1
for i=-1 to 2
line d+i+k*xA1,600-d-k*yA1 to d+i+k*xB1,600-d-k*yB1
line d+i+k*xC1,600-d-k*yC1 to d+i+k*xB1,600-d-k*yB1
line d+k*xC1,600-d-k*yC1-i to d+i+k*xA1,600-d-k*yA1-i
next i
print
print xA,yA:print xB,yB:print xC,yC

Тут все идеально четко и очень красиво!

4 октября 2021 г.