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