door ericc » do 08 jan 2004, 10:35
Hallo,
ik heb ook naar dit systeem gekeken.
De easylanguage versie werkt niet helemaal in Vestics, krijg rare tradingstrepen ipv blokken in de grafiek, allemaal rood!
heb hem bijgewerkt. Met name statements als ?buy tomorrow at? doen volgens mij niet wat ze moeten doen.
Verder een stoploss en profittake ingebouwd. Standaard staan ze op 1000 (dus ze staan op ?uit? in feite). ?
Het systeem lijkt mooi, maar als ik ga kijken naar de opbrengst per maand blijkt er bijv. in dec. 2002 een enorme drawdown
van 13500 (max drawdown trouwens 15860!). Slippage 0.15 % als benadering voor 0.4 punt + ?60 per trade. Ik begrijp die 600%
winst niet, die zou toch bij een FTI op 6 x 10000 = 60000 uit moeten komen.(dan reken ik dus de margin van 10000 als ingezet kapitaal, wat minimaal is!)
Total trades ? ? ? ?272 | Winning trades ? ? ? 116 | Losing trades ? ? ?156
Total net result ?27764 | Total profit ? ? ?214168 | Total loss ? ? -186404
Max. drawdown ? ? ?15860 | largest winner ? ? ?9454 | largest loser ? ?-5350
Stoploss van 3 levert hier en daar wat verbetering, maar in december 2002 is niet alleen het probleem dat de verliezen zogroot zijn maar meer nog dat het er zoveel zijn. Je ziet de markt daar ook in een trending fase. Dit is denk ik een echt ROCema probleem. En ik heb gemerkt dat ik niet in een systeem wil zitten dat me trade op trade (4 tot 5 keer ) in het rood brengt, daarvoor ben ik blijkbaar zoals Pierre zegt, "niet uit het goede hout gesneden".
Hieronder de code die ik gebruikt heb (van belbelta gedownload en daarna bewerkt).reageer maar eens....
Groeten,
Eric.
value function dynbra(value ceil=60,value flr=20, value xProfit=1000, value xStopLoss=1000) begin
value x[],y[],delta_vol[],var_a[],old_var_a[], xStopLevel, xProfitLevel;
{Bepaling variabele var_a die het aantal bars aangeeft,waarover wordt teruggekeken}
x =Stddev(close,210);y =Stddev(close[1],280);delta_vol =(x-y)/x;
if CurrentBar =1 then var_a =20;old_var_a =var_a;
var_a =old_var_a*(1+delta_vol);var_a =MaxList(var_a,flr);
var_a =MinList(var_a,ceil);
{ROC-indicator als trendmeter}
value1=RateOfChange(xaverage(close,16),50);
{Regels voor entry en exit}
{ga long als de trend positief is en de koers het hoogste niveau bereikt van de laatste var_a bars}
{Long Entry}
if value1 >value1[1]and value1 <1 and close >= highest(high,var_a) then Buy ;
{ga short als de trend negatief is en de koers het laagste niveau bereikt van de laatste var_a bars}
{Short Entry}
if value1 <=0 and close <= lowest(low,var_a)then Sell;
{sluit de shortpositie als de koers het hoogste niveau van de laatste var_a bars bereikt}
{Short Exit}
if close >= highest(high,var_a)then exitshort ;
{sluit de longpositie als de koers het laagste niveau van de laatste var_a bars bereikt}
{Long Exit}
if close <= lowest(low,var_a) then exitlong;
?{---- check for signals for stoploss or profit take ----}
?{---- handle long site ----}
?if MarketPosition=1 then begin
? ?xProfitLevel = EntryPrice(0)+xProfit;
? ?xStopLevel = EntryPrice(0)-xStopLoss;
? ?if Close>xProfitLevel or Close<xStopLevel then exitlong; ?
? ?end;
?{---- handle short site ----}
?if MarketPosition=-1 then begin
? ?xProfitLevel = EntryPrice(0)-xProfit;
? ?xStopLevel = EntryPrice(0)+xStopLoss;
? if Close<xProfitLevel or Close>xStopLevel then exitshort; ?
? ?end;
end;