|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.05.2009, 20:14 | #1 |
Регистрация: 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. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
даны две точки. организовать движение из точки А в точку Б окружности! | 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 |