Per dag andere kleur

Stel hier uw vragen over TA-script, of help anderen met het oplossen van hun probleem
Plaats reactie
Bakstenen
Berichten: 201
Lid geworden op: zo jul 19, 2015 7:51 pm

Per dag andere kleur

Bericht door Bakstenen » do jul 20, 2017 11:30 am

Hallo Eric,
ik had ook in een andere topic een vraag gesteld,dit was de vraag,
is het mogelijk dat je bij het signaal in de grafiek ook de winst of verlies kan laten zien?nu zie je b.v long signaal maar gesteld dat dit een sluiting is van een trade dat daar de winst/verlies komt te staan,dus een indicator geeft een long signaal,en even later een short dus wordt de trade gesloten.
Dan een andere vraag,in bijgaande grafiek van de AEX heeft een dag 3 candles,is het mogelijk dat je deze 3 candles om de dag een andere kleur kan geven,niet de body maar de lijnen van de body,dus ene dag paars,andere dag geel zodat ik kan zien welke drie candles bij een dag horen.
Ik hoop dat jij begrijpt wat ik wil vragen
aex.JPG

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

Re: Per dag andere kleur

Bericht door Eric » do jul 20, 2017 1:00 pm

De aanduiding winst/verlies bij een signaal is niet generiek te maken maar kan wel aan een specifieke indicator worden geïmplementeerd. Ik zal bij gelegenheid eens kijken of ik daar een opzet voor kan maken.

De kleuren van alleen de lijnen van de body per dag veranderen gaat niet echt, maar je zou met deze indicator wellicht iets kunnen.

Code: Selecteer alles

{- Filename: Daglijnen -}

var
  i, LastDate: integer;
  AColor: TColor;
begin
  AColor := CreateParameterColor('Kleur', clSilver);
  
{ Indicator eigenschappen }
  with Indicator do 
  begin
    NewBand := false;
  end;

  for i:=0 to BarCount-1 do
  begin
    if trunc(DateTime[i]) <> LastDate then
    begin
      LastDate := trunc(DateTime[i]);
      with CreateTrendline(LastDate, 0, LastDate, 0) do
      begin
        Y1Pct := 0;
        Y2Pct := 100;
        Color := ACOlor;
      end;
    end;
  end;
end.
---
Eric

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

Re: Per dag andere kleur

Bericht door Bakstenen » do jul 20, 2017 6:14 pm

Hallo Eric,
op zich is deze goed alleen zie ik dan niet wat voor een candle de eerste is,maar het antwoord heeft mij wel op een andere oplossing gebracht,n.l een pijl onder de candle als begin van de dag.
Wederom bedank voor de reactie

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

Re: Per dag andere kleur

Bericht door Bakstenen » za aug 19, 2017 3:12 pm

Eric,ben ik weer,ik was in discussie met Janus over wat ik wilde met bovenstaande oplossing,nu gaf hij de tip om er een rechthoek omheen te plaatsen,nu kan dat handmatig in WS alleen als ik in of uitzoom dan komen de candles erin of uit de box,zie voorbeelden.
Nu de vraag,is dit in een script toe te passen dat het automatisch gaat?
Bijlagen
1721.JPG
172.JPG

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

Re: Per dag andere kleur

Bericht door Janus » zo aug 20, 2017 11:50 pm

Ja, zoals Bakstenen al zegt, een box per dag om diverse intraday candles.
In onderstaande grafiek om drie candles per dag zoals Bakstenen graag gebruikt.
Ik heb er even een grafische weergave van gemaakt, alsmede het intraday verloop per dag in deze drie tijdvakken.
Zoals al te verwachten en wel bekend is, in het middelste tijdvak is de omzet veel lager; wat te zien is aan het volume verloop in het onderste venster.
Mooi zou zijn als het ta-script te gebruiken is op meerdere tijdframes, dus zowel bijv. per uur, als per meerdere dagen, of per welk tijdframe dan ook.
Een box om candles kan heel informatief zijn.
.
Afbeelding
Vriendelijke groet,
JanS ;)

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

Re: Per dag andere kleur

Bericht door Eric » ma aug 21, 2017 9:02 am

Welkom terug Jan!

Ik heb even iets gefabriceerd.

Code: Selecteer alles

{- Filename: Dagboxen -}

var
  i, LastDate: integer;
  DLow, DHigh, DLeft, DRight: real;
  AColor: TColor;
begin
  AColor := CreateParameterColor('Kleur', clNavy);

{ Indicator eigenschappen }
  with Indicator do
  begin
    NewBand := false;
  end;

  for i:=0 to BarCount-1 do
  begin
    if trunc(DateTime[i]) <> LastDate then
    begin
      DLeft := XToDateTime(DateTimeToX(LastDate)-BarIntervalX/2);
      DRight := XToDateTime(DateTimeToX(LastDate+1)-BarIntervalX/2);
      with CreateRectangle(DLeft, DLow, DRight, DHigh) do
      begin
        Color := clSilver;
        BkColor := AColor;
      end;
      DLow := Low[i];
      DHigh := High[i];
      LastDate := trunc(DateTime[i]);
    end else
    begin
      DLow := Min(DLow, Low[i]);
      DHigh := Max(DHigh, High[i]);
    end;
  end;
  if BarCount > 0 then
  begin
    DLeft := XToDateTime(DateTimeToX(LastDate)-BarIntervalX/2);
    DRight := XToDateTime(DateTimeToX(LastDate+1)-BarIntervalX/2);
    with CreateRectangle(DLeft, DLow, DRight, DHigh) do
    begin
      Color := clSilver;
      BkColor := AColor;
    end;
  end;
end.
---
Eric

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

Re: Per dag andere kleur

Bericht door Bakstenen » ma aug 21, 2017 9:39 am

Netjes Eric,alleen bij mij komt de laatste dag,dus vrijdag niet in de box,ik heb dan de 172 min grafiek

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

Re: Per dag andere kleur

Bericht door Eric » ma aug 21, 2017 9:50 am

Heb ik hierboven aangepast, zou nu wel goed moeten gaan.

---
Eric

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

Re: Per dag andere kleur

Bericht door Bakstenen » ma aug 21, 2017 4:38 pm

Helemaal super Eric,wederom bedankt

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

Re: Per dag andere kleur

Bericht door Bakstenen » za aug 26, 2017 5:23 pm

Eric,ik kom misschien nu over als een komma n....,maar met de indicator van 21 augustus ben ik super blij,alleen bemerk ik dat de onderste lijn niet geheel klopt met de low van de dag,is dat te verhelpen?
En dan gelijk een andere vraag,is het mogelijk (ik vraag mij wel eens af is er ooit wel eens een vraag geweest die je niet kon omzetten in een script?) om een indicator te maken die onderin de box een melding geeft dat het dinsdag is,nu doe ik dat met de hand zie bijlage,in het kort een pijl met eventueel de tekst"pijl is dinsdag"
Bijlagen
eric.JPG

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

Re: Per dag andere kleur

Bericht door Eric » za aug 26, 2017 8:25 pm

Bakstenen schreef:
za aug 26, 2017 5:23 pm
Eric,ik kom misschien nu over als een komma n....,maar met de indicator van 21 augustus ben ik super blij,alleen bemerk ik dat de onderste lijn niet geheel klopt met de low van de dag,is dat te verhelpen?
Dat was me ook opgevallen, het lijkt op een kleine imperfectie bij het tekenen van de rechthoeken. Het is in ieder geval niet in het script te verhelpen, dat zal in Wall Street zelf moeten gebeuren.

Wat betreft je andere vraag: leef je uit met een instelbare kleur per dag.

Code: Selecteer alles

{- Filename: Dagboxen -}

var
  i, LastDate: integer;
  DLow, DHigh, DLeft, DRight: real;
  AColor: array[1..7] of TColor;
begin
  AColor[2] := CreateParameterColor('Kleur ma', clNavy);
  AColor[3] := CreateParameterColor('Kleur di', clPurple);
  AColor[4] := CreateParameterColor('Kleur wo', clNavy);
  AColor[5] := CreateParameterColor('Kleur do', clNavy);
  AColor[6] := CreateParameterColor('Kleur vr', clNavy);

{ Indicator eigenschappen }
  with Indicator do 
  begin
    NewBand := false;
  end;

  for i:=0 to BarCount-1 do
  begin
    if trunc(DateTime[i]) <> LastDate then
    begin
      DLeft := XToDateTime(DateTimeToX(LastDate)-BarIntervalX/2);
      DRight := XToDateTime(DateTimeToX(LastDate+1)-BarIntervalX/2);
      with CreateRectangle(DLeft, DLow, DRight, DHigh) do
      begin
        Color := clSilver;
        BkColor := AColor[DayOfWeek(LastDate)];
      end;
      DLow := Low[i];
      DHigh := High[i];
      LastDate := trunc(DateTime[i]);
    end else
    begin
      DLow := Min(DLow, Low[i]);
      DHigh := Max(DHigh, High[i]);
    end;
  end;
  if BarCount > 0 then
  begin
    DLeft := XToDateTime(DateTimeToX(LastDate)-BarIntervalX/2);
    DRight := XToDateTime(DateTimeToX(LastDate+1)-BarIntervalX/2);
    with CreateRectangle(DLeft, DLow, DRight, DHigh) do
    begin
      Color := clSilver;
      BkColor := AColor[DayOfWeek(LastDate)];
    end;
  end;
end.
---
Eric

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

Re: Per dag andere kleur

Bericht door Bakstenen » za aug 26, 2017 9:00 pm

Helemaal super,wederom bedankt

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

Re: Per dag andere kleur

Bericht door Bakstenen » wo sep 13, 2017 12:40 pm

Eric,
ik had de vraag over de onderste lijn dat die niet klopt met de low aan Jolanda door gespeeld,alleen die liet weten dat ze weer aan jou zou vragen of je er wat mee kon,nu vergaat de wereld niet als het zo blijft maar als het "simpel"op te lossen is,dan graag.

Plaats reactie

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers en 4 gasten