Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 21.05.2009, 20:14   #1
Regboll
 
Регистрация: 17.05.2009
Сообщений: 9
Репутация: 10
По умолчанию Движение точки с векторами.Pascal.

Как сделать движение точки с векторами по винту?главное,что у точки вектора(x,y,z)то же должны вращаться по винту,как бы закручиваться вместе с векторами... движение снизу вверх.
Вот сам винт трехмерный, может подскажите где че лишнее еще сразу.....

uses
crt,graph;
const
x0:integer=320; y0:integer=240; {‡*¤**ЁҐ жҐ*ва* Є®®а¤Ё**в ў ЇЁЄбҐ«пе }
mx:integer=20; my:integer=20; {Љ®«ЁзҐбвў® ЇЁЄбҐ«Ґ©
ў Ґ¤Ё*ЁжҐ ¤«Ё*л Ї® ®бЁ X Ё Y}
path='c:\tp7\bgi'; {‡*¤**ЁҐ ЇгвЁ Є д*©«г Ја*дЁзҐбЄ®Ј® ¤а*©ўҐа* EgaVga.bgi}
var
i,j,Gdriver,Gmode,xe,ye:integer;
t,x,a,b,y,z,x1,y1,t_start,t_end,dt, W,Q:real;
Key_Control:char;
begin
Gdriver:=detect;
InitGraph(Gdriver,Gmode,path);
key_control:=#1;
dt:=0.1; a:=2;b:=2;
W:=15/180;Q:=13/180;
repeat
t_start:=-2*pi;
t_end:=2*pi;
t:=t_start;
repeat
x:=a*cos(t);
y:=a*sin(t);
z:=b*t;
x1:=-sin(Q)*x+cos(Q)*y;
y1:=-cos(W)*cos(Q)*x-cos(W)*sin(W)*x+sin(W)*z;
xe:=trunc(x0+x1*mx);
ye:=trunc(y0-y1*my);
PutPixel(xe,ye,14);
t:=t+dt;
until t>t_end;
key_control:=readkey;

case key_control of
#43: begin mx:=mx*2; my:=my*2 end;
#45: begin mx:=mx div 2; my:=my div 2 end;
'o': Q:=Q+5/180;
#0:BEGIN
key_control:=readkey;
case key_control of
#72: Q:=Q-5/180;
#80: Q:=Q+5/180;
#75: W:=W-5/180;
#77: W:=W+5/180;
end;
end;
END;
ClearVieWPort;
until key_control=#27;
CloseGraph;
TextMode(co40)
end.
Regboll вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
даны две точки. организовать движение из точки А в точку Б окружности! Wi1D Помощь студентам 6 23.05.2009 19:55
Движение точки по окружности somwan Общие вопросы C/C++ 4 17.03.2009 17:30
движение точки на Canvas st01en Общие вопросы Delphi 32 09.02.2008 23:29
Помогите рассчитать положение и движение точки N на отрезку DK Stark[SG!] Помощь студентам 8 14.12.2007 11:08
Help!!!Движение точки по поверхности сферы alex23xandr Помощь студентам 4 20.05.2007 14:45


22:58.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.