| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP: центр масс фигуры по координатам

LISP: центр масс фигуры по координатам

Ответ
Поиск в этой теме
Непрочитано 13.03.2013, 18:03 #1
LISP: центр масс фигуры по координатам
WhiteShark
 
Регистрация: 30.03.2012
Сообщений: 101

Выкладываю свою версию. Может кто-то подправит чтоб покороче было

Код:
[Выделить все]
 (defun WS-XYCentroidByVertexes (ptlist / XYlist Area CX CY)
  (setq XYlist ptlist)
  (repeat (- (length (car ptlist)) 2) ;if more than 2 coordinates present
    (setq XYlist (mapcar '(lambda (c) (reverse (cdr (reverse c))))
             XYlist
         )
    )        
  )
  (setq Area 
    (/
      (apply '+
         (mapcar '(lambda (a b) (- (* (car a) (cadr b)) (* (cadr a) (car b)) ))
       XYlist
       (append (cdr XYlist) (list (car XYlist))) ;the same list shifted left
         )
      )
   2)
  )
  (setq CX  
    (/
      (apply '+
         (mapcar '(lambda (a b) (* (+ (car a) (car b)) (- (* (car a) (cadr b)) (* (cadr a) (car b))) ))
       XYlist
       (append (cdr XYlist) (list (car XYlist))) ;the same list shifted left
         )
      )
   6 Area)  
  )
  (setq CY  
    (/
      (apply '+
         (mapcar '(lambda (a b) (* (+ (cadr a) (cadr b)) (- (* (car a) (cadr b)) (* (cadr a) (car b))) ))
       XYlist
       (append (cdr XYlist) (list (car XYlist))) ;the same list shifted left
         )
      )
   6 Area)  
  )
  (list CX CY)
)

Последний раз редактировалось WhiteShark, 30.03.2013 в 00:50.
Просмотров: 3566
 
Непрочитано 13.01.2015, 22:14
#2
Елпанов Евгений

программист
 
Регистрация: 20.12.2005
Москва
Сообщений: 1,439
Отправить сообщение для Елпанов Евгений с помощью Skype™


еще несколько вариантов нахождения центроидов...
__________________
Чем гениальнее ваш план, тем меньше людей с ним будут согласны.
/Сунь Цзы/
Елпанов Евгений вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP: центр масс фигуры по координатам

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Центр тяжести фигуры scarface AutoCAD 5 20.12.2019 11:03
центр масс в solidworks Умид SolidWorks 2 29.07.2011 18:55
Центр масс здания solarissa Прочее. Архитектура и строительство 3 29.07.2006 12:47
Центр тяжести плоской фигуры , геом. центр контура ? bdfy AutoCAD 1 10.05.2005 17:21