Программа AstroZET

Астрологическая компьютерная программа
https://astrozet.net/forum/

ZET 9

https://astrozet.net/forum/viewtopic.php?t=70

Страница 2 из 203

Добавлено: 04 ноя 2008, 13:29
nikbel
Анатолий день добрый!
Было бы замечательно если создали "маркеры" для произвольных градусов в натальной карте.
Например в натальной карте при нажатии правой кнопки мыши, в выпадающем окне появлялась строка "Маркер", нажав на которую можно было бы задать произвольный градус зодиака, с кратким описанием данного маркера, а в карте при наведении на него курсора появлялось бы окно с его описанием. Данные маркеры очень бы облегчили прогнозирование. Например, для определения точек смерти, необходимо рассмотреть очень много условий, в зависимости от ночного или дневного рождения, а так же имеется ли широта, и т.д., после же определения этих точек на карте их не показать, в виде же жребия их использовать неудобно, т.к. в каждой карте они индивидуальные, а формулами в ZET данные условия не прописать, приходится каждый раз перенастраивать, а на это тратится много времени. а так было бы удобно в каждой карте свои маркеры, к которым можно направлять дирекции.
Заранее благодарен.

Добавлено: 08 ноя 2008, 21:33
Тимур
Да, это интересно

Добавлено: 13 ноя 2008, 07:54
puks
Анатолий!

Планы не изменились? 9 выходит в 2008 году?

Добавлено: 13 ноя 2008, 10:23
Анатолий Зайцев
В этои году точно не выйдет.

Добавлено: 13 ноя 2008, 13:42
puks
Жаль. :( Значит зря я письмо писал Деду Морозу.

А какой сейчас текущий запланированный срок?

Добавлено: 02 дек 2008, 00:25
hippocamus
Анатолий, большая просьба. Да и думаю не только мне будет интересно.

Ввести ещё один тип аспектации - Аспекты по системе Авессалома Подводного. Вот пример, для Натала 1-го уровня:

Код: Выделить всё

Соединение      ; 48;M;0.0000;27.6923;...27.6923;0;16711935;0;0;4.00
Квадрат         ; 55;M;89.5385;4.6154;...4.6154;0;0;0;0;-2.00
Трин            ; 57;M;119.6703;8.9011;...8.9011;0;255;0;0;3.00
Оппозиция       ; 61;M;180.0000;13.8461;...13.8461;0;7077953;0;0;-3.00
Вот процедура рассчёта аспектов.
i1 - числитель аспекта
i2 - знаменатель аспекта
i3 - космический уровень (по сути, показатель октавы)
Для биквинтиля i1=2, i2=5, i3>=2 (на 1-м уровне присутствуют только первые 4 аспекта, на втором - до 8-го, и т.д.)

результат функции:
- g1 - нижняя граница аспекта
- g2 - верхняя
- mid - среднее значение (необходимо было в Zet 8, хотя на самом деле среднее значение будет 360/i1*i2, но орбисы выше и ниже не равны, пришлось идти на такие ухищрения)
- orb - средний орбис (опять таки, для Zet 8)

Код: Выделить всё

procedure Calculate(i1, i2, i3: Integer);
var
  a: array[1..100] of Integer;
  i, s, l: Integer;
  g1, g2, mid, orb: Single;
const
  w: string = 'аспект ';
begin
  Write(IntToStr(i1) + '/' + IntToStr(i2) + ' (' + FloatToStr(i1/i2*360) + ')');
  case i2 of
    1: Write(w+'СОЕДИНЕНИЕ');
    2: Write(w+'ОППОЗИЦИЯ');
    3: Write(w+'ТРИН');
    4: Write(w+'КВАДРАТ');
    5: case i1 of
         1: Write(w+'КВИНТИЛЬ');
         2: Write(w+'БИКВИНТИЛЬ');
       end;
    6: Write(w+'СЕКСТИЛЬ');
    7: case i1 of
         1: Write(w+'СЕПТИЛЬ');
         2: Write(w+'БИСЕПТИЛЬ');
         3: Write(w+'ТРИСЕПТИЛЬ');
       end;
    8: case i1 of
         1: Write(w+'ПОЛУКВАДРАТ');
         3: Write(w+'ПОЛУТОРАКВАДРАТ');
       end;
    9: case i1 of
         1: Write(w+'НОНАГОН');
         2: Write(w+'БИНОНАГОН');
         4: Write(w+'КВАРТНОНАГОН');
       end;
    10: case i1 of
          1: Write(w+'ДЕЦИЛЬ (ПОЛУКВИНТИЛЬ)');
          3: Write(w+'ТРИДЕЦИЛЬ (ПОЛУТОРАКВИНТИЛЬ)');
        end;
    11: case i1 of
          1: Write(w+'УНДЕЦИЛЬ');
          2: Write(w+'БИУНДЕЦИЛЬ');
          3: Write(w+'ТРИУНДЕЦИЛЬ');
          4: Write(w+'КВАРТУНДЕЦИЛЬ');
          5: Write(w+'ПЕНТУНДЕЦИЛЬ');
        end;
    12: case i1 of
          1: Write(w+'ДУОДЕЦИЛЬ (ПОЛУСЕКСТИЛЬ)');
          5: Write(w+'КВИКОНС (НЕСОЕДИНЕНИЕ)');
        end;
    13: case i1 of
          1: Write(w+'ТЕРЦДЕЦИЛЬ');
          2: Write(w+'БИТЕРЦДЕЦИЛЬ');
          3: Write(w+'ТРИТЕРЦДЕЦИЛЬ');
          4: Write(w+'КВАРТТЕРЦДЕЦИЛЬ');
          5: Write(w+'ПЕНТТЕРЦДЕЦИЛЬ');
          6: Write(w+'СЕКСТЕРЦДЕЦИЛЬ');
        end;
    14: case i1 of
          1: Write(w+'КВАРТДЕЦИЛЬ (ПОЛУСЕПТИЛЬ)');
          3: Write(w+'ТРИКВАРТДЕЦИЛЬ (ПОЛУТОРАСЕПТИЛЬ)');
          5: Write(w+'ПЕНТКВАРТДЕЦИЛЬ');
        end;
    15: case i1 of
          1: Write(w+'КВИНТДЕЦИЛЬ');
          2: Write(w+'БИКВИНТДЕЦИЛЬ');
          4: Write(w+'ТЕРЦКВИНТДЕЦИЛЬ');
          7: Write(w+'СЕПТКВИНТДЕЦИЛЬ');
        end;
    16: case i1 of
          1: Write(w+'СЕДЕЦИЛЬ (ЧЕТВЕРТЬКВАДРАТ)');
          3: Write(w+'ТЕРЦСЕДЕЦИЛЬ');
          5: Write(w+'КВИНТСЕДЕЦИЛЬ');
          7: Write(w+'СЕПТСЕДЕЦИЛЬ');
        end;
    17: case i1 of
          1: Write(w+'СЕПТАДЕЦИЛЬ');
          2: Write(w+'БИСЕПТАДЕЦИЛЬ');
          3: Write(w+'ТРИСЕПТАДЕЦИЛЬ');
          4: Write(w+'КВАРТСЕПТАДЕЦИЛЬ');
          5: Write(w+'ПЕНТСЕПТАДЕЦИЛЬ');
          6: Write(w+'СЕКССЕПТАДЕЦИЛЬ');
          7: Write(w+'СЕПТСЕПТАДЕЦИЛЬ');
          8: Write(w+'ОКТСЕПТАДЕЦИЛЬ');
        end;
    18: case i1 of
          1: Write(w+'ОКТАДЕЦИЛЬ (ПОЛУНОНАГОН)');
          5: Write(w+'КВИНТОКТАДЕЦИЛЬ (СЕНТАГОН)');
          7: Write(w+'СЕПТОКТАДЕЦИЛЬ');
        end;
    19: case i1 of
          1: Write(w+'НОНАДЕЦИЛЬ');
          2: Write(w+'БИНОНАДЕЦИЛЬ');
          3: Write(w+'ТРИНОНАДЕЦИЛЬ');
          4: Write(w+'КВАРТНОНАДЕЦИЛЬ');
          5: Write(w+'ПЕНТНОНАДЕЦИЛЬ');
          6: Write(w+'СЕКСНОНАДЕЦИЛЬ');
          7: Write(w+'СЕПТНОНАДЕЦИЛЬ');
          8: Write(w+'ОКТНОНАДЕЦИЛЬ');
          9: Write(w+'НОНОНАДЕЦИЛЬ');
        end;
    20: case i1 of
          1: Write(w+'ВИГИНТИЛЬ (ЧЕТВЕРТЬКВИНТИЛЬ)');
          3: Write(w+'ТЕРЦВИГИНТИЛЬ');
          7: Write(w+'СЕПТВИГИНТИЛЬ');
          9: Write(w+'НОНВИГИНТИЛЬ');
        end;
    21: case i1 of
          1: Write(w+'УНВИГИНТИЛЬ');
          2: Write(w+'БИУНВИГИНТИЛЬ');
          4: Write(w+'КВАРТУНВИГИНТИЛЬ');
          5: Write(w+'ПЕНТУНВИГИНТИЛЬ');
          8: Write(w+'ОКТУНВИГИНТИЛЬ');
          10: Write(w+'ДЕКУНВИГИНТИЛЬ');
        end;
    else Write(w+'БЕЗ НАЗВАНИЯ');
  end;
  Write('уровень ' + IntToStr(i3));
  i := 0;
  if i2 = 1 then
    begin
      Inc(i);
      Inc(a[1]);
    end
  else
    while i2 > 1 do
      begin
        Inc(i);
        a[i] := i2 div i1;
        l := i1;
        i1 := i2 mod i1;
        i2 := l;
      end;
  s := 0;
  for l := 1 to i do
    s := s + a[l];
  g1 := i3 * 12 / s;
  l := Trunc(g1);
  if Frac(g1) > 0 then
    Inc(l);
  if a[1] = 1 then
    begin
      g1 := 1 / (a[i] + l);
      g2 := -(1 / (a[i] + l));
    end
  else
    begin
      g1 := 1 / (a[i] + (1 / l));
      g2 := 1 / (a[i] - 1 + (1 / (1 + (1 / l))));
    end;
  for i := i - 1 downto 1 do
    begin
      g1 := 1 / (a[i] + g1);
      g2 := 1 / (a[i] + g2);
    end;
  g1 := g1 * 360;
  g2 := g2 * 360;
  mid := (g1 + g2) / 2;
  orb := Abs(g1 - mid);
  Write;
  Write('ГРАНИЦА_1 = ' + FloatToStr(g1));
  Write('ГРАНИЦА_2 = ' + FloatToStr(g2));
  Write('СРЕДНЕЕ = ' + FloatToStr(mid));
  Write('ОРБИС = ' + FloatToStr(orb));
end;
Кроме того, хотелось бы видеть на графике взаимодействий планет (который открывается по щелчку на дуге аспекта) - указатели границы аспекта.
А ещё лучше - чтобы была возможность видеть не только конкретный аспект, а в развернутом во времени виде возникновение и спадание всех аспектов между этими планетами. Например: нарастание оппозиции, спад оппозиции, [нет аспекта], нарастание биквинтиля... и т.д.

Большое спасибо Вам за программу.

Добавлено: 03 дек 2008, 10:48
JurisN
Приветствую,
регулярно решаю задачу: "Выбот даты и времени рекламного времени на ТВ". В месяц выходов от 20 до 60 раз. Каждую дату надо просмотреть. Пользуюсь 16 гармоникой и 4-я кругами (Натал, Дирекция, Прогресия, Транзит)
Картинка получается такая:
Изображение
Совсем трудно понять попадает ли Гадес в орбис +/-1 градус или нет :( :( :(

Добавлено: 03 дек 2008, 13:50
Анатолий Зайцев
В орбис с чем?
Пользуйтесь инструментом "Указатель" (Alr+U) для точного наведения на заданный объект.

Добавлено: 03 дек 2008, 15:18
JurisN
Анатолий Зайцев писал(а):В орбис с чем?
С полусуммой MC/AS, формула 11.
Анатолий Зайцев писал(а):Пользуйтесь инструментом "Указатель" (Alr+U) для точного наведения на заданный объект.
Только им и пользуюсь, хороше хоть он есть :)

Хочется чегото таког-то:

Изображение

Добавлено: 09 дек 2008, 13:06
hippocamus
Мда... Нечего сказать, своеобразный форум. :(
Обычно когда задан вопрос, то хоть какой-то ответ бывает, вроде ж не глупость спрашиваю...

Ладно, проехали.
У меня есть ещё такое предложение:
сделать чтобы к Zet можно было писать плагины. Чтобы плагином можно было подключить новый тип карты, новые возможности для токования, новые виды предоставления информации.
Например:

плагин для карты, мог бы содержать следующие функции:

Код: Выделить всё

procedure Config; // позволяет дополнить/уточнить информацию
function HasAspect(P1, P2: TPlanet): TAspectDef;
function Interpretate(S: TSituation): WideString;
Если какая-то фунция не определена - используется стандартная.
Соответственно, нужно сделать основные классы public, возможно - создать interface. Понимаю, что это усложнит механизмы защиты, но ведь всё равно - защита - она от честных людей.

Добавлено: 09 дек 2008, 17:51
Татьяна Черноглазова
Добрый вечер Анатолий Владимирович!
В очередь на программу ZET 9 можно записаться? :P

Закрытое альфа-тестирование ZET 9

Добавлено: 16 дек 2008, 12:04
Анатолий Зайцев
В январе 2009 предполагается начать закрытое альфа-тестирование ZET 9.
Приглашаются пользователи ZET 8 Geo, владеющие компьютером на уровне выше среднего, и желающие в последствии обновить ZET 8 Geo до ZET 9.
Целью альфа-тестирования будет являться определение существенных недоделок в программы и выдача рекомендаций по приоритетным направлениям её доработки.
Для участия в тестировании нужно подать заявку на email azet@mail.ru и оплатить стоимость обновления ZET 8 Geo до ZET 9 (55 USD).

Добавлено: 19 дек 2008, 23:21
Тимур
Добрый день. А Вебмани принимаются?

Добавлено: 19 дек 2008, 23:31
chela
Тимур писал(а):Добрый день. А Вебмани принимаются?
Принимаются.

Добавлено: 20 дек 2008, 11:00
Анатолий Зайцев
Приём заявок на тестирование ZET 9 заканчивается 20.12.08 в 12:00 GMT..

Добавлено: 20 дек 2008, 12:48
Сергей Любимов
А я тоже хочу!

Добавлено: 20 дек 2008, 13:33
С_Елена
Анатолий, если еще есть шанс, примите и меня :oops:
Не предполагала, что будет ограничение в сроках, и увидела - только сейчас. Вроде бы до 12:00 GMT уложилась. :roll:

УХ ТЫ!!!! :shock:
Это что ж, правку вернули? :)

Добавлено: 20 дек 2008, 20:34
Анатолий Зайцев
Сергей Любимов писал(а):А я тоже хочу!
Сергей, Вы, кажется, не являетесь пользователем ZET 8 Geo, кроме того, заявки предлагалось посылать по email.

Добавлено: 20 дек 2008, 21:38
Сергей Любимов
Извините, не увидел, хотя, еще перечитал анонс, довольно интересные заявления, если и в правду этим можно будет пользоваться, то это здорово.

Для меня важна сама картинка, визуальное восприятие,
я ведь много лет рисовал на бумаге, причем очень своеобразно, ни на одну школу не похоже, к ZETу привыкал с ужасным трудом и до сих пор не понял, смог ли достичь с компом того мастерства.


Вообще интересно за время существования ZETа кто нибудь стал астрологом, именно с этой программой, именно глядя на картинку ZET? Или хотя бы стал себя таковым чувствовать, и смог себя оным назвать, или все таки учились все на других картинках.

Добавлено: 20 дек 2008, 21:51
С_Елена
Да, Сергей, интересный вопрос. Я вот успела и Альмагесту привыкнуть. И до сих пор тянет на тот тип карты, много в распечатках осталось.... Эх, ностальгия. Так бы хотелось и такой вариант круга иметь, хотя, там мне очень редакция не нравилась. Но на тот момент - это было круто.
Была еще прога Атрологос, эх... :) нашла её недавно. Но руки не доходят - узнать, что там в ней и как сейчас. Создатели то... ;)
Часовой пояс: UTC+03:00
Страница 2 из 203

Создано на основе phpBB® Forum Software © phpBB Limited

Русская поддержка phpBB