пересчет

[Sic]

Нет у тоже не константа,синусоида идет пока х положительный,как только выпадает отрицательный так идет скачек,позже пришлю картинку 

[Tau]

Картинка - это хорошо, но еще и параметры спутника (куда вы его запустили) неплохо бы.
Посмотрела на зависимость долготы от XYZ. По всем координатам есть разрыв на граничной долготе. Нормальное явление. Долгота - это величина цикличная, на обычном графике всегда будут разрывы... если спутник не на ГСО тусуется. Надеюсь, вы не этот эффект имели в виду.

[Sic]

Параметры спутника могу прислать  в виде тле кода,пойдет?

[Sic]

входные координаты

[Sic]

картинка

[Sic]

Масштаб я не делал:)пока,начало в 0.0...главное чтоб правильно нарисовала а потом уже можно и масштаб

[Sic]

A s это гринвичское среднее сидерическое время gmst.? Или я путаю

[Tau]

A s это гринвичское среднее сидерическое время gmst.

Да

В ответе №7 в этой теме было написано

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

Похоже, вы взяли простой арктангенс, вот и получили ерунду.

[Sic]

Ну правильно я взял от двух аргументов arctan(у/х)  или так надо  arctan(y)*arctan(x),во втором случае вообще все квадратное получается   

[Tau]

http://office.microsoft.com/ru-ru/excel/HP100624241049.aspx
y/x - это не два аргумента, а один

[Sic]

Спасибо:)я просто не знал что такая функция есть...можно сказать новичок в этом деле:)только теперь когда х переходит из отрицательной области в положительную получается тоже что и на картинке  только в отрицательной области

[Tau]

Sic, опять ерунда? Покажите мне X,Y, звездное время и долготу.

[Sic]

Время 312.78955         х=231.5033                  у=-4135.0927              долгота -399.585

[Tau]

Все правильно, только угол нужно перевести в диапазон долгот карты. Выше вы показывали карту, на которой долгота изменяется от -180 до 180 градусов. Вот в этот диапазон угол и переводите. Будет -39.585188952 градусов.

[Sic]

А мне все значения переводить и те что меньше 180

[Tau]

А мне все значения переводить и те что меньше 180

А как (точнее, куда) вы переведете угол, который и так в диапазоне?
If долгота > -180 и долгота <= 180 then
 НЕ ПЕРЕВОДИТЬ
Else
 ПЕРЕВОДИТЬ
End If

[Sic]

 If x>=180 then x=x-360
if x<-180 then x=x+360
я так написал...

[Sic]

Я вот думаю может атан2 не так описал,стандартной функции нет в делфи

[Tau]

If x>=180 then x=x-360
if x<-180 then x=x+360
я так написал...

А я бы сделала цикл, чтобы не думать об области определения долготы, т.к. я вообще не люблю думать. Если вы уверены, что у вас x никогда не выскочит из диапазона от -540 до 540 градусов, то оставьте так.

Я вот думаю может атан2 не так описал, стандартной функции нет в делфи

А до этого момента вы какой функцией пользовались? Сами написали? 

http://books.kulichki.com/data/delphi/del6/4.html#tip21
Sic, это вы могли бы выяснить и сами посредством замечательной штуки, которая назывется Google.

[Sic]

У меня почему та все равно скачет..
Х=-3279.1828
у=3683.9682
долгота от них 177.897
берем следующие координаты
х=-3218.6228
у=3338.4919 и от них долгота -179.824 почему такой разрыв