Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
AAA73
0 / 0 / 0
Регистрация: 10.12.2009
Сообщений: 26
#1

Вращение сферы - Delphi

30.05.2012, 21:22. Просмотров 534. Ответов 0
Метки нет (Все метки)

Скажите, пожалуйста, что делаю не так
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.05.2012, 21:22
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вращение сферы (Delphi):

Составить программу для вычисления площади полной поверхности сферы
помогите сделать задание по делфи, пожалуйста! я совсем ничего не понимаю( ...

Вращение отрезка
Подскажите как осуществить вращение отрезка по градусам вокруг начальной точки...

Вращение линии
Помогите создать программу в DELPHI7.Вращение линии во круг своей оси по...

вращение фигуры
Написать процедуру вращения фигуры вокруг цента.Форму фигуры задать процедурным...

Вращение стрелки
вот тут при последовательном вводе в едит1 координаты y и в едит2 координаты x:...

Вращение восьмиугольника
Подскажите, пожалуйста, как можно сделать вращение восьмиугольника вокруг...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.05.2012, 21:22
Привет! Вот еще темы с решениями:

Вращение изображения
Есть ли какой то компонент в который можно было бы загрузить изображение и...

Вращение звезды
Здравствуйте! Вот есть программа рисования звезды на правую/левую кнопку мыши....

Вращение матрицы
На форуме не смог найти. Квадратная матрица. Повернуть её на 90 градусов...

Вращение куба
Здравствуйте, помогите мне очень быстро, пожалуйста, как создать вращение куба,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru