Gann

Stel hier uw vragen over TA-script, of help anderen met het oplossen van hun probleem
Plaats reactie
Janus
Berichten: 1187
Lid geworden op: wo jan 30, 2008 2:07 am
Contacteer:

Bericht door Janus » vr sep 03, 2010 1:54 am

Korte update onder de link

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

Plaatje erbij:

Afbeelding

.
Vriendelijke groet,
JanS ;)

Janus
Berichten: 1187
Lid geworden op: wo jan 30, 2008 2:07 am
Contacteer:

Bericht door Janus » di sep 14, 2010 9:18 pm

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:

Afbeelding

De ta-script code plaats ik in de topic hieronder.
.
Vriendelijke groet,
JanS ;)

Janus
Berichten: 1187
Lid geworden op: wo jan 30, 2008 2:07 am
Contacteer:

Bericht door Janus » di sep 14, 2010 9:22 pm

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 ;)

Afbeelding
.
Vriendelijke groet,
JanS ;)

PaulM
Berichten: 431
Lid geworden op: do apr 06, 2006 11:56 pm
Locatie: Enschede

Bericht door PaulM » di sep 14, 2010 11:54 pm

Jan,

Bedankt voor jouw bijdrage, weer zeer leerzaam als altijd.

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

Paul

Eric
Berichten: 2741
Lid geworden op: za sep 10, 2005 2:41 am
Locatie: Den Haag

Bericht door Eric » do sep 16, 2010 2:37 pm

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
Berichten: 1187
Lid geworden op: wo jan 30, 2008 2:07 am
Contacteer:

Bericht door Janus » do sep 16, 2010 9:52 pm

Bedankt weer voor het werk Eric, daar kan ik verder mee .
.
Vriendelijke groet,
JanS ;)

Janus
Berichten: 1187
Lid geworden op: wo jan 30, 2008 2:07 am
Contacteer:

Bericht door Janus » vr sep 17, 2010 12:19 am

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

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

Grafiekje erbij :)

Afbeelding

Alvast een prettig weekend gewenst,
.
Vriendelijke groet,
JanS ;)

coin
Berichten: 40
Lid geworden op: zo jan 25, 2009 9:09 pm

Bericht door coin » vr sep 17, 2010 3:05 pm

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

Ingrid

Janus
Berichten: 1187
Lid geworden op: wo jan 30, 2008 2:07 am
Contacteer:

Bericht door Janus » zo sep 19, 2010 10:06 pm

Korte update voor dit weekend:

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

Grafiekje erbij:

Afbeelding
.
Opmerkingen zijn welkom.
.
Vriendelijke groet,
JanS ;)

Janus
Berichten: 1187
Lid geworden op: wo jan 30, 2008 2:07 am
Contacteer:

Bericht door Janus » di sep 21, 2010 12:15 am

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

Janus
Berichten: 1187
Lid geworden op: wo jan 30, 2008 2:07 am
Contacteer:

Bericht door Janus » ma sep 27, 2010 1:05 am

'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.
.
Vriendelijke groet,
JanS ;)

paulkr
Berichten: 370
Lid geworden op: ma jun 25, 2007 1:34 pm
Locatie: Den Bosch

Bericht door paulkr » di sep 28, 2010 10:20 pm

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
Berichten: 1187
Lid geworden op: wo jan 30, 2008 2:07 am
Contacteer:

Bericht door Janus » di sep 28, 2010 11:32 pm

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 ! Afbeelding
.
Afbeelding
.
Vriendelijke groet,
JanS ;)

Janus
Berichten: 1187
Lid geworden op: wo jan 30, 2008 2:07 am
Contacteer:

Bericht door Janus » wo sep 29, 2010 12:27 am

'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 Afbeelding
.
Afbeelding
.
Vriendelijke groet,
JanS ;)

paulkr
Berichten: 370
Lid geworden op: ma jun 25, 2007 1:34 pm
Locatie: Den Bosch

Bericht door paulkr » wo sep 29, 2010 2:46 pm

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

Afbeelding

Gr Paulkr

Plaats reactie

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers en 2 gasten