Целочисленные ортогональные треугольники в металлоконструкциях

[Vitalij Lysanov]

В диагональных связях с отверстиями могут быть дробные номинальные размеры между центрами отверстий.
А могут и не быть.

Целочисленными треугольниками занимаются давно.
Удобно треугольники представить в Excel, и еще добавить возможные сочетания ортогональных сторон с учетом допуска. Сейчас в программе стоит допуск 0.1
If Sq - Int(Sq) < 0.1 Then

Программа на VBA формирует таблицу.
Например одна сторона треугольника 10.
Вторую сторону можем взять 15,
Диагональ будет 18.0278







Код программы:

Код Выделить Развернуть

    Sub cel_dia()
'
' cel_dia Ìàêðîñ
'

'
   
   
    For j = 1 To 3000
       Cells(1, j) = j
    Next j
   
    For i = 2 To 3000
        For j = i To 3000
       
            Sq = Sqr(i * i + j * j)
           
            If Sq - Int(Sq) < 0.1 Then
                   Cells(i, j) = Sq
           
                   If Sq - Int(Sq) = 0 Then
                        Cells(i, j).Select
                        Selection.Style = "Акцент5"
                   End If
           
            End If
       
        Next j
    Next i
   
Cells(1, 1).Select
Cells(1, 1).Activate

End Sub

   


Файл Excel с таблицей размером 3000*3000 и программой
https://drive.google.com/file/d/1-YarBNjEKno2dwsPQbgMiAf1rBLI4oem/view?usp=sharing

Файл Excel с таблицей размером 30*30  и программой
В приложении


Литература:

http://vlad-utenkov.narod.ru/personal2/informat/km/pif_tr/pif_tr.htm

http://ru.math.wikia.com/wiki/%D0%9F%D0%B8%D1%84%D0%B0%D0%B3%D0%BE%D1%80%D0%BE%D0%B2%D1%8B_%D1%87%D0%B8%D1%81%D0%BB%D0%B0