алгоритм преобразования сферических координат в декартовые. графическая иллюстрация.

[Денис 008]

Помогите написать программы...буду очень очень благодарен

разработать алгоритм преобразования сферических координат в декартовы...дать графическую иллюстрацию

Помогите пожалуйста, очень надо...желательно в DELPHI

[artemavd]

Могу предложить код выпрямления глобуса в карту на Delphi. Не знаю поможет или нет, но посмотри, вдруг что-нибудь пригодится. Вот код:

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
    ox,oy:integer;
    alfa,aux:Extended;

begin
  Image2.Height:=round(Image1.Height/2);
  Image2.Width:=round(2*PI*Image2.Height);
  for i := 1 to Image2.Width do
    for j := 1 to Image2.Height do
    begin
      aux:=i/Image2.Width;
      alfa:=-2*pi*(aux)-PI/2;
      ox:= round(Image1.Width/2+ j* cos(alfa));
      oy:= -1*round(j* sin(alfa)- Image1.Height/2);
      Image2.Canvas.Pixels[i,Image2.Height-j]:=Image1.Canvas.Pixels[ox,oy]
    end;
end;

Здесь Image1 - оригинал, Image2- итог.

[eoln]

http://ru.wikipedia.org/wiki/Сфериче...тема_координат

[_Dmitry]

Примерно так

[Денис 008]

СПАСИБО БОЛЬШОЕ!!!)!