Sistema de división de Casas de Morinus:

 

 

 

Sistema de Casas de Morinus

Sistema de Morinus:

 

Desarrollado por Jean Batiste Morin de Villefranche, (1583-1656), que fue medico y profesor de matemáticas del Real Colegio de Francia desde 1630. Su sistema tiene la ventaja de poder usarse en las regiones polares. 

 

Aqui ni el Mc es la cúspide de la C(10) ni el Asc la cúspide de la C(1). Para obtener las cúspides de las Casas se divide el ecuador en 12 partes iguales (arcos de igual Ascensión Recta) a partir del meridiano y se busca la intersección con la ecliptica de los planos que pasan por esas divisiones y los Polos Norte y Sur ecliptico. Los valores de las cúspides no varian con la latitud por lo que puede emplearse en zonas polares. 

 

Morin publicó una monumental obra, en latin, sobre Astrologia, "Astrologia Gallica", que no ha tenido mucha influencia posterior a causa de no existir una traducción, mas que de partes. El astrólogo y periodista inglés Edward Lindoe y también el medico y astrologo alemán Adolf Weiss han difundido en parte las enseñanzas de este autor a partir de los estudios de Selva. Para quien quiera conocer bien la astrologia de Morin lo mejor es recurrir directamente al libro de Selva, astrologo frances que estudio a Morin directamente desde su original en latin y expone con gran claridad de ideas sus teorias: LA THÉORIE DES DÉTERMINATIONS ASTROLOGIQUES DE MORIN DE VILLEFRANCHE y tambien a las modernas traducciones al español que se han hecho de algunos capitulos de la Astrologia Gallica.

 

Para quien este interesado en la programacion he preparado este programa que realiza el cálculo de las cúspides de las Casas de Morinus y tambien del Medio cielo y el Ascendente:

[morinus]
 gosub [prin] ' esta rutina es comun a todos los sistemas de Casas, calcula el M.Cielo y el Ascendente
 a=0  :gosub [CM]:cus4=R+180:gosub [CU4]
 a=30 :gosub [CM]:cus5=R+180:gosub [CU5]
 a=60 :gosub [CM]:cus6=R+180:gosub [CU6]
 a=90 :gosub [CM]:cus1=R    :gosub [CU1]
 a=120:gosub [CM]:cus2=R    :gosub [CU2]
 a=150:gosub [CM]:cus3=R    :gosub [CU3]
goto [daCa]

[CM]
 F=hs+a : call cuadrante F

 R=atn(tan(F*ra)*cos(ec*ra))/ra :if R<0 then R=R+180

'La formula que da las cuspides de Morinus es esta. ra es el paso de grados a radianes y R la cuspide. ec es la 'oblicuidad de la ecliptica y F el angulo en Ascension Recta de la cuspide.

 
 if hsL>180-a and hsL<360-a then R=R+180
 call cuadrante R
return

[CU1] call cuadrante cus1:call gSm cus1:cus1$=planet$ :return
[CU2] call cuadrante cus2:call gSm cus2:cus2$=planet$ :return
[CU3] call cuadrante cus3:call gSm cus3:cus3$=planet$ :return
[CU4] call cuadrante cus4:call gSm cus4:cus4$=planet$ :return
[CU5] call cuadrante cus5:call gSm cus5:cus5$=planet$ :return
[CU6] call cuadrante cus6:call gSm cus6:cus6$=planet$ :return

[prin]
 la=lat.d
 ec=o.e12
 CASAS$=""
 hs=hsL:if hemisferio$="S" then hs=hsL+180
 if hsL=360 then hs=0
 if hs=0 then hs=360

Ts=tan(hsL*ra) :if cos(hsL*ra)<0 then Ts=-1*Ts
'...... Medio cielo
 Mc=atn(Ts/cos(ec*ra))/ra :if cos(hsL*ra)<0 then Mc=180-Mc
 if Mc<0 then Mc=360+Mc
 if hsL=0 or hsL=360 then Mc=0
 call gSm Mc :Mc$=planet$
 cus4=Mc+180:call cuadrante cus4 :call gSm cus4 :cus4$=planet$
 if Tran=0 then #da.Ca4 planet$ :#da.mci Mc$ else #da.C4 planet$: #da.mc Mc$
 IC=cus4

'...... Ascendente
 hemisferio$="N" :if mid$(latitud$,3,1)="S" then hemisferio$="S"
 hs=hsL :if hemisferio$="S" then hs=hsL+180
 angulo=tan(la*ra)*sin(ec*ra)+sin(hs*ra)*cos(ec*ra)
 Asc=atn(-1*cos(hs*ra)/angulo)/ra: if angulo<0 then Asc=Asc+180
 if hemisferio$="N" then Asc=Asc+180
 call cuadrante Asc :cus1=Asc :call gSm cus1 :cus1$=planet$

 lFo=l.a.l+Asc-Las :call cuadrante lFo :call gSm lFo:lFo$=planet$  'Parte de fortuna

 if Tran=0 then
  #da.asc cus1$
  #da.for lFo$
 else
  #da.as cus1$
  #da.fo lFo$
 end if
RETURN