Programmation pour astrologue

Tout pour développer efficacement des logiciels d'astrologie !

avec Borland-Delphi 32 Bits !

Ce manuel est régulièrement remis à jour

Les différents calculs : (voyez quelques échantillons en cliquant sur les liens)

Description : Delphi est un environnement de développement RAD. Grâce à son compilateur natif d'exécutables pour Windows, vos applications s'exécuteront beaucoup plus rapidement que si vous aviez utilisé un L4G interprété avec runtime. Delphi vous offre de nombreux outils visuels pour développer vos applications facilement et rapidement. Delphi 6 édition personnelle est gratuit en téléchargement, et il existe des éditions plus puissantes pour les professionnels et les entreprises. C'est sans aucun doute le meilleur outil de développement pour les logiciels d'astrologie.

Pour télécharger Delphi 6 Edition Personnelle (Gratuit) Pour obtenir votre Numéro d'installation (Gratuit) Pour télécharger la mise à jour de Delphi 6 Perso (Gratuit) Pour télécharger MLB, composant de gestion des bases de données (Gratuit) Pour téléchargez le logiciel AstroS (Gratuit)

Simuler la fonction Basic SGN

function sgn(valeur:real):shortint;
begin
 if valeur=0.00 then sgn:=0;
 if valeur<0.00 then sgn:=-1;
 if valeur>0.00 then sgn:=+1;
end;

{ ----- Fonctions mathematiques ajoutées à turbo pascal --- }

function degrad : real;
begin
  degrad :=pi/180;
end;

function radeg : real;
begin
  radeg :=180/pi;
end;

function Power(Base, Exponent: real): real;
begin
   if base >0.00 then
   Power :=exp(exponent*ln(base)) else
   Power:=0;
end;

function Asin(x:real): real;
begin
  Asin := arctan(x / (sqrt(1 - x * x)+1e-30));
end;

function arctan2( y, x : real ) : real;
var
angle : real;
begin
    IF (y = 0) THEN y := 0.00000000175453;
      IF (x = 0) AND (y > 0) THEN
            begin
      Arctan2 := pi / 2;
      EXIT;
            end;

      IF (x = 0) AND (y < 0) THEN
            begin
      Arctan2 := pi * 1.5;
      EXIT;
      END;
      angle := Arctan(y / x);
      IF (angle < 0) THEN angle := angle + pi;
      IF (y < 0) THEN angle := angle + pi;
      Arctan2 := angle;
end; {function}


function Z360(x:real):real;
var
nn : Longint;
xx : real;
begin
 nn :=trunc(x/360);
 xx :=x-nn*360;
 if (xx<0) then xx:=xx+360;
 z360 :=xx;
end;

FUNCTION Z360R(x :real):real;
var
nn : Longint;
xx : real;
begin
  nn := trunc(x / 360);
  xx := x - nn * 360;
  IF (xx < 0) THEN xx := xx + 360;
  xx :=xx*degrad;
  Z360r := xx;
end;

function Z24(x : real):real;
var
nn : longint;
xx : real;
begin
  nn := trunc(x / 24);
  xx := x - nn * 24;
  IF (xx < 0) THEN xx := xx + 24;
  Z24 := xx;
end;

function MumSigne(x : real):longint;
begin
 MumSigne := trunc(x / 30) + 1;
end;

function Tan(x:real):real;{ Tangente}
begin
 Tan:=sin(x)/cos(x);
end;

Calcul de l'ascension droite :

Fonction en Pascal :

function FNramc(t,gmt,lon:real) : real;   // calcul de RA ascension droite
begin
  result:=FNrad(FNmod((6.6460656 + (2400.0513 * t) +
  (0.000025805* t * t) + gmt) * 15 - lon));
end;

Pour utiliser cette fonction, on entre avec 3 paramètres :

• t : l'époque, le siècle, sous forme décimale
• gmt : heure et minutes de naissance sous forme décimale
  
• lon : Longitude sous forme décimale

function calcAyanamsa(t: real):real;   // t = jour julien
var
f,ln : real;
Off : real;
begin
  t:=((t-2415020)- 0.5)/36525;
  ln :=round((933060-6962911*t+7.5*t*t)/3600.0) mod 360; // Mean lunar node
  Off := (259205536.0*t+2013816.0)/3600.0;               // Mean Sun
  Off := 17.23*sin((pi/180) * ln)+1.27*sin((pi/180) * Off)-(5025.64+1.11*t)*t;
  Off := (Off- 80861.27)/3600.0;  // 84038.27 = Fagan-Bradley 80861.27 = Lahiri
  result:=Off;
end;

Pour calculer l'ayanamsa :(Décalage entre les 2 zodiaques sidéral et tropical)

• t : Jour julien

 function julian_day(day, month, year : integer):integer;
var
j,
im : integer;
begin
   im:=(12*(year+4800))+(month-3);
   j:=wholediv((2*(im-(wholediv(im,12))*12)+7+365*im),12);
   j:=j+day+wholediv(im,48)-32083;
   if (j>2299171) then
        j:=j+wholediv(im,4800)-wholediv(im,1200)+38;
result:=j;
end;

Pour calculer le jour julien :

Day : le jour de 1 au dernier jour du mois.
month : le mois de 1 à 12
year : l'année

Note : c'est une valeur entière qui est retournée !

Pour calculer la Part de Fortune : Pas de mathématiques compliquées !

La Part de Fortune se calcule en prenant l'angle de votre Ascendant, d'où l'on soustrait l'angle du Soleil dans votre signe et auquel l'on ajoute l'angle de la Lune. Donc : la Part de Fortune = Ascendant - Soleil + Lune.

Ainsi, la position du Soleil, de la Lune et de votre Ascendant est très importante dans le calcul de base de votre Part de Fortune. A l'arrière plan, le raisonnement est que ces trois énergies de l'homme qui lui donnent son caractère unique sont : le Soleil symbolisant l'identité et le choix conscient de ses objectifs, la Lune pour l'émotivité et les réactions conscientes et inconscientes de l'esprit, et finalement, l'Ascendant en tant que la personnalité percevable.

La jonction de ces trois positions forme la Part de Fortune. Il marque le point où le Soleil, la Lune et l'Ascendant sont en harmonie et où l'homme, par conséquent, a la chance de connaître le bonheur véritable.

Ce qui va poser le plus de problème à l'astrologue, c'est l'heure. Rappelons d'abord que, du point de vue astrologique, l'heure de naissance est celle du premier cri que l'enfant pousse ; à ce moment l'air ambiant pénètre dans les poumons du nouveau-né. Et cet air est chargé selon les ésotéristes des diverses influences planétaires qui vont imprimer le jeune enfant d'un sceau indélébile qui conditionnera toute son existence. Il est souvent difficile de connaître ce moment avec précision (à moins que la mère ne pratique ou ne s'intéresse elle-même de près à l'Astrologie).

D'autre part, l'état civil enregistre les naissances, et leur heure. Et ce depuis Napoléon 1er qui a rendu cette précision obligatoire. Hélas, trop souvent les naissances ont été enregistrées en arrondissant les heures ; ou alors le père (ou la personne qui venait déclarer la naissance) était souvent trop ému pour donner un renseignement aussi précis. Ce problème n'existe plus pour toute naissance dans un établissement spécialisé. Le personnel a en effet la charge de remarquer et de noter l'heure exacte de naissance. A titre d'anecdote, l'auteur a souvent remarqué, au cours de ses consultations, que des personnes connaissant leur heure de naissance avec une précision extrême, soit à la minute, avaient la plupart du temps une connotation majeure avec le signe de la Vierge (signe d'exactitude).

De même, au cours de la 2ème guerre mondiale, certains officiers d'état civil français auront eu tendance à inscrire l'heure française (TU - 1 h.), alors que le régime d'occupation imposait l'heure allemande (TU - 2 h.). Ce qui fait que le quart environ des heures de naissance annoncées officiellement seraient fausses ou arrondies.

Quant aux heures du XIXème siècle ou des siècles précédents, où les pendules n'avaient pas la précision de nos digitales modernes, comme des querelles de clochers, inutile d'en parler...

D'où une nécessité pour l'astrologue de corriger parfois quelque peu l'heure de naissance en fonction d'événements déjà référencés. Toutefois, l'étudiant devra d'abord se conformer à l'heure déclarée. C'est seulement en cas de difficulté à situer des événements écoulés, et uniquement dans ce cas, que ce dernier se permettra une correction horaire. Ceci est un premier écueil que l'expérience compensera.

En admettant cependant que l'on connaisse cette heure précisément, il faut encore savoir que cette heure est donnée en heure légale, c'est-à-dire celle en vigueur, par un décret-loi, dans un pays. Prenons l'exemple de la France : six règles essentielles sont à retenir :

1. jusqu'au 15 mars 1891, le temps dans chaque localité était l'heure solaire moyenne. Chaque ville et chaque village avaient leur heure propre, - celle de leur clocher. Soit l'heure locale (souvent inspirée également du cadran solaire).

2. du 15 mars 1891 au 9 mars 1911, l'heure légale française (et algérienne) était celle du méridien de Paris, qui est à 2° 20' (ou 9 mn 20 sec) à l'Est de Greenwich. Se renseigner pour les autres pays.

3. à cela s'ajoute, depuis 1916, une heure d'été, en avance d'une heure sur le méridien de Greenwich.

4. au moment de la Guerre 39-45, l'heure de la France envahie fut celle de l'Allemagne (avance de deux heures sur Greenwich). Le problème le plus épineux se posera pour les naissances entre 1940 et 1942 : découpage de la France entre une Zone Libre et une Zone Occupée. En effet, dans beaucoup de communes, les officiers d'état civil, malgré les directives allemandes d'occupation, ont continué d'inscrire l'heure française.

5. depuis le 16 septembre 1945 (03 heures du matin), la France avance systématiquement d'une heure sur le fuseau de Greenwich. (TU - 1 h.)

6. depuis l'été 1976, enfin, la France possède une Double Heure d'Été et elle est donc à l'heure de Leningrad (TU - 2 h.).

L'heure d'été (TU+2) a été en vigueur en France aux périodes suivantes
(toutes les heures sont indiquées en Temps Universel)

1976 : du 28/3 à 1h au 26/9 à 0h
1977 : du  3/4 à 1h au 25/9 à 1h
1978 : du  2/4 à 1h au 1/10 à 1h
1979 : du  1/4 à 1h au 30/9 à 1h 

1980 : du  6/4 à 1h au 26/9 à 1h 
1981 : du 29/3 à 1h au 27/9 à 1h 
1982 : du 28/3 à 1h au 26/9 à 1h 
1983 : du 27/3 à 1h au 25/9 à 1h 
1984 : du 25/3 à 1h au 30/9 à 1h 
1985 : du 31/3 à 1h au 29/9 à 1h 
1986 : du 30/3 à 1h au 28/9 à 1h 
1987 : du 29/3 à 1h au 27/9 à 1h 
1988 : du 27/3 à 1h au 25/9 à 1h 
1989 : du 26/3 à 1h au 24/9 à 1h 

1990 : du 25/3 à 1h au 30/9 à 1h 
1991 : du 31/3 à 1h au 29/9 à 1h 
1992 : du 29/3 à 1h au 27/9 à 1h 
1993 : du 28/3 à 1h au 26/9 à 1h 
1994 : du 27/3 à 1h au 25/9 à 1h
1995 : du 26/3 à 1h au 24/9 à 1h 

1996 : ATTENTION, changement par rapport aux années précédentes. Le
retour à l'heure d'hiver se fait fin octobre, et non pas fin septembre
comme avant :

1996 : du 31/3 à 1h au 27/10 à 1h 
1997 : du 30/3 à 1h au 26/10 à 1h 
1998 : du 29/3 à 1h au 25/10 à 1h
1999 : du 28/3 à 1h au 24/10 à 1h

2000 : du 26/3 à 1h au 29/10 à 1h
2001 : du 25/3 à 1h au 28/10 à 1h
2002 : du 31/3 à 1h au 27/10 à 1h
2003 : du 30/3 à 1h au 26/10 à 1h
2004 : du 28/3 à 1h au 31/10 à 1h