Gann

[Janus]

Korte update onder de link

http://www.jstas.com/2009/Dageljiks%20v ... fieken.htm

Plaatje erbij:



.

[Janus]

Ik heb een kort stukje geschreven over de Gauss - verdeling, Market -profile en een indicator geschreven in ta-script code die onderstaande grafiek produceert.
.
Het stukje is te lezen onder de link:

www.jstas.com/Gauss.htm

uur grafiek:



De ta-script code plaats ik in de topic hieronder.
.

[Janus]

De code voor de grafiek in bovenstaand stukje:

Code: Selecteer alles

{- Filename: Bell-Trend -}
// www.JSTAS.com
//September-2010

{*----------------------------------------------------------------------------*}
// Definïeren Functies en Procedures
{*----------------------------------------------------------------------------*}
{*-------------------------Definïeren B_Trend record -------------------------*}
Type
  B_Trend = Record
     HH,HL,LL,LH,SwLne : TSeries;
     UpSw,hUpSw,ColorUp,ColorDwn : Integer;
  End;
Var
BT : B_Trend;
//
{*----------------------------------------------------------------------------*}
{* ---Functie om een TColor te selecteren doormiddel van een Integer getal----*}
Function KleurSelec(Selec:Integer): TColor;
 Begin
   case Selec of
     1:  Result := clAqua;            2: Result := clBlack;
     3:  Result := clBlue;            4: Result := clDkGray;
     5:  Result := clFuchsia;         6: Result := clGray;
     7:  Result := clGreen;           8: Result := clLime;
     9:  Result := clltGray;         10: Result := clMaroon;
     11: Result := clNavy;           12: Result := clOlive;
     13: Result := clPurple;         14: Result := clRed;
     15: Result := clSilver;         16: Result := clTeal;
     17: Result := clWhite;          18: Result := clYellow;
     19: Result := RGB(196,196,0);
     else
       Result := clGray;
   end;
 End;
//
{*----------------------------------------------------------------------------*}
{*--------------------------Create and Fill Series----------------------------*}
Procedure Create_Series();
Begin
  BT.HH := FillSeries(CreateSeries(BarCount),0);
  BT.LL := FillSeries(CreateSeries(BarCount),0);
  BT.LH := FillSeries(CreateSeries(BarCount),0);
  BT.HL := FillSeries(CreateSeries(BarCount),0);
  BT.SwLne := CreateSeries(BarCount);
End;
//
{*----------------------------------------------------------------------------*}
{*----------------------------------User_Choices------------------------------*}
Procedure UserChoices();
Var
KleurKze: String;
Begin
  KleurKze := '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' #9
BT.ColorUp :=1+CreateParameterSelect('Geef Kleur UpSwing :',Kleurkze,6,False);
BT.ColorDwn:=1+CreateParameterSelect('Geef Kleur DwnSwing:',Kleurkze,13,False);
End;
//
{*----------------------------------------------------------------------------*}
{*----------------------------------Startwaarden------------------------------*}
Procedure Startwaarden(i:Integer);
Begin
  BT.HH[i] := H[i];
  BT.LL[i] := L[i];
  BT.LH[i] := H[i];
  BT.HL[i] := L[i];
  BT.hUpSw := 1;
End;
//
{*----------------------------------------------------------------------------*}
{*----------------------------------UpTrend-----------------------------------*}
Procedure UpTrend(i:integer);
Begin
  If BT.UpSw = 1 Then
    Begin
      If H[i] > BT.HH[i-1] Then BT.HH[i] := H[i]
        Else BT.HH[i] := BT.HH[i-1];
      If L[i] > BT.HL[i-1] Then BT.HL[i] := L[i]
        Else BT.HL[i] := BT.HL[i-1];
      BT.LH[i] := H[i]  ;
      If H[i] <BT.HL[i-1] Then
        Begin
          BT.hUpSw := 0;
          BT.LL[i]:= L[i];
          BT.LH[i]:= H[i];
        End;
    End;
End;
//
{*----------------------------------------------------------------------------*}
{*---------------------------------DownTrend----------------------------------*}
Procedure DownTrend(i:Integer);
Begin
  If BT.UpSw = 0 Then
    Begin
      If (L[i] < BT.LL[i-1]) Then BT.LL[i] := L[i]
        Else BT.LL[i] := BT.LL[i-1];
      If (H[i] < BT.LH[i-1]) Then BT.LH[i] := H[i]
        Else BT.LH[i] := BT.LH[i-1];
      BT.HL[i] := L[i];
      If L[i] > BT.LH[i-1] Then
        Begin
          BT.hUpSw :=1;
          BT.HH[i] := H[i];
          BT.HL[i] := L[i];
        End;
    End;
End;
//
{*----------------------------------------------------------------------------*}
{*-----------------------------Vul-Swingline-serie----------------------------*}
Procedure  FillSWLine(i:Integer);
Begin
   If BT.UpSw = 1 Then
    Begin
      BT.SwLne[i] := BT.HL[i];
      SetBarColor(0,i,KleurSelec(BT.ColorUp));
    End;
  If BT.UpSw = 0 Then
    Begin
      BT.SwLne[i] := BT.LH[i];
      SetBarColor(0,i,KleurSelec(BT.ColorDwn));
    End;
End;
//
{*----------------------------------------------------------------------------*}
{*-------------------------------Teken-lijn-----------------------------------*}
 Procedure TekenLijn();
 Begin
  With CreateLine(BT.SwLne) Do
   Begin
    Color:=CLGray;
    LineType := LTOpen;
    Width :=2;
   End;
 End;
//
{*----------------------------------------------------------------------------*}
{*----------Koppelt de Functies en Procudures en User-Choices-----------------*}
Procedure BC_Trend();
Var
i : Integer;
Begin
 Indicator.NewBand := False;
 Indicator.ScaleRange:= SrCommon;
 Create_Series();
 UserChoices();

 For i := 1 To BarCount-1 Do
  Begin
   If i=1 Then
    Begin
     Startwaarden(i);
    End;
  //
   If (i>1) Then
    Begin
     UpTrend(i);
     DownTrend(i);
     FillSWLine(i)
    End;
  BT.UpSw := BT.hUpSw;
End;
TekenLijn();
End;
//
{*----------------------------------------------------------------------------*}
{*-----------------------------HoofdProgramma---------------------------------*}
Begin
 BC_Trend();
End.
*
**
***
!!!!!!!!!!!!!!!!!!!
**
Bovenstaand stukje ta-code geeft alleen de riching van de trend weer.
Deze code is opgezet als ondersteuning van het stukje omtrent de Bell_curve.
Ga -- AUB -- NIET handelen op basis van deze indicator alleen...
Er zit geen Moneymanagement in verwerkt ...
Er zit geen StopLoss in verwerkt ....
Niet doen dus !!
Handel nooit alleen op 1 - indicator ...
The Draw-down van deze indic. kan de waarde van uw portefeuille te boven gaan !!
Doe het dus niet !!
Volg altijd meerdere indicatoren !
.
Jan@JSTAS.com
.

Grafiekje d'rbij


.

[PaulM]

Jan,

Bedankt voor jouw bijdrage, weer zeer leerzaam als altijd.

http://ta-script.com/forum/viewtopic.ph ... le&start=0

Paul

[Eric]

Leuk stukje weer Jan, bedankt!

Ik heb aan het Market Profile topic van Paul een eenvoudige Market Profile toegevoegd, wellicht heb je er wat aan voor het verder borduren met je ideeën.

---
Eric

[Janus]

Bedankt weer voor het werk Eric, daar kan ik verder mee .
.

[Janus]

Korte update geplaatst vandaag.
Deze staat zoals altijd te lezen onder de link:

http://www.jstas.com/2009/Dageljiks%20v ... fieken.htm

Grafiekje erbij



Alvast een prettig weekend gewenst,
.

[coin]

Hij is weer mooi Janus, de Bell trend loopt al mee in mijn grafiek.
Dank je,

Ingrid

[Janus]

Korte update voor dit weekend:

http://www.jstas.com/2009/Dageljiks%20v ... fieken.htm

Grafiekje erbij:


.
Opmerkingen zijn welkom.
.

[Janus]

Even kort voor de trouwe lezer:
http://www.jstas.com/2009/Dageljiks%20v ... fieken.htm
.
Volg je eigen idee !
.

[Janus]

't wordt vervelend, ik begrijp 't, maar toch weer een korte update geplaatst onder de link:
http://www.jstas.com/2009/Dageljiks%20v ... fieken.htm
Laat je niet gek maken, volg je eigen idee, onder bovenstaande link vindt u slechts een kleine update van mijn idee.
.

[paulkr]

Janus,

Je updates en indicators zijn altijd leerzaam en een genot om mee aan de slag te gaan.

In de updates laat je regelmatig een P&F grafiek terugkomen welke een rustig beeld van de markt geeft. Ben al wat keertjes aan het stoeien geweest me de P&F grafiek instellingen in WS$ om grosso modo dezelfde grafiek te produceren, echter zonder succes tot heden.
Zo te zien gebruik je een separaat programma om de P&F grafiek te creëren. Is er een mogelijkheid om dit in WS$ te evenaren en/of wat zijn de redenen dat bij dit stukje charting een andere tool nodig is?

Gr Paulkr

[Janus]

Hallo Paul,

Ik werk met diverse computers en schermen, die ik niet allemaal tegelijk kan aan sturen met één programma, zodat je bij mij diverse programma's zal aantreffen die ik gebruik voor één en ander.
En 'sommige dingen' zijn met bepaalde programma's nu eenmaal niet mogelijk.
Zo kan je bijvoorbeeld op Astronomie basis weinig met W$.
Maar op P&F gebied kan je wel wat met W$.
Klik linksboven in W$ op Fonds, klik op Point&Figure en kies bijv. de AEX
De Point & Figure grafiek komt dan met vooraf opgeslagen opstellingen te voorschijn.
Klik na het tevoorschijn komen van de P&F grafiek rechts met de muis en kies onderin voor eigenschappen, of klik eenvoudigweg op F4
Je krijgt dan het venster eigenschappen.
Zet een vinkje bij Logaritmsiche box size en stel de waarde in op bijv. 1.15%
Zet reversal size op 3-boxes
Zet onderin de vink bij "trendlijnen alleen op 45-graden"uit.
Je wijkt dan op dat moment iets af van de standaard P&F wijze van tekenen van trendlijnen, maar je weet ... ik wijk wel vaker af
Kies bij datum bijvoorbeeld vanaf 26-09-2007 en na het tekenen van een paar trendlijntjes krijg je dan de hier onder weergegeven grafiek te zien.
Wanneer je nu vanaf de bodem in Maart-2009 nog een steunlijn trekt onder de nulletjes door, dan zie je nog wat leuks, daar waar de laatste nulletjes rechts in de grafiek steun vonden... tot nu toe, deze lijn staat niet in onderstaande grafiek, die mag je zelf trekken.
Succes !
.

.

[Janus]

'k was toch nog effe bezig,
een paar grafiekjes geplaatst omtrent Market Profile.
Dat stukje is nog niet af .. er volgen nog een paar verrassingen ...
.
Toch snel even twee MP grafiekjes geplaatst van de AEX FTI Oktober,
U mag ze bewonderen onder de link:

http://www.jstas.com/2009/Dageljiks%20v ... fieken.htm

Grafiekje d'rbij
.

.

[paulkr]

Janus, hartelijk dank voor de uitleg. Het is allemaal gelukt aan deze kant. Ook de trendlijn vanaf Maart ..;



Gr Paulkr