Категория
Информатика
Тип
реферат
Страницы
11 стр.
Дата
07.05.2014
Формат файла
.html — Html-документ
Архив
1026298.zip — 5.68 kb
  • postroenie-linii-peresechenija-objomnyx-geometricheskix-obektov_1026298_1.html — 21.03 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 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))

)

(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 in YZ

(defun ell_Y(fy fz)

(setq xmax 90.0)

(setq dx 10.0)



Ваше мнение



CAPTCHA