Задание №1
Построение линии пересечения объёмных геометрических объектов
1.1 Цель работы
Выработка практических навыков в разработке и отладке программ для построения линий пересечения объёмных геометрических объектов.
1.2 Индивидуальное задание
Возможно вы искали - Курсовая работа: Построение локальной вычислительной сети предприятия
Построить поверхности второго порядка
и их линию пересечения.
| Вариант | a | b | c | d | E | R |
| 9 | 140 | 30 | 1 | 1 | 1 | 90 |
1.3 Решение задания
Похожий материал - Научная работа: Построение маршрута при групповой рассылке сетевых пакетов данных
Представим систему в численном виде:
Из неё легко проверить, что получается такая система
Первое уравнение является уравнением окружности с радиусом
Очень интересно - Учебное пособие: Построение модели DFD и реализация в СУБД Visual FoxPro
, расположенной параллельно плоскости XY на уровне 
. Эта окружность и является линией пересечения конуса и эллипсоида.
1.4 Текст программы
;Conus
(defun conus()
(setq zmax 140.0)
Вам будет интересно - Отчет по практике: Построение модели ИС
(setq z 0.0)
(setq dz 5)
(while (<= z zmax)
(setq r (sqrt ( * (* z z) (/ (* 140 140) (* 30 30)))))
(if (= r 0)
Похожий материал - Курсовая работа: Построение ОВС для решения формулы
(command "point" (list 0 0 0))
(command "circle" (list 0 0 z) r)
)
(setq z (+ z dz))