Старый 05.05.2011, 13:26   #281
LordWilex
В отпуске
 
Аватар для LordWilex
 
Регистрация: 01.06.2008
Адрес: Таганрог
Сообщения: 28,983
LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000
По умолчанию

Цитата:
Сообщение от barrel
LordWilex, спасибо за ваш труд! Даже не представляю что бы я делал без Ваших наработок!
А вопрос у меня такой: необходимо получить угловые расстояния между двумя планетами (объектами) на заданный момент времени (юлианскую дату).
Чено говоря не могу понять как использовать для этого функцию ASPECT2, что в арументах подразумевается под Х У?

Там все очень просто.
X - это координата первой планеты
а
Y - это координата второй (желательно более быстрой) планеты

т.е. сначала вычисляете долготы планет при помощи функции PLC или как-то иначе, а потом передаете результат в функцию ASPECT или ASPECT2

Разница между =ASPECT() и ASPECT2() в том, что =ASPECT() возвращает просто угловое расстояние (положительное число в диапазоне от 0 до 180 градусов т.е. не имеет значение, какая планета X, а какая Y),

ASPECT2() - возвращает положительное число, если аспект сходящийся и отрицательное, если аспект расходящийся. То же самое можно интерпретировать как положительное число, если X находится перед Y , и отрицательное, если иначе (короче функция возвращает число в диапазоне от -180 до +180).

Например:

Предположим, что координата Солнца 200 градусов, а координата Луны 210 градусов.

ASPECT(200;210) = 10 (угловое расстояние 10 градусов, сходящийся или расходящийся аспект - не важно)

=ASPECT2(200;210) = -10 (
= аспект расходящийся
= или, это можно интерпретировать как "планета Y находится за планетой X",
= или как "У - западная планета", если подразумевается, что X - это Солнце)


А вот если мы поменяем их местами (Луна X, а Солнце - Y) то снова получим положительное число:
=ASPECT2(210;200) = 10 (т.е. Солнце находится перед Луной).


Только учтите, что в случае ретроградности - с этой функцией можно пролететь, как фанера над Парижем, в будущей версии добавлю еще функцию ASPECT3, которая будет делать то же само, что и ASPECT2, только учитывать ретроградность.
LordWilex вне форума   Ответить с цитированием
Старый 05.05.2011, 13:57   #282
barrel
Собеседник
 
Регистрация: 02.02.2011
Сообщения: 2
barrel отключил(а) отображение уровня репутации
По умолчанию

Ок!
Значит, аргументы (Х;У) функции ASPECT это значение 2 аргумента XPos функции PLC.
Спасибо!!!
barrel вне форума   Ответить с цитированием
Старый 05.05.2011, 14:59   #283
LordWilex
В отпуске
 
Аватар для LordWilex
 
Регистрация: 01.06.2008
Адрес: Таганрог
Сообщения: 28,983
LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000
По умолчанию

Цитата:
Сообщение от barrel
Значит, аргументы (Х;У) функции ASPECT это значение 2 аргумента XPos функции PLC.
LordWilex вне форума   Ответить с цитированием
Старый 05.09.2011, 18:58   #284
ar-mark
Собеседник
 
Регистрация: 21.04.2011
Сообщения: 12
ar-mark репутация выше +10
По умолчанию Здравствуйте, LordWilex.

Уважаемый LordWilex в функциях, я нашел Antiscia()
а как рассчитать Контр-антис.
Честно говоря я понятия не имею для чего они, но если нетрудно.
Заранее Спасибо.
ar-mark вне форума   Ответить с цитированием
Старый 05.09.2011, 19:17   #285
LordWilex
В отпуске
 
Аватар для LordWilex
 
Регистрация: 01.06.2008
Адрес: Таганрог
Сообщения: 28,983
LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000
По умолчанию

Цитата:
Сообщение от ar-mark
Уважаемый LordWilex в функциях, я нашел Antiscia()
а как рассчитать Контр-антис.
Честно говоря я понятия не имею для чего они, но если нетрудно.
Заранее Спасибо.
На счет контр-антисов добавлю такую функцию в следующей версии... если конечно раньше не запущу другой проект на python'e

Что же касается теории, то антис - это точка расположенная на точно таком же расстоянии от объекта относительно оси Рак-Козерог.
Например антис 1-го градуса Козерога в последнем градусе Стрельца, антис 2 градуса Казерога в предпоследнем градусе стрельца и т.д.

С контр-антисами все аналогично, только отражение идет относительно оси Овен-Весы.
т.е. первый градус Овна соответствует последнему градусу Рыб. 2-й градус Овна соответствует предпоследнему градусу Рыб. и т.д.

Тот же принцип можно применять не только к планетам, но и к знакам в целом. В антисах друг друга находятся следующие пары знаков:
1. Рак-близнецы
2. Лев-Телец
3. Овен-Дева
4. Рыбы-Весы
5. Скорпион-Водолей
6. Козерог-Стрелец


В общем-то это такой тип связки между планетами и ззнаками.

Подробней про антисы можно почитать, например у Павла Александрийского или у Птолемея.
LordWilex вне форума   Ответить с цитированием
Старый 05.09.2011, 19:19   #286
DoReMi
Бухгалтер
 
Аватар для DoReMi
 
Регистрация: 23.04.2008
Адрес: Волгодонск
Сообщения: 356
DoReMi репутация выше +50DoReMi репутация выше +50
По умолчанию

Антис - это точка, симметричная заданной, относительно оси Рак-Козерог.
Есть мнение, что антис не точка, а аспект, то есть если первая планета "в антисе" к другой планете, то планеты находятся во взаимной симметрии относительно оси Рак-Козерог, и в этом смысле "контр-антис" - ситуация, когда антис одной планеты находится в оппозиции к другой планете.
Я предпочитаю всё-таки рассматривать антисы как точки, принимающие аспекты, то есть кроме антис-контрантис, могут быть и "квадрантис, секстилянтис или тигонантис" вплоть до "новилянтиса" или "сесквиквадрантиса" :)
DoReMi вне форума   Ответить с цитированием
Старый 05.09.2011, 19:21   #287
ar-mark
Собеседник
 
Регистрация: 21.04.2011
Сообщения: 12
ar-mark репутация выше +10
По умолчанию Спасибо !

Спасибо ! Буду ждать новых версий!
ar-mark вне форума   Ответить с цитированием
Старый 03.11.2011, 18:16   #288
ar-mark
Собеседник
 
Регистрация: 21.04.2011
Сообщения: 12
ar-mark репутация выше +10
По умолчанию

Уважаемый LordWilex
Прошу прощения за вопрос не по теме !!!
Случайно не знаете где можно скачать базу данных городов мира с временными зонами ???
ar-mark вне форума   Ответить с цитированием
Старый 03.11.2011, 20:10   #289
LordWilex
В отпуске
 
Аватар для LordWilex
 
Регистрация: 01.06.2008
Адрес: Таганрог
Сообщения: 28,983
LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000
По умолчанию

Цитата:
Сообщение от ar-mark
Уважаемый LordWilex
Прошу прощения за вопрос не по теме !!!
Случайно не знаете где можно скачать базу данных городов мира с временными зонами ???
Даже не знаю, никогда этим не интересовался.
Думаю самый простой способ - распотрошить какую-нить астрологическую программу.
LordWilex вне форума   Ответить с цитированием
Старый 27.11.2011, 15:36   #290
ar-mark
Собеседник
 
Регистрация: 21.04.2011
Сообщения: 12
ar-mark репутация выше +10
По умолчанию

Всем привет !!!
Помогите пожалуйста новичку!!!
Запутался с некоторыми фиктивными планетами
1. Лилит
2. Селена
3. Белая луна
В одних источниках Селена находится в 180 гр. от Лилита, в других нет.
В одних программах Белая луна и Селена тоже самое, а в других нет.
Так как вывести в Excel эти планеты?????
ar-mark вне форума   Ответить с цитированием
Старый 27.11.2011, 16:02   #291
LordWilex
В отпуске
 
Аватар для LordWilex
 
Регистрация: 01.06.2008
Адрес: Таганрог
Сообщения: 28,983
LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000
По умолчанию

Цитата:
Сообщение от ar-mark
Всем привет !!!
Помогите пожалуйста новичку!!!
Запутался с некоторыми фиктивными планетами
1. Лилит
2. Селена
3. Белая луна
В одних источниках Селена находится в 180 гр. от Лилита, в других нет.
В одних программах Белая луна и Селена тоже самое, а в других нет.
Так как вывести в Excel эти планеты?????

В рамках ШЭ используется следующая терминология:

1. Под Лилит понимается просто апогей лунной орбиты.
Он может быть средним (№ 12 в функции PLC() ) и истинным (№ 13 в функции PLC() )

2. Под "Селоной" и "Белой Луной" в ШЭ понимается один и тот же (геоцентрический) объект со следующими орбитальными элементами:

Эпоха ОЭ: J2000
Средняя аномалия: 242.2205555 + 5143.5418158 * T
Большая полуось: 0.05280098949
Экцентриситет, аргумент перегелия, долгота восходящего узла и наклон орбиты к эклиптике - по нулям.

Её номер при вызове через PLC() - 56

По всей видимости это заимствование из АША

Ну еще есть такие фиктивные планеты:

Цитата:
J1900, J1900, 163.7409, 40.99837, 0.00460, 171.4333, 129.8325, 1.0833, Купидон # 1 (PLC = 40)

J1900, J1900, 27.6496, 50.66744, 0.00245, 148.1796, 161.3339, 1.0500, Гадес # 2 (PLC = 41)

J1900, J1900, 165.1232, 59.21436, 0.00120, 299.0440, 0.0000, 0.0000, Зевс # 3 (PLC = 42)

J1900, J1900, 169.0193, 64.81960, 0.00305, 208.8801, 0.0000, 0.0000, Крон # 4 (PLC = 43)

J1900, J1900, 138.0533, 70.29949, 0.00000, 0.0000, 0.0000, 0.0000, Апплалон # 5 (PLC = 44)

J1900, J1900, 351.3350, 73.62765, 0.00000, 0.0000, 0.0000, 0.0000, Адмет # 6 (PLC = 45)

J1900, J1900, 55.8983, 77.25568, 0.00000, 0.0000, 0.0000, 0.0000, Вулкан # 7 (PLC = 46)

J1900, J1900, 165.5163, 83.66907, 0.00000, 0.0000, 0.0000, 0.0000, Посейдон # 8 (PLC = 47)

#

# Изида трансплутоновая "Die Sterne" 3/1952, p. 70ff.

2368547.66, 2431456.5, 0.0, 77.775, 0.3, 0.7, 0, 0, Isis-Transpluto # 9 (PLC = 48)

# Нибиру элементы по Криятьяну Уолтегу (Christian Woeltge)

1856113.380954, 1856113.380954, 0.0, 234.8921, 0.981092, 103.966, -44.567, 158.708, Нибиру # 10 (PLC = 49)

# 10-я планета по Харингтону (Harrington), по данным Astronomical Journal 96(4), Oct. 1988

2374696.5, J2000, 0.0, 101.2, 0.411, 208.5, 275.4, 32.4, Harrington # 11 (PLC = 50)

# Другие попытки найти 10-ю "планету - X" по данным W.G. Hoyt, "Planets X and Pluto", Tucson 1980, p. 63

2395662.5, 2395662.5, 34.05, 36.15, 0.10761, 284.75, 0, 0, Leverrier (Neptune) # 12 (PLC = 51)

2395662.5, 2395662.5, 24.28, 37.25, 0.12062, 299.11, 0, 0, Adams (Neptune) # 13 (PLC = 52)

2425977.5, 2425977.5, 281, 43.0, 0.202, 204.9, 0, 0, Lowell (Pluto) # 14 (PLC = 53)

2425977.5, 2425977.5, 48.95, 55.1, 0.31, 280.1, 100, 15, Pickering (Pluto) # 15 (PLC = 54)

# Вулкан (интромеркуриарный :) ) по данным Л. Уестона (L.H. Weston)

J1900,JDATE, 252.8987988 + 707550.7341 * T, 0.13744, 0.019, 322.212069+1670.056*T, 47.787931-1670.056*T, 7.5, Vulcan # 16 (PLC = 55)

# Селена / Белая луна

J2000,JDATE, 242.2205555 + 5143.5418158 * T, 0.05280098949, 0.0, 0.0, 0.0, 0.0, Selena/White Moon, geo # 17 (PLC = 56)

# Прозерпина, по данным http://www.geocities.com/Hollywood/A...roserpina.html

# J1900, 170.73 + 51.05 * T

J1900,JDATE, 170.73, 79.225630, 0, 0, 0, 0, Proserpina (гео) #18 (PLC = 57)

# Вторая Луна по Уальдемату (Waldemath's Second Earth Moon)

2414290.95827875,2414290.95827875, 70.3407215 + 109023.2634989 * T, 0.0068400705250028, 0.1587, 8.14049594 + 2393.47417444 * T, 136.24878256 - 1131.71719709 * T, 2.5, Waldemath, geo # 19 (PLC = 58)

######################################## ######

### Дополнительные элементы

# Прозерпина по элементам, позаимствованным из программы ZET

2445375.5, 2445375.5, 187.502320, 77.926077235, 0.08550236, 319.538004, 63.696644, 3.000799, Прозерпина # 19 (PLC = 59)

# Дхарма по элементам, позаимствованным из программы ZET

2448830.500, 2448830.500, 050.7800, 57.839761679, 0.11800000, 288.017908, 047.587053, 2.500595, Дхарма # 20 (PLC = 60)
http://sweru.lordwilex.ru/
LordWilex вне форума   Ответить с цитированием
Старый 27.11.2011, 16:15   #292
ar-mark
Собеседник
 
Регистрация: 21.04.2011
Сообщения: 12
ar-mark репутация выше +10
По умолчанию

Спасибо !!!
А в Zet есть две Селены
1. Селена Белая Луна
2. СЕЛЕНА
Координаты значительно отличаются.
Первая как я понимаю PLC( №56 )
А Вторая ???
ar-mark вне форума   Ответить с цитированием
Старый 27.11.2011, 16:22   #293
LordWilex
В отпуске
 
Аватар для LordWilex
 
Регистрация: 01.06.2008
Адрес: Таганрог
Сообщения: 28,983
LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000
По умолчанию

Цитата:
Сообщение от ar-mark
Спасибо !!!
А в Zet есть две Селены
1. Селена Белая Луна
2. СЕЛЕНА
Координаты значительно отличаются.
Первая как я понимаю PLC( №56 )
А Вторая ???
Я без понятия, сейчас много чего изобретают изобретатели хреновы.
В программе "Гермес" (была такая) есть тоже 2 белых Луны-Селены одна Селена-Селена по Глобе, а другая Селена-Арта по Тимашеву.
Возможно в ЗЕТ имеются в виду они
LordWilex вне форума   Ответить с цитированием
Старый 27.11.2011, 16:24   #294
ar-mark
Собеседник
 
Регистрация: 21.04.2011
Сообщения: 12
ar-mark репутация выше +10
По умолчанию

Спасибо !!!
ar-mark вне форума   Ответить с цитированием
Старый 25.01.2012, 10:51   #295
Артур
Собеседник
 
Регистрация: 28.08.2011
Сообщения: 1
Артур отключил(а) отображение уровня репутации
По умолчанию Перевожу Вашу функцию plc на Delphi.

Что делает функция cusp?
См. изображение.
http://s016.radikal.ru/i335/1201/06/20b30deaa0aa.jpg
Артур вне форума   Ответить с цитированием
Старый 25.01.2012, 13:16   #296
UBER
Собеседник
 
Аватар для UBER
 
Регистрация: 15.07.2008
Адрес: Moscow
Сообщения: 5,914
UBER репутация выше +2000UBER репутация выше +2000UBER репутация выше +2000UBER репутация выше +2000UBER репутация выше +2000UBER репутация выше +2000UBER репутация выше +2000UBER репутация выше +2000UBER репутация выше +2000UBER репутация выше +2000UBER репутация выше +2000
По умолчанию

Куспид(ы) вычисляет, наверное.
UBER вне форума   Ответить с цитированием
Старый 25.01.2012, 18:58   #297
LordWilex
В отпуске
 
Аватар для LordWilex
 
Регистрация: 01.06.2008
Адрес: Таганрог
Сообщения: 28,983
LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000
По умолчанию

Не совсем. Cusp() - это не функция, это массив, в который функция swe_houses_ex(...) записывает координаты куспидов домов и еще что-то

Цитата:
<...>
Dim cusp(13) As Double

<...>

asss = swe_houses_ex(JD, iflag, CType, XPos, Asc("P"), cusp(0), ascmc(0))
csp = pl - 99990
Plc = cusp(csp)

<....>


в переменной Plc сохраняется координата нужного нам куспида дома


Сейчас домами занимается функция CHouse, возможность вычислить куспиды домов через plc оставлено для совместимости со старыми версиями.
LordWilex вне форума   Ответить с цитированием
Старый 22.03.2012, 12:35   #298
Elle.sv
Собеседник
 
Регистрация: 22.03.2012
Адрес: Псков
Сообщения: 6
Elle.sv репутация выше +10
По умолчанию

Здравствуйте, LordWilex!
как рада увидеть ваши сообщения на страницах форума!!! зарегистрировалась на сайте, чтобы иметь возможность задать вопросы! Несколько недель назад на просторах Интернта скачала вашу программу в скромной папочке "formula"(версия 1.2 от 31.12.09-- может есть более поздняя??) - это оказалось как раз то, что мне было так необходимо. До этого в форму Excel все данные забивала вручную.
В программировании (в т.ч. и на VBA) мои познания более, чем скромные. с Excelem еще как-то управляюсь. Две недели убитые на попытку понять как сделать то, что мне необходимо, с помощью VBA, показали, что результат если и будет, то не скоро!!!
Прошу прощения за эмоции, теперь по сути.
С вводом данных и по планетам и по домам порядок; не считается почему-то только Прозерпина (Проз geo-есть).
Сейчас я в Excele сделала таблицу, которая считает аспекты от натальных и директных положений к Точке Жизни. Данных на листе получается много. Для облегчения анализа необходимо программными средствами выделить точные аспекты цветом. Но как это сделать? увы, моих познаний не достаточно!!! Прошу Вашей помощи, если это возможно! Для меня работа с массивами оказалась неподъемной.

С уважением Elle.Sv /Светлана
Elle.sv вне форума   Ответить с цитированием
Старый 22.03.2012, 13:25   #299
LordWilex
В отпуске
 
Аватар для LordWilex
 
Регистрация: 01.06.2008
Адрес: Таганрог
Сообщения: 28,983
LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000LordWilex репутация выше +1000
По умолчанию

Цитата:
Сообщение от Elle.sv
Несколько недель назад на просторах Интернта скачала вашу программу в скромной папочке "formula"
Да вроде бы не называл я так папки


Цитата:
Сообщение от Elle.sv
Для облегчения анализа необходимо программными средствами выделить точные аспекты цветом. Но как это сделать? увы, моих познаний не достаточно!!! Прошу Вашей помощи, если это возможно! Для меня работа с массивами оказалась неподъемной.

С уважением Elle.Sv /Светлана
На счет выделения аспектов цветом - это можно сделать средствами самой Эксель.
В Эксель есть такая функция "условное форматирование"
В меню выбираете "Условное форматирование" -> "Правила выделения ячеек" - > "Между".

Название: Clipboard02.jpg
Просмотров: 205

Размер: 48.2 Кб

Например, для того, чтобы выделить трины с орбом в 5 градусов - устанавливаем значение между 115 и 125 градусами.

Но тут есть нюансы, например, в традиционной астрологии аспекты через знак не считаются, а Эксель этого не понимает.

По-другому пока ни как, только вручную. В следующей версии (если она будет) постараюсь добавить возможность автовыделения.
LordWilex вне форума   Ответить с цитированием
Старый 22.03.2012, 21:39   #300
Elle.sv
Собеседник
 
Регистрация: 22.03.2012
Адрес: Псков
Сообщения: 6
Elle.sv репутация выше +10
По умолчанию

Цитата:
Сообщение от LordWilex
Да вроде бы не называл я так папки

В папке было два файла - по расчету прогрессивных аспектов и формулам событий. Если авторство не ваше - прошу прощения.


Цитата:
На счет выделения аспектов цветом - это можно сделать средствами самой Эксель.
В Эксель есть такая функция "условное форматирование"
В меню выбираете "Условное форматирование" -> "Правила выделения ячеек" - > "Между".

По непонятной причине у меня на компе этот вариант условного форматирования не работает - идет сообщение, что "недостаточно системных средств для отображения диалогового окно". Что это означает: недостаточно мощности компа или еще чего-то?

Цитата:
По-другому пока ни как, только вручную. В следующей версии (если она будет) постараюсь добавить возможность автовыделения.
Это было бы здорово! Но может будет возможность этот блок сделать по-раньше?!
А какой была последяя версия"Швейцарские Эфемериды по-русски"?
У меня сейчас от 31дек09г.
Спасибо вам за эту разработку!
Elle.sv вне форума   Ответить с цитированием
Ответ


Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +1, время: 07:20.


Powered by vBulletin Version 3.5.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
© 1995-2024, ARGO