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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 19.06.2007, 14:02   #1
[LOL]
 
Регистрация: 13.06.2007
Сообщений: 4
По умолчанию Вращение луны вокруг Земли

Помогите создать программу демонстрирующую вращение Луны вокруг Земли!!!
Заранее спасибо!!
Изображения
Тип файла: jpg 123.jpg (15.3 Кб, 150 просмотров)
[LOL] вне форума Ответить с цитированием
Старый 19.06.2007, 16:18   #2
zetrix
Delphi/C++/C#
Участник клуба
 
Аватар для zetrix
 
Регистрация: 29.10.2006
Сообщений: 1,972
По умолчанию

Уравнение окружности знаем? (параметрическое)

X:=R*cos(t);
Y:=R*sin(t);
//R - радиус
//t - параметр, меняется от 0 до 6.28 (0..2*PI), можно и просто в цикле увеличивать на 0.01 - чтоб плавно вращение было.

Если не понятно, то используй поиск по форуму, я где-то писал маятник - сделай по аналогии...
zetrix вне форума Ответить с цитированием
Старый 19.06.2007, 16:22   #3
Сильванович Михаил
Студент
Форумчанин
 
Регистрация: 10.11.2006
Сообщений: 196
По умолчанию

Не понял... Круговую или эллипсообразную траекторию надо изобразить?
Да и в чем вопрос?
З.ы. Если это круг, то траекторию Луны при неподвижности Земли можно описать так:
Код:
x:=x0+r*cos(w*t);
y:=y0+r*sin(w*t);
x,y - координата Луны в любой момент времени t;
x0,y0 - координата Земли,
w - угловая скорость,
t - время движения.
Visita Interiorem Terrae Rectificando Operae Lapidem...
Сильванович Михаил вне форума Ответить с цитированием
Старый 19.06.2007, 19:10   #4
[LOL]
 
Регистрация: 13.06.2007
Сообщений: 4
По умолчанию

Я хотел сделать через Shape и Таймер!!! Можете написать полный код?
P.S. Нужно заставить Shape1 вращаться вокруг Shape2. Вращение по кругу

Последний раз редактировалось [LOL]; 19.06.2007 в 19:12.
[LOL] вне форума Ответить с цитированием
Старый 19.06.2007, 21:14   #5
[LOL]
 
Регистрация: 13.06.2007
Сообщений: 4
По умолчанию

Огромное Спасибо За Помощь Модератору AVER'у!!!!
[LOL] вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Mногоугольник, вращающийся вокруг заданной точки Sashka Помощь студентам 13 30.01.2008 17:15
рамка вокруг Radiogroup lenivec Общие вопросы Delphi 5 12.01.2008 16:06
50 лет назад в СССР произведён запуск первого искусственного спутника Земли. Alex21 Свободное общение 2 07.10.2007 05:57
как можно врощать компонент image вокруг себя? steck Мультимедиа в Delphi 1 31.08.2007 12:04