|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.05.2012, 21:23 | #1 |
Регистрация: 26.11.2010
Сообщений: 8
|
Вращение сферы
Посмотрите, пожалуйста, что я делаю не так
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Math; type TForm1 = class(TForm) Button1: TButton; Image1: TImage; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i,j,k:integer; X,Y,Z,X1,Y1,z1,x2,y2,z2, fi, te, pi,h,a, rr,r: extended; begin form1.Canvas.Rectangle(0,0,500,500) ; r:=50; Pi:=3.1415; h:=pi/180; //for k:=1 to 100 do // begin for j:=1 to 180 do for i:=1 to 360 do begin te:=i*h; fi:=j*h; x:=r*sin(te)*cos(fi)+100; y:=r*sin(te)*sin(fi)+100; z:=r*cos(te)+100; form1.Canvas.Pixels[trunc(x),trunc(z)]:=trunc(x+y); //Form1.Image1.Canvas.Pixels [trunc(x),trunc(y)]:=trunc(x+y); //end;// cicl //r:=sqrt(x*x+y*y+z*z); // te:=arccos(z/r); // fi:=arctg(y/x); a:=3.14; while a<pi do begin x1:=(x-100)*cos(a)-(y-100)*sin(a); y1:=(x-100)*sin(a)-(y-100)*cos(a); z1:=z-100; rr:=sqrt(x1*x1+y1*y1+z1*z1); te:=arccos(z1/rr); fi:=1/arccot(y1/x1); x2:=rr*sin(te)*cos(fi)+400; y2:=rr*sin(te)*sin(fi)+400; z2:=rr*cos(te)+400; a:=a+0.3; form1.Canvas.Pixels[trunc(x2),trunc(y2)]:=trunc(x+y); end; end;// //end;// for k end; end. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вращение сферы | AAA73 | Помощь студентам | 2 | 21.05.2012 23:19 |
Построение сферы | AAA73 | Помощь студентам | 4 | 17.05.2012 17:03 |
Дан радиус сферы | Natasha11 | Помощь студентам | 1 | 26.03.2012 21:20 |
проблема с рисованием сферы | kady | Помощь студентам | 14 | 25.01.2010 17:48 |
Сферы тегов | Zeraim | Свободное общение | 5 | 21.12.2009 19:11 |