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

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

30.05.2012, 21:22. Просмотров 545. Ответов 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
Ответы с готовыми решениями:

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

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

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

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

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

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

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

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

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


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

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

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