[students]

помогите написать программу.задание:
построение треугольника по 3-м точкам.
В центре построить окружность.
Предусмотреть ввод пользователем вершин и радиуса окружности

[Profan]

1. Под "центром" понимается центр тяжести?
2. Окружность именно произвольного радиуса или вписанная (описанная)?

[gomer]

Стучись, помогу недорого

[students]

нарисовать треугольник, найти центр треугольника, и этот центр треугольника и будет центр круга.Радиус произвольный ,но чтобы был внутри треугольника.Отпраляю рисунок

[hwd]

Сообщение от students помогите написать

так ты людям конкретные вопросы задавай - где и в чём у тебя затык. А то это больше смахивает на "напишите за меня", хотя судя по всему так оно по факту и подразумевается топикстартером...
Offtop: Самое печальное, что за этого лодыря тут действительно напишут... На др. форуме пишут по др. дисциплине.... А в итоге ему дадут диплом специалиста...

[students]

Я пробовал другой вариант.вставил листинг, выдает ошибку.тут нашел другой листинг - без ошибок но AutoCadе не открыл.Заморочка какая-то
Хотелось бы свой сделать.

[Кулик Алексей aka kpblc]

Приведи код, напиши, в чем проблема и тогда можно будет уже предметно говорить.

[E-degtyarev]

Код:

[Выделить все]

 (defun c:test (/ pt1 pt2 pt3 ds1 an1 ds2 an2 pt4 pt5 cen)
  (setq	pt1 (getpoint "\nПервая точка")
	pt2 (getpoint pt1 "\nВторая точка")
	pt3 (getpoint pt1 "\nТретья точка")
	ds1 (/ (distance pt1 pt2) 2)
	an1 (angle pt1 pt2)
	ds2 (/ (distance pt1 pt3) 2)
	an2 (angle pt1 pt3)
	pt4 (polar pt1 an1 ds1)
	pt5 (polar pt1 an2 ds2)
	cen (inters pt3 pt4 pt2 pt5)
  ) 
  (vl-cmdf "_pline" "_non" pt1 "_non" pt2 "_non" pt3 "_non" pt1 "")
  (vl-cmdf "_circle" "_non" cen pause)
) 

Вот простенький пример. Может сгодится?

Если покомпактнее, то так:

Код:

[Выделить все]

 (defun c:test (/ pt1 pt2 pt3 cen)
  (setq	pt1 (getpoint "\nПервая точка")
	pt2 (getpoint pt1 "\nВторая точка")
	pt3 (getpoint pt1 "\nТретья точка")
	cen (inters pt3
		    (polar pt1 (angle pt1 pt2) (/ (distance pt1 pt2) 2))
		    pt2
		    (polar pt1 (angle pt1 pt3) (/ (distance pt1 pt3) 2))
	    ) 
  ) 
  (vl-cmdf "_pline" "_non" pt1 "_non" pt2 "_non" pt3 "_non" pt1 "")
  (vl-cmdf "_circle" "_non" cen pause)
) 

[void2005]

ваще класс!!! в каде 2008 англицком работает

[Profan]

Блин, ну на хрена здесь это форматирование кода? Тормозит загрузку страницы страшно.

[Лиспер]

Profan, провайдера смени (или браузер настрой). На USB-модеме тормозов не замечено.

[students]

У меня AutoCad 2006\\скопировал код в Lisp\ в панели нажал "check edit window"\открылось окно
<Build Output> прописала ошибку ;error: bad variable name in SETQ: 3
Как ее устранить?

[lastloch]

У меня тоже AutoCAD2006 - и никаких ошибок. Все работает нормально.

[students]

Если я делаю тоже что и ты в чем тогда проблема?А как ты делаешь?

[gomer]

Сообщение от E-degtyarev Вот простенький пример.

Это к посту #1, а к посту #4?

[E-degtyarev]

Код:

[Выделить все]

 (defun c:test (/ pt1 pt2 pt3 pt4 pt5 pt6 cen rad)
  (setq	pt1 (getpoint "\nПервая точка")
	pt2 (getpoint pt1 "\nВторая точка")
	pt3 (getpoint pt1 "\nТретья точка")
	pt4 (polar pt1 (angle pt1 pt2) (/ (distance pt1 pt2) 2))
	pt5 (polar pt1 (angle pt1 pt3) (/ (distance pt1 pt3) 2))
        pt6 (polar pt2 (angle pt2 pt3) (/ (distance pt2 pt3) 2))
	cen (inters pt3 pt4 pt2 pt5)
	rad (min (/ (distance pt1 pt2) 4)
		     (/ (distance pt1 pt3) 4)
		     (/ (distance pt2 pt3) 4)
                     (/ (distance cen pt4) 2)
		     (/ (distance cen pt5) 2)
		     (/ (distance cen pt6) 2)
	    ) 
  ) 
  (vl-cmdf "_pline" "_non" pt1 "_non" pt2 "_non" pt3 "_non" pt1 "")
  (vl-cmdf "_circle" "_non" cen rad)
) 

Ежели к #4, можно этак, хотя с точки зрения науки геометрии - очень некрасивый вариант. Не всегда окружность вписывается в теугольник.
Gomer, я уверен, ты можешь предложить более изящное решение.

[gomer]

Сообщение от E-degtyarev уверен, ты можешь предложить более изящное решение.

могу, но чет я злой сегодня...
не хочу потакать дремучей студенческой лени, принципиально и бескорыстно...
Всем остальным заинтересовавшимся, дабы не быть голословным, вариант, может и не достаточно изящный, но вроде как рабочий...

Код:

[Выделить все]

 ((lambda (sp / p0 p1 p2 ln dp md l1 l2 l3 mc)
   (if
     (and
       (setq p0 (getpoint "\nУкажите первую точку треугольника: "))
       (setq p1 (getpoint p0 "\nУкажите вторую точку треугольника: "))
       (setq p2 (getpoint p0 "\nУкажите третью точку треугольника: "))
     )
      (progn
	(setq
	  dummy	(vl-load-com)
	  ln	(lambda	(p1 p2)
		  (vla-AddLine
		    sp
		    (vlax-3d-point p1)
		    (vlax-3d-point p2)
		  )
		)
	  dp	(lambda	(p1 p2 df)
		  (polar p1 (angle p1 p2) (* df (distance p1 p2)))
		)
	  md	(lambda	(ln)
		  (distance mc (vlax-curve-getClosestPointTo ln mc))
		)
	  l1	(ln p0 p1)
	  l2	(ln p1 p2)
	  l3	(ln p2 p0)
	  mc	(dp p0 (dp p1 p2 0.5) (/ 2.0 3))
	)
	(vla-addCircle
	  sp
	  (vlax-3d-point mc)
	  (* 0.75 (min (md l1) (md l2) (md l3)))
	)
      )
   )
 )
  (vla-get-Block
    (vla-get-ActiveLayout
      (vla-get-ActiveDocument (vlax-get-acad-object))
    )
  )
)

[E-degtyarev]

Gomer. Крутизна, dummy имеет lambd-у, уважуха, преклоняю колени.

[atollon]

Чтоб окружность вписалась, надо круг строить по трем касательным.

После ввода точек надо определить середины сторон, которые использовать как выбор объектов-касательных

[gomer]

можно по привязкам, но лучше математически вычислить центр и радиус... хм, координаты центра вписанной в треугольник окружности не нашел нигде

[Елпанов Евгений]

Сообщение от gomer можно по привязкам, но лучше математически вычислить центр и радиус... хм, координаты центра вписанной в треугольник окружности не нашел нигде

поищи у меня, на сайте выкладывал вычисление центра и радиуса окружности по трем точкам...

[gomer]

Сообщение от Елпанов Евгений поищи у меня, на сайте выкладывал вычисление центра и радиуса окружности по трем точкам...

не нашел... видать стал стар и слеп... может дадите ссылочку ?

[Елпанов Евгений]

Сообщение от gomer может дадите ссылочку ?

Центр дуги, заданной тремя точками
Радиус дуги, заданной тремя точками
Центр и радиус дуги, заданной тремя точками

[gomer]

это не совсем то, насколько я понимаю... для описанной окружности в самый раз, а для вписанной? ведь известны только точки треугольника, а вписанная окружность через них не проходит...

[Li6-D]

Судя по рисунку автора темы под термином "центром треугольника" подразумевается не центр вписанной или описанной окружности, а центр тяжести треугольника (центроид).
В этом случае его проще всего найти с помощью выражения:

Код:

[Выделить все]

(setq pm (mapcar '(lambda (a b c) (/ (+ a b c) 3.)) p1 p2 p3))

А выражение для центра вписанной более интересно и у Елпанова Евгения его нет. Можно объявить конкурс на самый короткий лисп (известны вершины треугольника p1, p2, p3).

[E-degtyarev]

Сообщение от gomer можно по привязкам, но лучше математически вычислить центр и радиус... хм, координаты центра вписанной в треугольник окружности не нашел нигде

Из школьного курса геометрии известно, что центр вписанной в треугольник окружности лежит на пересечении биссектрис треугольника.
Хотя автора темы это, кажется, уже не интересует. Зачет он сдал.

[Li6-D]

Сообщение от E-degtyarev Из школьного курса геометрии известно, что центр вписанной в треугольник окружности лежит на пересечении биссектрис треугольника...

Из всех школьных теорем надо выбирать ту, которая легче программируется.

Код:

[Выделить все]

(defun C:test ( / cm p1 p2 p3 pl)
  ;;Нахождение центра вписанной окружности, задаваемой 3-мя точками
  (defun cm (pN mN / m+)
    (setq m+ (float (apply '+ mN)))
    (mapcar '(lambda (x) (/ (apply '+ (mapcar '* x mN)) m+)) (apply 'mapcar (cons 'list PN)))
  )
  (and
    (setq p1 (getpoint "\n1-я точка: "))
    (setq p2 (getpoint p1 "\n2-я точка: "))
    (setq p3 (getpoint p1 "\n3-я точка: "))
    (setq pl (cm (list p1 p2 p3) (mapcar 'distance (list p2 p3 p1) (list p3 p1 p2))))
    (command "_.PLINE" "_non" p1 "_non" p2 "_non" p3 "_close" "_.CIRCLE" "_non" pl "_per" pause)
  )
  (princ)
)

Кто скажет, что за теорема использована в этом коде ?

[gomer]

Сообщение от Li6-D Можно объявить конкурс на самый короткий лисп (известны вершины треугольника p1, p2, p3).

в общем не долго думая...

Код:

[Выделить все]

 (defun cm (p1 p2 p3 / a d1)
  (inters
    p1
    (polar p1 ((setq ma (lambda (x y z) (* 0.5 (+ (angle x y) (angle x z))))) p1 p2 p3) 1.0)
    p2
    (polar p2 (ma p2 p3 p1) 1.0)
    nil
  )
)

[Елпанов Евгений]

мои варианты кода можно посмотреть на болоте...

[gomer]

Сообщение от Елпанов Евгений что делает эта стрка?

это была не правильная строка
код поправил
хм, болот рулит как всегда..

[Li6-D]

Сообщение от Елпанов Евгений мои варианты кода можно посмотреть на болоте...

Да, на болоте все есть, включая расчет центра тяжести (барицентра) . А это был секрет моего кода (барицентр считает функция cm).
Немного геометрии: Если поместить в вершины треугольника точечные грузы, вес которых равен длине противоположной стороны,
то центр тяжести (барицентр) этой системы грузов будет совпадать с центром вписанной в треугольник окружности.
Теорему можно распространить и на пространство (вписанная в пирамиду сфера), при этом вес груза, помещаемого в вершину пирамиды, следует принять равным площади противолежащей вершине грани.

[Елпанов Евгений]

Сообщение от Li6-D Да, на болоте все есть, включая расчет центра тяжести (барицентра)

к вопросу о центре тяжести, можно так же глянуть коды у меня на сайте...
Если коротко:
Центроид (центр масс) области, внутри полилинии, имеющей дуговые сегменты.
Центр массы, расположенной вдоль контура полилинии, имеющей дуговые сегменты.
Средняя точка - центр массы, расположенной в вершинах полилинии равными частями
Центроид (центр масс) области, внутри многоугольника
Центр массы, расположенной вдоль контура полилинии, без дуговых сегментов.
Центр массы, средняя точка, пересечение медиан треугольника
Центроид (центр масс) области, внутри дугового сегмента полилинии.
Центроид (центр масс) области, расположенной вдоль контура дугового сегмента полилинии.