Hoi Franc,
Ik heb de door jou gegeven regels even ingebracht in Vestics, en dat ziet er niet best uit!
De belangrijkste oorzaak ligt 'm in het feit dat dit duidelijk een systeem is dat gemaakt is voor een bull markt zoals we die kennen van de jaren 90.
Het systeem gaat alleen maar long en dat al heel snel (uitbraak over 3 dagen!).
In een bear markt zoals we die momenteel zien zijn er veel korte correcties omhoog, die hoogstens een week duren, en dan stap jij op de 4de dag in om vervolgens weer je 4% in te leveren. De positieve exit, op basis van een trailing stop van 12% wordt zelden gehaald.
Mogelijke verbeteringen:
a) langzamere entry
b) snellere exit
c) ook short trades doen want dat is momenteel de hoofdtrend. Dat kan eventueel met puts of met futures zoals besproken op de cursus "Beleggen in moeilijke dagen".
Voor wat het waard is volgt hieronder het systeem zoals ik het heb geprogrammeerd en getest...
Je kunt dat als volgt in Vestics activeren...
1) Start Daggrafiek van een willekeurig fonds
2) Kies Beeld >> Designer
3) Kies Editor >> Nieuwe module
4) Selecteer tabblad "System" en kies "New System" en druk op OK
5) vul Naam en Omschrijving in ?(Naam moet 1 woord zijn zonder speciale tekens) en druk op OK
6) Kopieer de onderstaande tekst uit dit bericht en plak deze in het bronkode venster van de Designer.
7) verander de naam zFranc01 in de eerste regel naar de door jou gekozen naam van punt 5.
vervang het teken % overal door kleiner dan. Het Kleiner dan teken wordt namelijk door dit forum als een HTML-tag gezien en niet weergegeven.
9) kies Editor >> Controleren. Dat zou goed moeten gaan.
10) kies Grafiek >> Invoegen >> System en selecteer jouw systeem
11) kies Grafiek >> Grafiekeigenschappen, tabblad Trading, en kies het Report "Trader Style"
12) kies het tabblad "Samenvatting"
--------------------------------------
value function zFranc01 (value xCapital=10000,value xStop=4,value xTrail=12) begin
?{---- hulpvelden ----}
value xShares,xStopPrice,xRisc,xBestPrice;
?{---- open nieuwe positie ----}
?if MarketPosition=0 and High>High[3] then begin
? ?xRisc := Close*(xStop/100);
? ?xShares := (xCapital+GrossProfit-GrossLoss)/Close;
? ?xBestPrice := Close;
? ?xStopPrice := ((100-xStop)/100)*Close;
? ?vEnterLong();
? ?end;
?
?{---- onthoud hoogste prijs ivm stoploss ----}
?if MarketPosition=1 and Close>xBestPrice then xBestPrice := Close;
?{---- sluit positie op basis van stoploss ----}
?if MarketPosition=1 and Close%xStopPrice then vExitLong;
{---- sluit positie op basis van trailing stop ----}
?if MarketPosition=1 and Close%((100-xTrail)/100)*xBestPrice then vExitLong;
?end;
--------------------------------