Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
AAA73
0 / 0 / 0
Регистрация: 10.12.2009
Сообщений: 26
#1

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

30.05.2012, 21:22. Просмотров 522. Ответов 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):

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

Вращение стрелки - Delphi
вот тут при последовательном вводе в едит1 координаты y и в едит2 координаты x: 150 и 50 ; 125 и 75 ; 150 и 50 ; 175 и 75, получим стрелку,...

Вращение параллелепипеда - Delphi
Написал прогу, где параллелепипед переносится. И пытаюсь сделать, чтобы он вращался вокруг координатных осей, но вместо этого он делает не...

Вращение звезды - Delphi
Здравствуйте! Вот есть программа рисования звезды на правую/левую кнопку мыши. Как сделать так, чтобы при нажатии звезда еще и вращалась?...

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

Вращение отрезка - Delphi
Подскажите как осуществить вращение отрезка по градусам вокруг начальной точки (MoveTo(40,100)), градус вращения пользователь выбирает в...

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

Вращение восьмиугольника - Delphi
Подскажите, пожалуйста, как можно сделать вращение восьмиугольника вокруг центра, если использовать dx:=round(halflen*cos(t)) и...

вращение фигуры - Delphi
Написать процедуру вращения фигуры вокруг цента.Форму фигуры задать процедурным типом.Показать вращение различных трех фигур Добавлено...

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

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


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

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

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