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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 21.05.2009, 20:14   #1
Regboll
 
Регистрация: 17.05.2009
Сообщений: 9
По умолчанию Движение точки с векторами.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 вне форума Ответить с цитированием
Ответ


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

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

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


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