Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 85 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.08.2008, 18:50   #1
Денис 008
 
Регистрация: 04.08.2008
Сообщений: 3
По умолчанию алгоритм преобразования сферических координат в декартовые. графическая иллюстрация.

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

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

Помогите пожалуйста, очень надо...желательно в DELPHI
Денис 008 вне форума Ответить с цитированием
Старый 04.08.2008, 19:37   #2
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,194
По умолчанию

Могу предложить код выпрямления глобуса в карту на 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- итог.
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 05.08.2008, 11:24   #3
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

http://ru.wikipedia.org/wiki/Сфериче...тема_координат
eoln вне форума Ответить с цитированием
Старый 05.08.2008, 14:27   #4
_Dmitry
Участник клуба
 
Аватар для _Dmitry
 
Регистрация: 02.09.2007
Сообщений: 1,193
По умолчанию

Примерно так
Вложения
Тип файла: zip sfkoord.zip (206.2 Кб, 71 просмотров)
_Dmitry вне форума Ответить с цитированием
Старый 05.08.2008, 22:21   #5
Денис 008
 
Регистрация: 04.08.2008
Сообщений: 3
По умолчанию

СПАСИБО БОЛЬШОЕ!!!)!
Денис 008 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме 85 тыс рублей в месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Преобразования Pascal в Delphi non1ka Помощь студентам 21 05.06.2008 12:54
Преобразования систем исчисления Altera Общие вопросы Delphi 5 21.02.2008 08:43
С паскалем как и у многих проблемы,прошу помощи. Две задачи: интегральная и графическая. Loyal Помощь студентам 3 27.09.2007 09:46
нужна графическая софтина trond Фриланс 2 24.11.2006 04:27