IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Трёхмерная графика, Пирамида
art88
сообщение 12.02.2006 19:59
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 40
Пол: Мужской
Реальное имя: Артём

Репутация: -  0  +


Задача
Изобразить линию сечения правильной шестигранной пирамиды плоскостью, заданной коэффициентами своего уравнения(Основание пирамиды лежит в плоскости XOY, высота совпадает с осью Z)
----------------------------------------------------------
Проблема
Подскажите, как лучше потроить усечённую пирамиду, если я знаю взаимное расположение плоскости и каждой грани(точку пересечения или то, что они параллельны или, что грань лежит в плоскости).
----------------------------------------------------------
Программа
Рисует пирамиду(DrawPyr), оси координат(DrawAxes), может находить взаимное расположение граней и плоскости(Interception).
(См. Pyramid.pas).


Прикрепленные файлы
Прикрепленный файл  PYRAMID.PAS ( 2.66 килобайт ) Кол-во скачиваний: 231
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
art88   Трёхмерная графика   12.02.2006 19:59
volvo   art88, погоди... Ты же написал, что, и в то же вре...   12.02.2006 20:40
art88   Процедура DrawPyr рисует пирамиду(не усечённую) с...   12.02.2006 20:44
volvo   Ну, попробуй вот это глянуть... Я только что выдра...   12.02.2006 21:34
art88   volovo, насколько я понял твоя программа строит пи...   13.02.2006 18:37
art88   Я нашёл ошибку в Interception, обобщил задачу, реш...   20.02.2006 17:46
volvo   art88, я очень глубоко не разбирался, просто сразу...   20.02.2006 18:52
art88   Ну надо же его куда-нибудь поставить. :) Да и воо...   20.02.2006 19:04
art88   Вообще хорошо бы делать MoveTo сразу в первую точк...   20.02.2006 20:41
volvo   art88, кажется я понял, в чем ошибка... Я бы на тв...   21.02.2006 16:38
art88   volovo, следуя твоим указаниям я переделал програм...   22.02.2006 20:21
volvo   Нет, ты не следовал моим указаниям, а посему ошиб...   22.02.2006 20:47
art88   И снова здраствуйте.... Вот уже которую неделю, я ...   5.03.2006 14:17
art88   Неужели, ни у кого руки не доходят проверить мою п...   6.03.2006 19:44
volvo   art88, ну НЕ НАХОДИТ твоя процедура Interception п...   6.03.2006 20:28
art88   Поменял пару знаков в процедуре interception, убра...   11.03.2006 20:42
volvo   Знаешь, почему это происходит? Программа-то может ...   12.03.2006 0:31
art88   Внёс все изменения, действительно что-то чертится,...   12.03.2006 10:47
volvo   :dry: Опять начинается... Я же сказал, без Interce...   12.03.2006 10:52
art88   Volvo, извини запостил не ту программу(она вообще ...   12.03.2006 12:19
volvo   art88, :blum: В процедуре PlaneTri: У меня от...   12.03.2006 12:41
art88   Volvo, прошу прощения за столь тупую ошибкку. :rol...   12.03.2006 15:04
volvo   Да, совсем забыл ... Я еще кое-что поменял: proced...   12.03.2006 15:23
art88   Спасибо, Volvo! Просто раньше у меня вершина ...   12.03.2006 15:40
art88   Перебрал много плоскотей и пришёл к выводу: если D...   12.03.2006 16:39
art88   Вобщем теперь я тупо прибавляю eps(некоторая мален...   12.03.2006 17:10
volvo   Не особенно-то программа сократилась :( Ну, ладно,...   12.03.2006 18:03
art88   Volvo, спасибо большое за помощь! Кстати о дру...   12.03.2006 18:06


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 19.06.2025 22:47
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"