Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Движение по окружности 
:(
    Опции темы
Sergey89
Дата 27.10.2004, 18:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 122
Регистрация: 14.9.2004

Репутация: нет
Всего: нет
Подскажите функцию движения точки по окружности :qstn
--------------------
mlib.com.ru
PM MAIL   Вверх
Garabar
Дата 27.10.2004, 18:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 224
Регистрация: 15.9.2004

Репутация: нет
Всего: 1
в школе на математику надо хотябы иногда заходить :)
x=r*cos(t);
y=r*sin(t);
r-радиус;
PM MAIL   Вверх
Sergey89
Дата 27.10.2004, 18:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 122
Регистрация: 14.9.2004

Репутация: нет
Всего: нет
Garabar, спасиба ;-)
Добавлено @ 18:43
А t как я понял- время?
--------------------
mlib.com.ru
PM MAIL   Вверх
Garabar
Дата 27.10.2004, 18:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 224
Регистрация: 15.9.2004

Репутация: нет
Всего: 1
Цитата
А t как я понял- время?

Ага)) Наверна всетаки в школу иногда заглядывал))))
PM MAIL   Вверх
Sergey89
Дата 27.10.2004, 19:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 122
Регистрация: 14.9.2004

Репутация: нет
Всего: нет
Почему возникают ошибки в построение
Код
procedure graph(pos: integer);
var
 r, x, y: integer;
begin
 r:= Round(Form1.Image1.Width/2);
 x:= Round(r*cos(pos));
 y:= Round(r*sin(pos));
 Form1.Image1.Canvas.FillRect(Form1.Image1.Canvas.ClipRect);
 Form1.Image1.Canvas.Pen.Color:= clBlack;
 Form1.Image1.Canvas.MoveTo(50, 50);
 Form1.Image1.Canvas.LineTo(y, x);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 graph(StrToInt(Edit1.Text));
end;

--------------------
mlib.com.ru
PM MAIL   Вверх
Полудненко Олег
Дата 27.10.2004, 20:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Українець
**


Профиль
Группа: Участник...
Сообщений: 556
Регистрация: 13.8.2003

Репутация: 1
Всего: -11
Sergey89 наверное к х и у надо прибавлять ещё координаты центра окружности...
PM MAIL   Вверх
Sergey89
Дата 27.10.2004, 20:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 122
Регистрация: 14.9.2004

Репутация: нет
Всего: нет
Кажется я понял, pos он принимал, как радианы :)
Добавлено @ 20:48
Цитата
Sergey89 наверное к х и у надо прибавлять ещё координаты центра окружности...

Спасиба тебе твой совет тоже помог ;)

Это сообщение отредактировал(а) Sergey89 - 27.10.2004, 20:48
--------------------
mlib.com.ru
PM MAIL   Вверх
SoWa
Дата 22.1.2005, 19:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Харекришна
****


Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

Репутация: 2
Всего: 74
Про радианы:
DegToRad
&
RadToDeg


--------------------
Всем добра smile
PM MAIL ICQ   Вверх
Ripper
Дата 22.1.2005, 21:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Lonely soul...
**


Профиль
Группа: Участник
Сообщений: 920
Регистрация: 30.6.2004
Где: г. Москва

Репутация: 1
Всего: 23
x^2+y^2=R^2 ?
Это же тоже вроде график окружности? Тока центр в начале кооринат будет
хотя с косинусами синусами легче


--------------------
"Он знает: надо смеяться над тем, что тебя мучит, иначе не сохранишь равновесия, иначе мир сведет тебя с ума" - Над кукушкиным гнездом
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1333 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.