Koersbarteller

Stel hier uw vragen over TA-script, of help anderen met het oplossen van hun probleem
sij
Berichten: 144
Lid geworden op: zo sep 28, 2008 10:53 pm

Re: Koersbarteller

Bericht door sij » di mei 23, 2017 3:33 pm

bedankt.

Bakstenen
Berichten: 223
Lid geworden op: zo jul 19, 2015 7:51 pm

Re: Koersbarteller

Bericht door Bakstenen » za sep 02, 2017 10:05 pm

Eric,
ik had weer wat tijd minder tekort en ben weer bezig geweest met deze indicator,die werkt alleen heb ik de op een datum in 2013 gezet en nu wil ik eigenlijk terug in de tijd,ik dacht met mijn bouwvakkers slimheid,dan zet ik een min teken ervoor maar zo werkt dat toch niet.
Nu de vraag,is het mogelijk dat deze ook achteruit werkt?dus terug in de tijd,als ik dan een datum heb kan ik deze weer als start opgeven

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

Re: Koersbarteller

Bericht door Eric » zo sep 03, 2017 10:09 am

Deze versie werkt ook met negatieve intervallen.

Code: Selecteer alles

{- Filename: KoersBar Pointer -}
// versie 1.02  14-05-2016

Function Lijnkeuze(select:Integer):TTrendLineStyle;
Begin
Case Select Of
 0: Result := LsSolid;
 1: Result := LsDot;
End;
End;
//*************************************************
Var
StrtDtm,StrtTime,XPOs : TDateTime;
i,Teller,TelStart,Teller2,LijnDikte : Integer;
VertLine : Boolean;
LijnStyle : TTRendLineStyle;
Soortlijn : String;
Col: TColor;

Begin
Soortlijn := 'Getrokken lijn'#9
             'Stippellijn';

Indicator.newband := False;
StrtDtm := CreateParameterDate('Start datum',EncodeDate(2016,02,11));
StrtTime := CreateParameterTime('Start tijd',EncodeTIme(9,59,0,0));
Teller := CreateParameterInteger('Aantal koersen',-999,999,6,False);
VertLine := CreateParameterBoolean('Verticale lijn tekenen?',True,False);
LijnStyle := LijnKeuze(CreateParameterSelect('Lijn type:',Soortlijn,0,False));
LijnDikte := CreateParameterInteger('Lijn dikte:',1,99,1,False);
Col := CreateParameterColor('Kleur', clYellow);

Indicator.RequiredBars := Trunc(Now-StrtDtm);

For i := 1 To BarCount-1 Do
 Begin
  If (DateTime[i] >= (StrtDtm+StrtTime)) And (TelStart=0) Then
   Begin
    TelStart := i;
    With CreateArrow(BarPosition[i],0,adUp) Do
     Begin
      Y1Pct := 5;
      Color := ClRed;
      Size := asNormal;
     End;
    If VertLine Then
     With CreateTrendLine(BarPosition[i],0,BarPosition[i],0) Do
      Begin
       Y1Pct:=0;
       Y2Pct:=100;
       Width := LijnDikte;
       Color := ClRed;
       Style := LijnStyle;
      End;
  End;
 End;
 
 Teller2 := TelStart+Teller;

 If Telstart>1 Then
  Begin
   while (Teller2 >= 0) and (Teller2 < BarCount) do
    Begin
        With CreateArrow(BarPosition[Teller2],0,adUp) Do
         Begin
          Y1Pct := 5;
          Color := Col;
          Size := asSmall;
         End;
        If VertLine Then
         With CreateTrendLine(BarPosition[Teller2],0,BarPosition[Teller2],0) Do
          Begin
           Y1Pct:=0;
           Y2Pct:=100;
           Color := Col;
           Width := LijnDikte;
           Style := LijnStyle;
          End;
         Teller2 := Teller2+ Teller;
    End;

    if Teller > 0 then
    begin
      XPos := XToDateTime(DateTimeToX(BarPosition[Teller2-Teller])+Teller*BarIntervalX);
      With CreateArrow(XPos,0,adUp) Do
         Begin
          Y1Pct := 5;
          Color := Col;
          Size := asSmall;
         End;
        If VertLine Then
         With CreateTrendLine(XPos,0,XPos,0) Do
          Begin
           Y1Pct:=0;
           Y2Pct:=100;
           Color := Col;
           Width := LijnDikte;
           Style := LijnStyle;
          End;
    End;
  end;

With CreateText(0,0,IntToStr(Teller)+' - Koersbars') Do
  Begin
   Y1Pct := 2;
   X1Pct := 100;
   VertPosition := vpTop;
   HorzPosition := hpLeft;
   Color := Col;
   Font.Size := 8;
  End;
End.
---
Eric

Bakstenen
Berichten: 223
Lid geworden op: zo jul 19, 2015 7:51 pm

Re: Koersbarteller

Bericht door Bakstenen » zo sep 03, 2017 10:41 am

Helemaal super,scheelt een hoop werk.
Wederom bedankt.

Bakstenen
Berichten: 223
Lid geworden op: zo jul 19, 2015 7:51 pm

Re: Koersbarteller

Bericht door Bakstenen » za nov 11, 2017 2:07 pm

Eric,
ik wilde een trading simulatie doen met deze indicator,helaas dat doet die niet,klopt dat? zo ja,dan is de volgende vraag,kan jij dat fiksen?denk eerder dat de vraag moet zijn,wil jij het doen? :lol:

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

Re: Koersbarteller

Bericht door Eric » za nov 11, 2017 3:16 pm

Ik denk eerder dat de vraag moet zijn: wanneer zou je willen kopen / verkopen met deze indicator, want ik zie hem geen signalen geven. Geen signalen = geen trading simulatie.

---
Eric

Bakstenen
Berichten: 223
Lid geworden op: zo jul 19, 2015 7:51 pm

Re: Koersbarteller

Bericht door Bakstenen » za nov 11, 2017 4:54 pm

Ook een goede vraag,maar ik zag een gele pijl bij de streep staan,maar ik dacht,de pointer staat op een datum b.v 11 november en vanaf dat punt ga je of short of long,te eenvoudig gedacht weer bemerk ik
koersbar.JPG

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

Re: Koersbarteller

Bericht door Eric » za nov 11, 2017 5:13 pm

Het kan, maar het is nooit de bedoeling geweest van de indicator. De indicator is gewoon een meetinstrument voor cycles.
Beste Eric,

In de cyclusanalyse die ik veel gebruik ben je continu bezig het aantal verstreken koersbars te tellen. In alle tijdframes.
Nu vroeg ik me af of daar iets voor te maken is. Of er mogelijk al is, ik kon het niet vinden.

Wat zou ik graag willen?
In een grafiek geef je bij de start van een nieuwe cyclus een signaal in, het liefst dmv één muisklik.
Op de onderste regel van de grafiek verschijnt bijv. een opwaartse pijl.
Daarna komt er bij iedere bar die verschijnt een bijv. dicht rondje achter.
Linksonder, net boven deze regel staat (dicht rondje) = 12 (het verstreken aantal bars).
Bij het ingeven van een nieuwe pijl begint de teller opnieuw.

Of anders gezegd: je ziet net zolang rondjes onderaan je grafiek tot je er op een klikt, dan wordt het een pijl. En past de teller zich aan.
Het herstellen, een pijl weer een rondje maken zou ook moeten kunnen als het begin van de cyclus toch wat later blijkt te zijn.

Zo zie je in een oogopslag op alle tijdframes/grafieken hoe ver je in de cyclus gevorderd bent.

Hopelijk kun je er iets mee. Alvast bedankt!
Kees
---
Eric

Bakstenen
Berichten: 223
Lid geworden op: zo jul 19, 2015 7:51 pm

Re: Koersbarteller

Bericht door Bakstenen » zo nov 12, 2017 12:49 am

oke,ben toch blij met deze indicator moet het nu alleen met de hand doen.

Plaats reactie

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers en 2 gasten