• Михаил
  • Восстановленный участник
  • На форуме с 9 марта 2008г.
  • Сообщений: 55
  • Спасибо: 0

Тема: Центр замкнутой выпуклой полилинии.

Доброго времени суток!
Как найти центр, замкнутой, выпуклой полилинии?
на vba

  • Откуда: Украина / Киев
  • На форуме с 15 апреля 2005г.
  • Сообщений: 8,666
  • Спасибо: 158

Re: Центр замкнутой выпуклой полилинии.

Без дуговых сегментов: http://algolist.manual.ru/maths/geom/po … r_mass.php
А с дуговыми проще превратить в REGION и получить его Centroid.

  • Михаил
  • Восстановленный участник
  • На форуме с 9 марта 2008г.
  • Сообщений: 55
  • Спасибо: 0

Re: Центр замкнутой выпуклой полилинии.

Спасибо большое, мне подошел самый простой случай, на основе которогя я написал функцию...

Function getMassCentr(Points As Variant, Pcount As Long) As Variant
' находим центр тяжести фигуры, Points - массив точек (0..Pcount-1)
' 0-x, 1-y, 2-z ... n-x,n+1 -y, n+2 - z
' на выходе координаты центра тяжести
    Dim i As Long
    Dim xxc As Double
    Dim yyc As Double
    Dim zzc As Double
    Dim resPoint(2) As Double
    For i = 0 To Pcount - 1
        xxc = Points(i * 3) + xxc
        yyc = Points((i + 1) * 3) + yyc
        zzc = Points((i + 2) * 3) + zzc
    Next i
    resPoint(0) = xxc / Pcount
    resPoint(1) = yyc / Pcount
    resPoint(2) = zzc / Pcount
    getMassCentr = resPoint
End Function