[Ishikawa]

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

(defun C:coords () (setq m (getint "Введите масштаб:"))
(setq l (getdist "Введите длину полупораболы L <Cancel>: "))
(setq f (getdist "Введите расстояние между точками перегиба канатов f <Cancel>: "))
;(setq x nil)
;(setq y nil)
(setq n (getint "Введите количество участков на которые необходимо разбить параболу: "))

(repeat n
(setq x1 (append x (list x)))
(setq x (+ x (* 0.1 l)))
(setq y (append y (list y)))

(setq y (* (/ (* 4 f) (* l l )) (nth n x1) (- l (nth n x1)))
(print x1)
)


;(setq x1 (rtos x))
;(setq y1 (rtos y))
;(print x1)(print y1)



)

)


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

[Олег (jr.)]

Если я правильно понял...

Код:

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

(defun C:par (/ f l m n osm pts tmp x y)
(setq osm (getvar "osmode"))
  (setvar "osmode" 0)
(setq m (getint "Введите масштаб <Cancel>:")) 
(setq l (getdist "Введите длину полупораболы L : ")) 
(setq f (getdist "Введите расстояние между точками перегиба канатов f : "))
(setq n (getint "Введите количество участков на которые необходимо разбить параболу: "))
(setq x 0 y 0)
  
(repeat n
(setq x (* m (+ x (* 0.1 l))))
(setq y (* m (/ (* 4 f) (* l l )) x (1-  x)))
(setq tmp (list x y))
(setq pts (cons tmp pts))
)
(command "._pline")
(mapcar 'command (reverse pts))
(command "")
(command "._zoom" "_O" "_L" "")
(setvar "osmode" osm)  
(princ)
)

~'J'~

[Ishikawa]

Спасибо, буду изучать.