Категория
Информатика
Тип
реферат
Страницы
11 стр.
Дата
29.05.2014
Формат файла
.html — Html-документ
Архив
1029823.zip — 5.73 kb
  • postroenie-linii-peresechenija-objomnyx-geometricheskix-obektov_1029823_1.html — 21 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы

Задание №1

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

1.1 Цель работы

Выработка практическихнавыков в разработке и отладке программ для построения линий пересеченияобъёмных геометрических объектов.

1.2 Индивидуальноезадание

Построить поверхностивторого порядка

/>

/>

и их линию пересечения.

Вариант a b c d E R 9 140 30 1 1 1 90

1.3 Решение задания

Представим систему вчисленном виде:

/>

Из неё легко проверить,что получается такая система

/>

Первое уравнение являетсяуравнением окружности с радиусом

/>, расположенной параллельно плоскости XY на уровне />. Эта окружность и являетсялинией пересечения конуса и эллипсоида.

1.4    Текст программы

;Conus

(defun conus()

(setq zmax140.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 (+ zdz))

)

(setq dphi (/(* 10 pi) 180))

(setq phi 0)

(while (<=phi (* 2.0 pi))

(command«line» (list 0 0 0) (list (* r (cos phi)) (* r (sin phi)) z))

(command)

(setq phi (+phi dphi))

)

)

; Ellipse inYZ

(defunell_Y(fy fz)

(setq xmax90.0)

(setq dx 10.0)

(setq dy 10.0)

(setq x -90.0)

(while (<=x xmax)

(setq ya 0.0)

(setq yk (sqrt(- (* 90.0 90.0) (* x x))))

(setq z (* fz(sqrt (- 8100.0 (* x x)))))



Ваше мнение



CAPTCHA