Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите, пожалуйста, исправить программку!) 
:(
    Опции темы
juli777
Дата 22.12.2012, 11:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 22.12.2012

Репутация: нет
Всего: нет
задание: К данному отрезку восстановить перпендикуляр в его середине.

мой вариант решения: 
(setq P1 (getpoint))
(setq P2 (getpoint))

(setq D (/ (distance P1 P2) 2))
(setq P3 (list (/ (+ (nth 0 P1) (nth 0 P2) ) 2) (/ (+ (nth 1 P1) (nth 1 P2)) 2) ))
(command "_-line" P3 (polar P3 (/ pi 2) "")
(command "_line" P1 P2 "")

Проблема:перпендикулял должен строиться, даже когда данная линия под углом(у меня это не получается...)
зарание, бесконечно благодарна!!!)
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума LISP
Void
  • Пожалуйста, создавайте темы с содержательными названиями.
  • Lisp — это целое семейство языков. Всегда указывайте в теме используемый диалект (Common Lisp, Scheme и т.д.).
  • Уважаемые учащиеся, здесь всегда рады помочь Вам, но не делать за Вас вашу работу. У вас гораздо больше шансов получить помощь, если Вы приложите усилия и поделитесь с нами проблемами и результатами. В противном случае добро пожаловать в раздел Центр Помощи.
  • Получив ответ на интересующий Вас вопрос, не забудьте пометить его как решённый.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Void.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | LISP | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0485 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.