[slivonn]

Моя цель отрисовать синусувую антенну через алгоритм, написанный на lisp.

На выходе такая ошибка ; error: bad argument type: numberp: nil

Прошу помочь разобраться где в коде ошибка.

(defun c:slivonn ()
(prompt "Routine to draw the basic sinuous curve ") (terpri)
(setq start (getpoint "Pick the start point ")) (terpri)
(setq r1 (getreal "Enter the minimum radius ")) (terpri)
(setq r2 (getreal "Enter the maximum radius ")) (terpri)
(setq s (getreal "Enter the incremental step ")) (terpri)
(setq tau (getreal "Enter the value of tau ")) (terpri)
(while (< r1 (- r2 s))
(setq f1 (* (/ pi 4) (sin (* pi (/ (log (/ r1 r2)) (log tau))))))
(setq x1 (+ (* r1 (cos f1)) (car start)))
(setq y1 (+ (* r1 (sin f1)) (cadr start)))
(setq r1 (+ r1 s))
(setq f2 (* (/ pi 4) (sin (* pi (/ (log (/ r 1 r2)) (log tau))))))
(setq x2 (+ (* r1 (cos f2)) (car start)))
(setq y2 (+ (* r1 (sin f2)) (cadr start)))
(command "line"
(setq p (list x1 y1))
(setq p (list x2 y2))
""
)
)
)

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

Загони в VLIDE, поставь точку останова и смотри, какие значения в каких переменных

[Сергей812]

Или обратитесь к автору программы Donald G. Stone из National Radio Astronomy Observatory)

----- добавлено через ~22 мин. -----
кстати, из первоисточника код запустился без проблем, только надо локализовать команду "_line". Ну и переменные локальными сделать желательно.

[slivonn]

Благодарю за ответы!
Сергей812, код у меня тоже запустился, но с ошибкой. Как вы нашли первоисточник уж не спрашиваю))
Правильно ли понимаю, что локализовать line означает изменить её имя на _line? Акад при обращении командой _line запускает штатную.
Что означает сделать локальными переменные?

Кулик Алексей aka kpblc попробую, спасибо.

[Сергей812]

у меня без ошибок выполнилось после локализации line, но видимо неправильные параметры ввел - поскольку ничего не нарисовало)

----- добавлено через ~16 мин. -----

Сообщение от slivonn Что означает сделать локальными переменные?

(defun c:%Имя команды%( /start r1 r2 и т.д.)

[koMon]

Сообщение от slivonn где в коде ошибка

r 1 -> r1

[Сергей812]

да и конструкции

Сообщение от slivonn (setq p (list x1 y1))

явно излишние

Код:

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

 (command "_line" (list x1 y1) (list x2 y2) "")

[name02]

Еще хочу отметить, что построение кривой начинается не с указанной пользователем точки:

Код:

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

 (while (< r1 (- r2 s))
   (setq f1 (* (/ pi 4) (sin (* pi (/ (log (/ r1 r2)) (log tau))))))
   ;; при определении координат даже на первой итерации идет смещение
   (setq x1 (+ (* r1 (cos f1)) (car start)))
   (setq y1 (+ (* r1 (sin f1)) (cadr start)))
   ...
)

Может это и не важно...

[slivonn]

Благодарю всех откликнувшихся!
Помогло сообщение koMon, дело было в синтаксической ошибке.
У меня отрисовывает. У кого нет, возможно из за значения тау, оно должно быть менее 1.
Как отблагодарить?