Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [AutoLisp] Нужно нарисовать спираль окружностями 
V
    Опции темы
Shadowlord
Дата 28.11.2009, 09:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 5
Задача стоит такая: нарисовать спираль из соприкасающихся окружностей одного радиуса. Входные данные N-количество окружностей , координаты центра первой. За штриховать каждую окружность меняя угол в соответствие с поворотом спирали 

Основная проблема с расчетом координат центра окружности, у меня пока вышло только нарисовать окружность окружностями 
Код

(defun lab nil
    (command "limits" '(0 0) '(320 200))
    (command "zoom" "a")
    (setq n (getint "Input N: "))
    (setq centr '(160 100))
    (setq ang (/ pi 12))
    (setq r 10)
    (command "circle" centr r)
    (setq i 1)
    (setq p centr)
    (while (< i n)
        (setq p (polar p (* ang i -1)  (* 2 r)))
        (command "circle" p r)
        (setq i (+ i 1))
            )
    (command "redraw")
)


Это сообщение отредактировал(а) Shadowlord - 28.11.2009, 13:28
PM MAIL   Вверх
VH_
Дата 28.11.2009, 12:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 10
Всего: 11
Почему в заголовке написано "Нужно нарисовать спираль окружностями", а в тексте - "...нарисовать окружность..." и тут же "...с поворотом спирали..." Что именно рисовать? Можеть быть, Вы предоставите хоть «от руки нарисованный» рисунок того, что должно быть в результате.
PM MAIL   Вверх
Shadowlord
Дата 28.11.2009, 13:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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

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

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


 




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


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

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