Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.12.2011, 21:15   #1
brutalis
Пользователь
 
Регистрация: 18.05.2011
Сообщений: 72
По умолчанию нарисовать две перпендикулярных прямых

требуется нарисовать две прямых пересекающихся под прямым углом. как это лучше сделать, чтобы не на глаз. в дальнейшем ожидается что они будут двигаться по окружности. во вложении изображено как это должно приблизительно выглядеть
Изображения
Тип файла: jpg Безымянный.JPG (5.0 Кб, 65 просмотров)
brutalis вне форума Ответить с цитированием
Старый 12.12.2011, 21:42   #2
phomm
personality
Старожил
 
Аватар для phomm
 
Регистрация: 28.04.2009
Сообщений: 2,888
По умолчанию

Уравнение прямой y =k*x+b , для 2 прямых y = k1*x + b1 и y = k2*x + b2
условие перпендикулярности k1 = -1/k2 задаете нужные величины, и граничные условия, например при х=0 и при х = ширине экрана(Tform.clientwidth) Рассчитываете, получаете координаты 4 точек для рисования, рисуете методами canvas.moveto и canvas.lineto
phomm вне форума Ответить с цитированием
Старый 12.12.2011, 21:51   #3
brutalis
Пользователь
 
Регистрация: 18.05.2011
Сообщений: 72
По умолчанию

Цитата:
Сообщение от phomm Посмотреть сообщение
Уравнение прямой y =k*x+b , для 2 прямых y = k1*x + b1 и y = k2*x + b2
условие перпендикулярности k1 = -1/k2 задаете нужные величины, и граничные условия, например при х=0 и при х = ширине экрана(Tform.clientwidth) Рассчитываете, получаете координаты 4 точек для рисования, рисуете методами canvas.moveto и canvas.lineto
нарисовать то я их нарисовал. правда на глаз.при движении по окружности угол в 90 не выдерживется. если не сложно можешь написать код как построить под прямым углом. чтото не соображаю
brutalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проверка/установка параллельности прямых andri Общие вопросы C/C++ 1 03.12.2011 15:22
Задано множество прямых на плоскости darya17 C++ Builder 1 02.06.2011 06:28
Найти минимальное множество прямых Inokentiy Помощь студентам 12 11.05.2010 18:00
Построение прямых Aleksandr Общие вопросы Delphi 21 19.06.2007 15:44