![]() |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
![]()
|
|
| Zorak |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 720 Регистрация: 13.11.2007 Репутация: нет Всего: 3 |
Всем привет!. Вот написал программу, которая рисует кривые безье и конформную сетку в замкнутой области, но ето не важно)
Помогите пжлста. Спасибо заранее!!! З.Ы. Программу виложил в архиве. З.Ы.Ы. там написано оч много нужного и ненужного кода, но там всё правильно и всё надо))) поетому просьба ничего не добавлять и ничего не удалять, просто оптимизировать) Это сообщение отредактировал(а) Zorak - 19.5.2009, 15:42 Присоединённый файл ( Кол-во скачиваний: 6 )
______kruv11.rar 260,52 Kb-------------------- Знание - сила. А сила есть, ума не надо... Занимаюсь интернет бизнесом и ищу новых партнеров. Кому интересно - обращайтесь в ЛС, скайп или мыло. |
|||
|
||||
| Bitter |
|
|||
![]() Опытный лентяй ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 1209 Регистрация: 15.8.2004 Где: Харьков, Ukraine Репутация: нет Всего: 27 |
у мя ничё не виснет
Добавлено через 1 минуту и 22 секунды только "Не правильно" постоянно выскакивает и вырубается. Убрал Halt, виснуть не начало Добавлено через 7 минут и 34 секунды а, понял. Хоть бы написал, что нужно построить сетку эту... А вообще человечество придумало коментарии и структуризацию программного кода. И переменные можно называть более чем одной буквой. Ну ладно, если по делу, то я заметил простой установкой брэкпоинта, что переменная eps при большом выгибании отрицательная, а условие выхода из цикла Abs(t0-t)>eps, то есть бесконечный цикл Добавлено через 13 минут и 9 секунд извиняюсь, с Eps это произошол глюк во время отладки |
|||
|
||||
| Bitter |
|
|||
![]() Опытный лентяй ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 1209 Регистрация: 15.8.2004 Где: Харьков, Ukraine Репутация: нет Всего: 27 |
Вот что получилось, принудительно остановив расчеты.
Вывод: не верная формула для расчета кривых, что приводит к бесконечному циклу Присоединённый файл ( Кол-во скачиваний: 24 )
__________.JPG 55,49 Kb |
|||
|
||||
| Bitter |
|
|||
![]() Опытный лентяй ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 1209 Регистрация: 15.8.2004 Где: Харьков, Ukraine Репутация: нет Всего: 27 |
Вот только в твоем коде разобраться сложно, так что...
Насколько я понял, для рисования кривой ты пользуешься какой-то виндовской функцией. Если рисовать кривые вручную, то по полученным точкам можно легко построить сетку интерполируя её линии от кривой к кривой. Я так и делал, когда рисовал сетку безье. В ручную рисовать безье можно так: 1. Кривая из базовых 4х точек, 1я - начало кривой, 4я - конец. 2я и 3я вспомогательные точки равномерно расперделенные между 1й и 4й. Выглядит так: о------о------о------о 2. Тогда промежуточные точки вычисляются по формуле: P(t) = R0+(R1-R0)*t R0(t) = Q0+(Q1-Q0)*t R1(t) = Q1+(Q2-Q1)*t Q0(t) = P0+(P1-P0)*t Q1(t) = P1+(P2-P1)*t Q2(t) = P2+(P3-P2)*t 3. Р0, Р1, Р2, Р3 - координаты базовых четырех точек. t изменяется от 0 до 1. Чем мельче шаг, тем точнее кривая Ну вот, в кратце так |
|||
|
||||
| Zorak |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 720 Регистрация: 13.11.2007 Репутация: нет Всего: 3 |
Виржался, спс)))))).. а вообще извеняюсь) Недописал... Добавлено через 4 минуты и 11 секунд Блин.. понял)Спасибо... попробую твой вариант Bitter, с результатом отпишусь завтра ближе к обеду)) -------------------- Знание - сила. А сила есть, ума не надо... Занимаюсь интернет бизнесом и ищу новых партнеров. Кому интересно - обращайтесь в ЛС, скайп или мыло. |
|||
|
||||
| Zorak |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 720 Регистрация: 13.11.2007 Репутация: нет Всего: 3 |
Bitterя расписал твою формулу и у меня получилось точно такое, какое я использую в программе. =) возьми подставь всё свое и роспиши и посмотри чтополучится и сверь с моей программой (описание функций xt1 - xt4, yt1 - yt4).. =)тоесть если твои формули правильные, то мои тоже правильные, просто у меня они уже расписаны и записаны в одной строке)...
З.Ы. если не хочеш сидеть и думать то я в принципе могу написать то что я подставлял, нотам много и не оч хоч убивать 10 мин на набор)))... Жду ответа... -------------------- Знание - сила. А сила есть, ума не надо... Занимаюсь интернет бизнесом и ищу новых партнеров. Кому интересно - обращайтесь в ЛС, скайп или мыло. |
|||
|
||||
| Bitter |
|
|||
![]() Опытный лентяй ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 1209 Регистрация: 15.8.2004 Где: Харьков, Ukraine Репутация: нет Всего: 27 |
Разбираться долго, так что могу просто выслать тебе пример, который я делал с такой же сеткой. Только это скорее всего в четверг
|
|||
|
||||
| Zorak |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 720 Регистрация: 13.11.2007 Репутация: нет Всего: 3 |
Ок) буду ждать, завтра я виложу то что яросписал), загляни посмотриш) -------------------- Знание - сила. А сила есть, ума не надо... Занимаюсь интернет бизнесом и ищу новых партнеров. Кому интересно - обращайтесь в ЛС, скайп или мыло. |
|||
|
||||
| Bitter |
|
|||
![]() Опытный лентяй ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 1209 Регистрация: 15.8.2004 Где: Харьков, Ukraine Репутация: нет Всего: 27 |
смогу посмотреть начиная с четверга (поездка)
|
|||
|
||||
| Bitter |
|
|||
![]() Опытный лентяй ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 1209 Регистрация: 15.8.2004 Где: Харьков, Ukraine Репутация: нет Всего: 27 |
||||
|
||||
![]()
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |