Контрольная работа: Построение линии пересечения объёмных геометрических объектов

Итак, имеется 6 векторов и параметрический сплайн 5 степени – это есть необходимое и достаточное условие построения сегмента кривой проходящего через 6 точек.

2.4 Текст программы, реализующей метод Фергюсона.

(defun task2()

(command "erase" "all" "")

(setq a15 117.1875)

(setq a14 -255.2083333)

(setq a13 -621.3541666)

(setq a12 563.9583333)

(setq a11 195.4166666)

(setq a10 49.0)

(setq a25 156.25)

(setq a24 -351.5625)

(setq a23 630.2083333)

(setq a22 -143.4375)

(setq a21 -291.4583333)

(setq a20 28.0)

(setvar "pdmode" 2)

(command "point" (list 49.0 28.0))

(command "point" (list 105.3 -31.5))

(command "point" (list 172.3 -78.6))

(command "point" (list 211.1 -95.8))

(command "point" (list 183.0 -66.1))

(command "point" (list 49.0 28.0))

(setq u 0)

(setq du 0.01)

(setq file1 (open "c:\\mydata1.txt" "w"))

(while (<= u 1.0)

(setq x1 (+ (* (expt u 5) a15) (* (expt u 4) a14) (* (expt u 3) a13) (* (expt u 2) a12) (* u a11) a10))

(setq y1 (+ (* (expt u 5) a25) (* (expt u 4) a24) (* (expt u 3) a23) (* (expt u 2) a22) (* u a21) a20))