NAME

PrimaryDirection:
Compute a primary direction between 2 zodiacal points.

USAGE

PrimaryDirection longitudeA_rads latitudeA_rads longitudeB_rads latitudeB_rads place_latitude_rads sidereal_time_rads epsilon_rads mean_sun_ra_speed_rads [-campanus]

PARAMETERS

longitudeA_rads:

The radians longitude of the first zodiacal point at birth time
(may be a planet or an aspected point)

latitudeA_rads:

The radians latitude of the first point at birth time
(may be a planet or an aspected point)

longitudeB_rads:

The radians longitude of the second zodiacal point at birth time
(may be a planet or an aspected point)

latitudeB_rads:

The radians latitude of the second zodiacal point at birth time
(may be a planet or an aspected point)

place_latitude_rads:

The radians latitude of the birth place.

sidereal_time_rads:

The radians sidereal time for the birth moment.

epsilon_rads:

The radians epsilon angle at birth moment.

mean_sun_ra_speed_rads:

The mean right ascension speed per day of the sun in radians. (see MeanRASunSpeed)
if set to 0 or negative value, this value will not be used to convert direction angle to age.

OPTIONS

campanus:

if set the campanus method will be used.
Note that campanus gives same results as regiomontanus.

if no set, the placidus method will be used.

None

RETURN

The age the direction will happen.

EXAMPLE

set npA 2
set npB 8
set msras [MeanRASunSpeed]

#--longitude and latitude of A
set longitudeA [MovLongOfPlanet $npA ]
# translate to radians
set longitudeA [D2R $longitudeA]

set latitudeA  [LatOfPlanet $npA -mov]
# translate to radians
set latitudeA [D2R $latitudeA]

#--longitude and latitude of B
set longitudeB [MovLongOfPlanet $npB ]
# translate to radians
set longitudeB [D2R $longitudeB]

set latitudeB  [LatOfPlanet $npB -mov]
# translate to radians
set latitudeB [D2R $latitudeB]

set place_latitude [LatitudeOfBirthPlace -noformat]
# translate to radians
set place_latitude [D2R $place_latitude]

set ts [SiderealTime]
set epsilon [EpsilonAngleEOD]

PutTxt "--- test direction [NameOfPlanet $npA] to [NameOfPlanet $npB] ---"
PutTxt "Mean RA Sun Speed degrees: [R2D $msras]"

set age [PrimaryDirection $longitudeA $latitudeA $longitudeB $latitudeB $place_latitude $ts $epsilon $msras]
PutTxt "Direction Placidus [NameOfPlanet $npA] to [NameOfPlanet $npB] at $age year old"

set age1 [PrimaryDirection $longitudeA $latitudeA $longitudeB $latitudeB $place_latitude $ts $epsilon $msras -campanus]
PutTxt "Direction Campanus [NameOfPlanet $npA] to [NameOfPlanet $npB] at $age1 year old"

set msras 0
PutTxt "--- test direction [NameOfPlanet $npA] to [NameOfPlanet $npB] ---"
PutTxt "Mean RA Sun Speed degrees: [R2D $msras]"

set age [PrimaryDirection $longitudeA $latitudeA $longitudeB $latitudeB $place_latitude $ts $epsilon $msras]
PutTxt "Direction Placidus [NameOfPlanet $npA] to [NameOfPlanet $npB] at $age year old"

set age1 [PrimaryDirection $longitudeA $latitudeA $longitudeB $latitudeB $place_latitude $ts $epsilon $msras -campanus]
PutTxt "Direction Campanus [NameOfPlanet $npA] to [NameOfPlanet $npB] at $age1 year old"

Output:

--- test direction Mercury to MH ---
Mean RA Sun Speed degrees: 0.925007983574292
Direction Placidus Mercury to MH at 61.404379211704324 year old
Direction Campanus Mercury to MH at 56.04928079167591 year old
--- test direction Mercury to MH ---
Mean RA Sun Speed degrees: 0.0
Direction Placidus Mercury to MH at 56.79954099724979 year old
Direction Campanus Mercury to MH at 51.84603220589744 year old