Systeem

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

Systeem

Bericht door Bakstenen » wo mei 16, 2018 8:33 pm

Eric,
ik kwam nog een systeem tegen wat ik ooit eens toepaste,nu wil ik dat backtesten,en nu was de vraag of jij dat kan maken.
Indicator geeft een koop of verkoop op basis van het slot,is het slot van de volgende dag beter dan komt er een plus te staan,is die minder een min,dan is op basis hiervan de uitkomst,
- + + = koop
+ + - = sell
Voorbeeld,Dax
4 mei slot 12819,60
7 mei slot 12948,14 = +
8 mei slot 12912,21 = -, dag erop verkoop je
9 mei slot 12943,06 = + dag erop koop je
10 mei slot = 13022,87 = + gebeurd er niets
11 mei slot 13001,24 = - dag erop verkoop je.
Hoop dat ik duidelijk ben zo.
Alvast bedankt

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

Re: Systeem

Bericht door Eric » wo mei 16, 2018 9:25 pm

Ik snap de regel -++ is koop, ++- is verkoop maar het voorbeeld dat je geeft doet iets anders volgens mij. Daar verkoop je na +- en koop je na -+. Kun je dat nog even toelichten?

---
Eric

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

Re: Systeem

Bericht door Bakstenen » wo mei 16, 2018 10:27 pm

7 mei is hoger als 4 mei dus plus,8 mei is minder als 7 mei dus min,plus + min is verkoop
9 mei is hoger als 8 mei dus plus,de dag ervoor was min,min + plus is koop
10 mei is hoger als 9 mei dus plus,plus + plus is niets
11 mei is lager als 10 mei dus min,plus + min is verkoop.
Hoop dat ik het zo goed uitleg

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

Re: Systeem

Bericht door Eric » wo mei 16, 2018 10:41 pm

Plus + Min is wat duidelijker dan + + - inderdaad, het is duidelijk nu.

Dit zou wel eens het kortste script kunnen zijn dat ik ooit gemaakt heb!

Code: Selecteer alles

{- Filename: Bakstenen PlusMin -}

var
  i: integer;
begin
{ Indicator eigenschappen }
  with Indicator do 
  begin
    RequiredBars := 10;
    NewBand := false;
    SignalView := svShowInMain;
  end;

{ Signalen }
  for i:=2 to BarCount-1 do
  begin
    if (Close[i] > Close[i-1]) and (Close[i-1] < Close[i-2]) then EnterLong(i) else
    if (Close[i] < Close[i-1]) and (Close[i-1] > Close[i-2]) then EnterShort(i);
  end;
end.
---
Eric

vincent
Berichten: 192
Lid geworden op: di jan 04, 2011 12:20 pm

Re: Systeem

Bericht door vincent » do mei 17, 2018 6:02 am

Kaal 80% in 3 jaar op de AEX-105 minuten.... En dat voor zoiets 'simpels', interessant om te zien :-)
Maar de TVS-lijn is niet erg stabiel om eerlijk te zijn...

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

Re: Systeem

Bericht door Bakstenen » do mei 17, 2018 6:40 am

Eric,bedankt.

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

Re: Systeem

Bericht door Bakstenen » do mei 17, 2018 5:32 pm

Eric,
eigenlijk is het zo dat de indicator s,avonds de trade sluit,moet wel zeggen dat wat jij gemaakt heb ook goed is,is het mogelijk dat je nog een tweede maakt en dat die nadat er een positie is ingenomen deze op slot sluit.

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

Re: Systeem

Bericht door Eric » vr mei 18, 2018 9:29 am

Het leek al te mooi om waar te zijn, zo'n eenvoudig script. :(

Een entry en exit op dezelfde bar kan niet, dus het systeem kan niet in een daggrafiek. Je moet onderstaande indicator in een intraday grafiek plaatsen., maakt niet uit welk interval. Het entrysignaal komt nu op de 1e bar van de dag (tegen openingskoers) en de exit op de laatste bar van de dag (tegen slotkoers).

Code: Selecteer alles

{- Filename: Bakstenen PlusMin intraday -}

var
  i, LastDay: integer;
  Close0, Close1, Close2: real;
begin
{ Indicator eigenschappen }
  with Indicator do 
  begin
    RequiredBars := 2;
    NewBand := false;
    ScaleRange := srCommon;
    SignalView := svShowInMain;
    AdvancedTrades := true;
  end;

  LastDay := -1;
  for i:=0 to BarCount-1 do
  begin
    if trunc(DateTime[i]) <> LastDay then
    begin
      if i>0 then
      begin
        ExitAny(i-1);
        Close2 := Close1;
        Close1 := Close0;
        Close0 := Close[i-1];
        if Close0 > 0 then
        begin
          if (Close0 > Close1) and (Close1 < Close2) then EnterLongAtOpen(i) else
          if (Close0 < Close1) and (Close1 > Close2) then EnterShortAtOpen(i);  // enter on open
        end;
      end;
      LastDay := trunc(DateTime[i]);
    end;
  end;
end.
---
Eric

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

Re: Systeem

Bericht door Bakstenen » vr mei 18, 2018 11:23 am

Super,werkt goed.

Plaats reactie