26-03-2011
Static Cycles
Astronomie is de wetenschap die zich bezighoudt met de observatie en studie van alle fenomenen buiten de atmosfeer van Aarde ( Wikipedia).
Daaronder vallen dan natuurlijk ook de planeten van ons Zonnestelsel.
In ons Zonnestelsel draaien alle planeten in een baan om de Zon.
Die baan wordt weergegeven als een cirkel van 360 graden, maar onthoudt dat die planeetbanen meer of minder ellipsvormig zijn.
Elke planeet draait met zijn eigen snelheid in zijn eigen baan om de Zon (omlooptijd).
Zo doet bijvoorbeeld Mercurius ( een God in de Romeinse mythologie) er 88 Aardse dagen over om een rondje om de Zon te maken terwijl de aarde er 365 Aardse dagen over doet en bijvoorbeeld Mars (ook een God in de Romeinse mythologie) doet er bijna 687 dagen over.
Het is dan ook eenvoudig voor te stellen dat elke keer wanneer je naar buiten naar de stand van de planeten kijkt de situatie telkens weer anders is.
Om de plaats van de planeten aan te duiden en hun onderlinge positie ten opzichte van elkaar heeft de Astronomie diverse afspraken gemaakt.
In dit stukje wilde ik het even hebben over de onderlinge posities van de planeten op bepaalde tijdstippen.
Weergave 1:
In weergave 1 ziet u een 'opname' van de stand van de planeten op 20-Maart-2011 om 15.22 uur.
Vanaf Jupiter naar Mercurius wordt 90 graden afgelegd in de cirkel van 360 Graden.
Van Mercurius naar Saturnus wordt ook 90 graden afgelegd in de cirkel van 360 graden.
A Square is een vierkant met hoeken van 90 graden, en daarom noemt men die afstand in de cirkel in de Astronomie 'a square'.
Wanneer de planeten dus 90 graden uit elkaar staan noemt men dat square.
In het tabelletje links boven in weergave 1 ziet u dat Jupiter een longitude heeft van 14,9 graden en Mercurius heeft een longitude van 104 graden.
Het verschil is dus 89,1 graden en niet 90 graden.
Men hanteert dan meestal ook een marge van een paar graden.
We zien nog iets in weergave 1, en ik heb dat even met een lijn voor u aangegeven in onderstaande weergave twee.
Weergave 2:
U ziet twee gele lijnen getrokken in weergave 2.
De ene lijn tussen de Aarde en Uranus en de andere lijn tussen Saturnus en Jupiter.
Wanneer u even in de tabel links bovenin de afbeelding kijkt zult u zien dat het verschil in longitude bijna 180 graden is, dit noemen we 'opposition'.
.
We zien nog iets moois
Kijkt u eens in de tabel links boven in de weergave onder het woord Declination.
U ziet dan dat de Aarde en Uranus een verschil hebben wat minder dan een graad ( booggraad) is.
Dit wordt Parallel genoemd..
.
Nog één weergave en dan gaan we verder ...
Weergave 3:
U ziet dat op het zelfde moment de planeten Mars en Mercurius onder een hoek van 120 graden staan.
Mars staat op 343 en Mercurius op 104 graden.
343 +120 --> 463
463-360 geeft 103, dat is dus de 104 van Mercurius.
Dit Aspect wordt Trine genoemd.
Wanneer we ons nu beperken tot de Longitude dan kunnen we de volgende Aspecten waarnemen.
Ik heb ze even in een tabelletje geplaatst met er achter het aantal graden.
Tabel 2:
Naam Graden
Conjunction 0
SemiSextile 30
SemiSquare 45
Sextile 60
Quintile 72
Square 90
Trine 120
Sesquiquadrate 135
BiQuintile 144
Quincunx 150
Oppostion 180
We zien hier duidelijk herhalingen voorkomen, zoals de 30 die herhaald wordt in 60 -90-120-150-180.
Ook de 45 wordt herhaald als 90 - 135 -180
Ook de 72 als 144
.
We kunnen deze hoeken weer uitzetten in de Cirkel van 360 graden met daaromheen de kalender van 365 Aardse dagen.
Let op dat hier staat cirkel van 360 graden en 365 Aardse dagen.
In het latere vervolg van dit Gann stukje zult u namelijk zien dat er ook cirkels zijn met een ander aantal graden en een ander aantal dagen; maar eerst even de basis.
Met de weergave van Square, (90 graden) en SemiSquare ( 45 graden) heeft u al kennis gemaakt in het begin van dit artikel toen de seasonal-dates werden behandeld, u weet wel de datums van de jaargetijden -wisseling en de 50% er tussen in.
Bij de DeathZone zag u al dat het aantal dagen of graden niet vanuit één van deze vaste data moet worden bekeken, maar dat u ook uit kan gaan van een belangrijke top of bodem in de koersgrafiek.
Stel nu dat we denken dat 18-Februari-2011 een belangrijke top is.
En stel nu dat we denken dat Trine een belangrijk aspect zou kunne zijn in dit geval.
De volgende belangrijke data zouden dan 120 graden en 240 graden en 360 Graden ( verjaardag) verder op liggen.
We zouden dit als volgt weer kunnen geven.
Weergave 4:
In bovenstaande weergave heb ik even de belangrijke punten vergroot voor u weergegeven.
U ziet dat de start met de binnencirkel op 0 graden ligt op 18-Februari.
De vervolg data die dan uit Trine volgen zijn 21 Juni (seasonal date) en 22 October.
Zo kan dat voor alle aspecten natuurlijk.
Wat zijn nu de belangrijke aspecten om mee te werken?
Wel, laten we als start voor de basis voorlopig even werken met de volgende tabel.
Tabel 3:
Naam Graden Dagen
Square 90
Trine 120
Sextile 60
SemiSquare 45
SemiSextile 30
49-days DeathZone 49
72 dagen 72
144 dagen 144
216 dagen 216
Hoe pakt dit nu uit in de praktijk van alledag, kunnen we wat met deze statische cycli?
U mag daar zelf wat onderzoek naar doen, en daarvoor heb ik voor u even een indicator geschreven in TA-script waarmee u zelf bovenstaande hoeken en dagen kan uitzetten in een grafiek vanaf een belangrijke top of bodem.
De indicator kan u vinden onder de link:
viewtopic.php?p=5833#5833
Hieronder een grafiek gemaakt met als startdatum de top in Juli-2007 en daarna elk jaar weer vanaf die datum een cyclus van 72 -144 - 216 en 288 kalender dagen uitgezet.
Grafiek:
.
U zal zien dat vaste cycli soms erg mooi werken en dan ineens niet meer werken.
Getallen zijn vibraties met als grondvibraties de getallen 1 t/m9.
Alle getallen zijn interacties van vibraties.
Deze interacties zijn er de oorzaak van dat cycli soms zomaar schijnen te verdwijnen of uit het niets opduiken.
Gann zelf werkte volgens mij dan ook niet met vaste cycli, en bovenstaande moet u dan ook zien als een inleiding tot ... en wat dat is....... dat vindt u in de vervolgstukjes in deze serie terug.
Helaas zult u daarvoor enkele maanden geduld moeten uitoefenen.
In die tussentijd kunt u mooi even zelf een en ander bestuderen
.
Bovenstaand stukje vindt u ook terug onder de link:
http://www.jstas.com/Gann/gann_seasonal.htm#26-03-2011
.
Alle voorgaande stukjes zijn te lezen onder de link:
http://www.jstas.com/Gann/gann_seasonal.htm
Gebruik daar de tabel met bladwijzers om snel door het stukje te navigeren.
.
Vriendelijke groet,
Jan
e-mail
Jan@JSTAS.com
.
Hieronder de ta-script zodat u zelf wat kan experimenteren.
Code: Selecteer alles
{- Filename: Gann dates static -}
{Static dates volgens Gann}
{Kalenderdagen }
{www.JSTAS.com }
{Versie 1.00 }
{dd. 26-03-2011}
{******************************************************************************}
{************************** Static Dates ************************************}
Type
StaticDate=Record
Corr,Squ,Trine,SxT,SeSqu,SemSxT,D49,D72,D144,D216,D288,FrCyc,IndNm : Boolean;
SquCl,TrineCl,SxtCl,SeSquCl,SemSxtCl,D49Cl,D72Cl,D144Cl,D216Cl,D288Cl,FreeCl,
SquTp,TrineTP,SxtTp,SeSquTp,SemSxtTp,D49Tp,D72Tp,D144Tp,D216Tp,D288Tp,FreeTp,
Yrs,TxtGrt,FrCLgt,PltsDat,PltsNm,PltsHNv,PltsVNv,NvCl,Cyclus : Integer;
StrtDt : TDateTime;
End;
Var
SD :StaticDate;
//
{******************************************************************************}
{************************** Keuze lijn-type ***********************************}
Function Lijnsoort(Lijntype:Integer):TTrendLineStyle;
Begin
Case Lijntype of
1: Result:=LsSolid ;
2: Result:=LsDash ;
3: Result:=LsDot ;
4: Result:=LsDashDot ;
5: Result:=LsDashDotDot;
End;
End;
//
{*----------------------------------------------------------------------------*}
{* ---Functie om een TColor te selecteren doormiddel van een Integer getal----*}
Function KleurSelec(Selec:Integer): TColor;
Begin
case Selec of
0: Result := clAqua; 1: Result := clBlack;
2: Result := clBlue; 3: Result := clDkGray;
4: Result := clFuchsia; 5: Result := clGray;
6: Result := clGreen; 7: Result := clLime;
8: Result := clltGray; 9: Result := clMaroon;
10: Result := clNavy; 11: Result := clOlive;
12: Result := clPurple; 13: Result := clRed;
14: Result := clSilver; 15: Result := clTeal;
16: Result := clWhite; 17: Result := clYellow;
18: Result := RGB(196,196,0);
else
Result := clGray;
end;
End;
//
{******************************************************************************}
{************************** Gebruiker keuzes **********************************}
Procedure Userchoices;
Var
KzeKl, LijnTyp : String;
Begin
Indicator.NewBand := False;
KzeKL := 'Aqua' #9
'Black' #9
'Blue' #9
'DkGray' #9
'Fuchsia'#9
'Gray' #9
'Green' #9
'Lime' #9
'LtGray' #9
'Maroon' #9
'Navy' #9
'Olive' #9
'Purple' #9
'Red' #9
'Silver' #9
'Teal' #9
'White' #9
'Yellow' ;
LijnTyp := 'Doorgetrokkenlijn '#9
'Gestreepte lijn '#9
'Gestippelde lijn '#9
'Streep-Stippel lijn'#9
'Streep-Stip-Stip-lijn';
SD.StrtDt:= CreateParameterDate('StartDatum:',EncodeDate(2010,05,25));
SD.Squ := CreateParameterBoolean('Squarelines weergeven?',True,False);
SD.Trine := CreateParameterBoolean('Trine-lines weergeven?',False,False);
SD.SxT := CreateParameterBoolean('Sextilelines weergeven?',False,False);
SD.SeSqu := CreateParameterBoolean('SemiSquare lines weergeven?',False,False);
SD.SemSxT:= CreateParameterBoolean('SemiSextile lines weergeven?',False,False);
SD.D49 := CreateParameterBoolean('49-Day line weergeven?',False,False);
SD.D72 := CreateParameterBoolean('72-Day line weergeven?',False,False);
SD.D144 := CreateParameterBoolean('144-Day line weergeven?',False,False);
SD.D216 := CreateparameterBoolean('216-Day line weergeven?',False,False);
SD.D288 := CreateParameterBoolean('288-Day line weergeven?',False,False);
SD.FrCyc := CreateParameterBoolean('Zelf een Cyclus opgaven?',False,False);
SD.Cyclus:= CreateParameterInteger('Geef eigen cyclus lengte:',1,365,20,False);
SD.Yrs := CreateParameterInteger('Aantal weer te geven jaren:',1,100,1,False);
SD.SquCl := CreateParameterSelect('Kleur SquareLines',KzeKl,3,False);
SD.SquTp := CreateParameterSelect('Type SquareLines',LijnTyp,1,False)+1;
SD.TrineCl := CreateParameterSelect('Kleur Trine-Lines',KzeKl,3,False);
SD.TrineTp := CreateParameterSelect('Type Trine-Lines',LijnTyp,1,False)+1;
SD.SxTCl := CreateParameterSelect('Kleur Sextile-Lines',KzeKl,3,False);
SD.SxTTp := CreateParameterSelect('Type Sextile-Lines',LijnTyp,1,False)+1;
SD.SeSquCl := CreateParameterSelect('Kleur Semi-SquareLines',KzeKl,3,False);
SD.SeSquTp := CreateParameterSelect('Type Semi-SquareLines',LijnTyp,1,False)+1;
SD.SemSxTCl:= CreateParameterSelect('Kleur SemiSextile-Line',KzeKl,3,False);
SD.SemSxTTp:= CreateParameterSelect('Type SemiSextile-Line',LijnTyp,1,False)+1;
SD.D49Cl := CreateParameterSelect('Kleur 49-Day-Line',KzeKl,3,False);
SD.D49Tp := CreateParameterSelect('Type 49-Day-Line',LijnTyp,1,False)+1;
SD.D72Cl := CreateParameterSelect('Kleur 72-Day-Line',KzeKl,3,False);
SD.D72Tp := CreateParameterSelect('Type 72-Day-Line',LijnTyp,1,False)+1;
SD.D144Cl := CreateParameterSelect('Kleur 144-Day-Line',KzeKl,3,False);
SD.D144Tp := CreateParameterSelect('Type 144-Day-Line',LijnTyp,1,False)+1;
SD.D216Cl := CreateParameterSelect('Kleur 216-Day-Line',KzeKl,3,False);
SD.D216Tp := CreateParameterSelect('Type 216-Day-Line',LijnTyp,1,False)+1;
SD.D288Cl := CreateParameterSelect('Kleur 288-Day-Line',KzeKl,3,False);
SD.D288Tp := CreateParameterSelect('Type 288-Day-Line',LijnTyp,1,False)+1;
SD.FreeCl := CreateParameterSelect('Kleur vrije-lijn:',KzeKl,3,False);
SD.FreeTp := CreateParameterSelect('Type vrije-lijn:',LijnTyp,1,False)+1;
SD.TxtGrt := CreateParameterInteger('Tekst-grootte:',8,14,8,False);
SD.PltsDat:= CreateParameterInteger('Plaats Datum:',1,100,99,False);
SD.PltsNm := CreateParameterInteger('Plaats Lijn-naam:',1,100,3,False);
SD.IndNm := CreateParameterBoolean('Indicatornaam weergeven?',True,False);
SD.PltsHNv:= CreateParameterInteger('Hor.plaats Naamverm.:',1,100,1,False);
SD.PltsVNv:= CreateParameterInteger('Vert.plaats Naamverm:',1,100,95,False);
SD.NvCl := CreateParameterSelect('Kleur naamvermelding:',KzeKl,13,False);
End;
//
{******************************************************************************}
{***************************** Trendlijn **************************************}
Procedure Trendlijn(Datum:TDateTime; Kleur,Lijntype: Integer);
Begin
With CreateTrendLine(Datum,0,Datum,0) Do
Begin
Y1PCT := 0;
Y2PCT := 100;
Color := KleurSelec(Kleur);
Style := Lijnsoort(Lijntype);
End;
End;
//
{******************************************************************************}
{*************************** Tekst weergave datum *****************************}
Procedure Text(Datum:TDateTime; Kleur,Plts:Integer);
Var
Jaar,Maand,Dag : Integer;
Begin
DecodeDate(Datum,Jaar,Maand,Dag);
With CreateText(Datum,0,' '+IntToStr(Dag)+'-'+IntToStr(Maand))
Do Begin
Font.Size := SD.TxtGrt;
Color := KleurSelec(Kleur);
Y1PCT := Plts;
End;
End;
//
{******************************************************************************}
{*************************** Tekst weergave type *****************************}
Procedure Text2(Datum:TDateTime;Kleur,Plts:Integer;Tekst:String);
Begin
With CreateText(Datum,0,' '+Tekst)
Do Begin
Font.Size := SD.TxtGrt;
Color := KleurSelec(Kleur);
Y1PCT := Plts;
End;
End;
//
{******************************************************************************}
{*************************** Indicator naam ***********************************}
Procedure IndicatorName();
Begin
With CreateText(0,0,'Gann Static Dates www.JSTAS.com')
Do Begin
Font.Size := Sd.TxtGrt;
Color := KleurSelec(Sd.NvCl);
X1PCT := SD.PltsHNv;
Y1PCT := SD.PltsVNv;
End;
End;
//
{******************************************************************************}
{**************************** Line generator ****************************}
Procedure LineGen(Jv,Kleur,Typ:Integer; MultiPl:Real;Tekst:String);
Var
j,k,Jaar,Maand,Dag : Integer;
StartDat : TDateTime;
Begin
For k := 1 To SD.Yrs Do
Begin
DecodeDate(SD.StrtDt,Jaar,Maand,Dag);
Jaar := Jaar+k-1;
StartDat := EncodeDate(Jaar,Maand,Dag);
For j := 1 To Jv Do
Begin
Trendlijn(StartDat+ Ceil(((MultiPl*j)/360.0)*365),Kleur,Typ);
Text (StartDat+ Ceil(((MultiPl*j)/360.0)*365),Kleur,Sd.PltsDat);
Text2(StartDat+ Ceil(((MultiPl*j)/360.0)*365),Kleur,Sd.PltsNm,Tekst);
End;
End;
End;
//
{******************************************************************************}
{***************************** Free cycle *************************************}
Procedure FreeCyc(kleur,Typ:Integer; Tekst:String);
Var
j,a : Integer;
Begin
a:=(Trunc(365/Sd.Cyclus))*Sd.Yrs;
For j := 1 To a Do
Begin
TrendLijn(Sd.StrtDt+Sd.Cyclus*j,Kleur,Typ);
Text (Sd.StrtDt+Sd.Cyclus*j,Kleur,Sd.PltsDat);
Text2(Sd.StrtDt+Sd.Cyclus*j,Kleur,Sd.PltsNm,Tekst);
End;
End;
//
{******************************************************************************}
{****************************** Startlijn ************************************}
Procedure Startlijn();
Var
Jaar,Maand,Dag,k,Jr : Integer;
Datum : TDateTime;
Begin
DecodeDate(Sd.StrtDt,Jaar,Maand,Dag);
Jr := Jaar
For k := 1 To Sd.Yrs Do
Begin
If Not Sd.FrCyc Then Jaar := Jr-1+k;
Datum:=EnCodeDate(jaar,Maand,Dag);
Trendlijn(Datum,13,3);
Text2(Datum,13,Sd.PltsNm,'S');
Text2(Datum,13,Sd.PltsDat,IntToStr(Dag)+'-'+IntToStr(Maand));
End;
End;
//
{******************************************************************************}
{************************** Tekenen van lijnen ********************************}
Procedure Tekenlijnen();
Begin
Indicator.shortname := 'Static Dates';
Indicator.Newband := False;
Userchoices();
If Sd.Squ Then LineGen(4 ,Sd.SquCl ,Sd.SquTp ,90.0 ,'Sq' );
If Sd.Trine Then LineGen(3 ,Sd.TrineCl ,Sd.TrineTp ,120.0,'Tr' );
If Sd.Sxt Then LineGen(6 ,Sd.SxTCl ,Sd.SxTTp ,60.0 ,'Sx' );
If Sd.SeSqu Then LineGen(8 ,Sd.SeSquCl ,Sd.SeSquTp ,45.0 ,'sSq' );
If SD.SemSxT Then LineGen(12,Sd.SemSxTCl,Sd.SemSxtTp,30.0 ,'sSx' );
If Sd.D49 Then LineGen(1 ,Sd.D49Cl ,Sd.D49Tp ,48 ,'49D' );
If Sd.D72 Then LineGen(1 ,Sd.D72Cl ,Sd.D72Tp ,71 ,'72D' );
If Sd.D144 Then LineGen(1 ,Sd.D144Cl ,Sd.D144Tp ,142 ,'144D');
If Sd.D216 Then LineGen(1 ,Sd.D216Cl ,Sd.D216Tp ,213 ,'216D');
If Sd.D288 Then LineGen(1 ,Sd.D288Cl ,Sd.D288Tp ,284 ,'288D');
If Sd.FrCyc Then FreeCyc(Sd.FreeCl,Sd.FreeTp,'Fr');
If Sd.IndNm Then IndicatorName();
Startlijn();
End;
//
{******************************************************************************}
{***************************** Main program ***********************************}
Begin
Tekenlijnen();
End.
//******************************************************************************
Succes allemaal
Mail mag naar Jan@JSTAS.com.
Uitleg onder de weblink: www.JSTAS.com/Gann/gann_seasonal.htm
Sq = Square
Tr = Trine
Sx = Sextile
sSq = Semi Square
sSx = Semi Sextile
.
[/code]