[aquamarine]

Помогите пожалуйста вставить в программу spline. Нужно чтоб программа по кроме того, что находит точки также обединяла их splineом.

(defun okr()
(setq xmin(getreal "\n input xmin")
xmax(getreal "\n input xmax")
n(getint "\n input number of point")
r xmax
);end of setq

(setq x xmin)
(repeat n
(setq y(sqrt(abs(-(expt r 2)(expt x 2)))))
(setq t1 (list x y))
(command "point" t1)
(setq stepx(/(- xmax xmin) n))
(setq x (+ x stepx))

);end of repeat
);end of defun


Спасибо

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

Такое ощущение, что строится дуга просто. Может, тогда и строить именно ее?

[aquamarine]

Дело в том ,что уравнение очень сложное. В данном примере я его просто заменила приметивным.

[VVA]

Код:

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

(defun okr() 
(setq xmin(getreal "\n input xmin :") 
     xmax(getreal "\n input xmax :") 
n(getint "\n input number of point :") 
r xmax 
);end of setq 
(setq x xmin)
(command "_.Spline")  
(repeat n 
(setq y(sqrt(abs(-(expt r 2)(expt x 2))))) 
(setq t1 (list x y)) 
(command t1) 
(setq stepx(/(- xmax xmin) n)) 
(setq x (+ x stepx)) 
);end of repeat
  (command "" "" "")
);end of defun

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

Код:

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

(defun okr (/ xmin xmax n r x y t1 pt_lst)
  (setq xmin (getreal "\n input xmin : ")
        xmax (getreal "\n input xmax: ")
        n    (getint "\n input number of point : ")
        r    xmax
        x xmin)
  (repeat n
    (setq y (sqrt (abs (- (expt r 2) (expt x 2)))))
    (setq t1     (list x y)
          pt_lst (append pt_lst (list t1))
          ) ;_ end of setq
          ;(command "_.point" t1)
    (setq stepx (/ (- xmax xmin) n))
    (setq x (+ x stepx))
    ) ;_ end of repeat
  (foreach item
           (setq
             pt_lst (mapcar '(lambda (x) (list (car x) (cadr x) 0.)) pt_lst)
             ) ;_ end of setq
    (entmake (list '(0 . "POINT")
                   '(100 . "AcDbEntity")
                   '(100 . "AcDbPoint")
                   (cons 10 item)
                   ) ;_ end of list
             ) ;_ end of entmake
    ) ;_ end of foreach
  (entmake (append (list '(0 . "SPLINE")
                         '(100 . "AcDbEntity")
                         '(100 . "AcDbSpline")
                         '(70 . 8)
                         (cons 71 (length pt_lst))
                         (cons 73 (length pt_lst))
                         (cons 74 (length pt_lst))
                         ) ;_ end of list
                   (mapcar '(lambda (x) (cons 10 x)) pt_lst)
                   (mapcar '(lambda (x) (cons 11 x)) pt_lst)
                   ) ;_ end of append
           ) ;_ end of entmake
  ) ;_ end of defun

[aquamarine]

Большое вам спасибо!