Список литературы:
Басалаева, Т. Ф. / Компьютер на уроках обслуживающего труда / Т. Ф. Басалаева// Школа и производство. –2005. – № 8. – 65 с.
Боброва, Л.В. Технология. 5-9 класс. Уроки с использованием ИКТ, внеклассные мероприятия / Л.В. Боброва // Учитель. Творческая мастерская учителя. -2009. - 57 с.
Богуславский, А. А. Информационно-коммуникационные технологии в подготовке учителя технологии и учителя физики: сборник материалов научно практической конференции. Ч. 2 / А.А. Богуславский. – Коломна: Московский государственный областной социально-гуманитарный институт, 2010. – 242 с.
К.А. Сипин
Студент группы ТЭг-208
Научный руководитель, доцент, к.т.н. А.Х. Раздобреев
Определение длины отрезка в компьютерных задачах начертательной геометрии
Компьютерная графика – комбинация вычислительной мощи компьютера и широких возможностей графического представлении результатов вычислений. К сожалению, в начертательной геометрии, чаще всего, делается упор лишь на вторую составляющую, т.е., по сути дела, на «компьютерное рисование». Но, поскольку изображение формируется в памяти компьютера, зачем выводить на экран все промежуточные построения? В идеале, надо ввести исходные данные и вывести искомый результат. Все.
Пример – определение длины отрезка, заданного своими проекциями. На рис. 1 приведена иллюстрация решения этой задачи из первого учебника начертательной геометрии Гаспара Монжа [1]. На рис. 2 – решение той же задачи из компьютерного курса начертательной геометрии [2]. И там, и там рисуется прямоугольный треугольник, будто и не было двухсот с лишним лет, разделяющих эти рисунки.
Рис. 1 Рис. 2
А вот возможный вариант решения этой задачи, если задействовать не только изобразительные, но и вычислительные возможности компьютера.
Большинство графических редакторов имеют средства разработки пользовательских приложений. Например, в состав системы AutoCAD входит редактор Visual LISP {3}. Если в него загрузить приводимую ниже программу, в системе будет определена команда ДЛОТР, с помощью которой длина отрезка определяется лишь двумя щелчка мыши (по каждой из проекций).
Листинг программы
(defun SelectLine (nn / obj obj1 ObjType)
(setq ObjType "")
(while (/= ObjType "LINE")
(princ (strcat nn " проекция отрезка"))
(setq obj (ssget "_:s"))
(if obj
(setq obj1 (ssname obj 0)
lobj1 (entget obj1)
ObjType (cdr (assoc '0 lobj1))
)
)
(if (/= ObjType "LINE")
(princ "\nНе выбран отрезок")
)
)
)
(defun c:длотр ()
(setq pi2 (/ pi 2))
(SelectLine "\n1-я")
(setq pt1 (cdr (assoc '10 lobj1))
pt2 (cdr (assoc '11 lobj1))
dl (distance pt1 pt2)
)
(SelectLine "\n2-я")
(setq pt1_2 (cdr (assoc '10 lobj1))
pt2_2 (cdr (assoc '11 lobj1))
y1 (cadr (inters pt1_2 pt2_2 pt1 (polar pt1 pi2 1) nil))
y2 (cadr (inters pt1_2 pt2_2 pt2 (polar pt2 pi2 1) nil)) dy (- y1 y2)
)
(setq dl (sqrt (+ (* dl dl) (* dy dy))))
(alert (strcat "Длина отрезка: " (rtos dl)))
)
Программа запрашивает первую, затем вторую проекцию отрезка и выдает результат, как на рис. 3
Рис. 3