SafeZone Stop - StopLoss

[Dirk]

Een interessante stoploss is de SafeZone Stop uit het boek "Come into my trading room" van Alexander Elder, bij velen bekend. Hij heeft de SZS daarin prima uitgelegd en toegepast in Excel. Ik tracht de Stop in Vesticode te programmeren maar met mijn (nog?) beperkte kennis lukt het me niet. Is er iemand die al een succesvolle poging gewaagd heeft?

Groet,

Dick.

[Jos]

Hoi Dick,

Als je je excel sheet even naar me toe stuurt(josr@josr.org) dan kan ik hier vrijdag(vrije dag) even naar kijken.

Groeten,

Jos

[Ad]

Hoewel het al enige tijd geleden is dat dit topic aan de orde kwam wil ik nogmaals de vraag van Dirk herhalen: Is er iemand die de SafeZoneStop van Elder in Vesticode heeft geprogrammeerd? Indien gewenst kan ik hem de Excel sheet toesturen.

Groeten,
Ad

[poekmeister]

Dirk,
Ik wil er wel een poging aan wagen. Stuur het excelsheet maar naar "guusenkarel@hotmail.com". Heb je ook nog meer toelichting (Bijv. geschreven tekst-uitleg over hoe de stop werkt)?

Michel

[Ad]

Michel,

Ik heb je via e-mail de Excel sheet toegestuurd, vergezeld van wat commentaar.
Bedankt alvast voor je moeite.

Ad

[Paul M]

Hallo Dirk en de rest,

Alexander Elder?s ?SafeZone Stop? :
INPUTS:
Price((H+L)/2), MALength(22), Lookback(15), Trend(3), AutomaticLookBack(True), Multiplelong(2), Multipleshort(2);
VARIABLES:
MA(0), ?Ldiff(0), Lday(0), Sdiff(0), Sday(0), Longsum(0), ?Shortsum(0) , Countlong(0), Countshort(0), Avglow(0), Avghigh(0), Longstop(0), Shortstop(0), Lstop(0), Sstop(0), ii(0), LookBackTemp(0);
{Determine trend by slope of EMA}
MA = xaverage( Price, MALength );
Condition1 = MA > MA[Trend];
Condition2 = MA < MA[Trend];

{Determine Lookback Period (to prior swing extreme)}
IF LookBackTemp<LookBack THEN LookBackTemp=LookBackTemp+1;
IF Condition1<>Condition1[1] THEN BEGIN
LookBackTemp=LookBack;
Value1=MinList(MALength*0.66,LookBack);
IF Condition1 and AutomaticLookBack THEN IF LowestBar(L,Value1)<LookBack THEN LookBackTemp=LowestBar(L,Value1);
IF Condition2 and AutomaticLookBack THEN IF HighestBar(H,Value1)<LookBack THEN LookBackTemp=HighestBar(H,Value1);
END;
{determine and count number of days with:
for longs - ?lows being lower than prior lows
for shorts - ?highs being higher than prior highs}

Ldiff = IFF(L[1] > L, L[1] - L, 0); ? { Difference of lows }
Lday ?= IFF(L[1] > L, 1, 0); ? ? ? ? ?{ 1 if this is a "low's" day }
Sdiff = IFF(H[1] < H, H - H[1], 0); ? { Difference of highs }
Sday ?= IFF(H[1] < H, 1, 0); ? ? ? ? ?{ 1 if this is a "high's" day }

{SAFEZONE FOR LONGS}
{Get average of lows lower than prior low}
Longsum = summation(Ldiff, Lookbacktemp);
Countlong = summation(Lday, Lookbacktemp);
IF Countlong <> 0 THEN Avglow = Longsum / Countlong;

{Calculate stop at "X" times avglow}
Lstop = LOW - (Multiplelong * Avglow);

{Prevent stop from being lowered}
Longstop = MAXLIST(Lstop, Lstop[1], Lstop[2], Lstop[3], Lstop[4], Lstop[5]);
{Set Plot}
IF Condition1 THEN BEGIN
PLOT1(Longstop[1], "STOP");
END;
IF lastbaronchart THEN BEGIN
Plot1(Longstop[1], "STOP"); ? ? ? ? ?
Plot2(Longstop, "StopNext"); ? ? ? ? ? ? ? ? ? ? ?
END;
{SAFEZONE FOR SHORTS}
{Get average of highs higher than prior high}
Shortsum = summation(Sdiff, Lookbacktemp);
Countshort = summation(Sday, Lookbacktemp);
IF Countshort <> 0 THEN Avghigh = Shortsum / Countshort;

{Calculate stop at "X" times avghigh}
Sstop = HIGH + (Multipleshort * Avghigh);

{Prevent stop from rising}
Shortstop = MINLIST(Sstop, Sstop[1], Sstop[2], Sstop[3], Sstop[4], Sstop[5]);
{Set Plot}
IF Condition2 THEN BEGIN
PLOT1(Shortstop[1], "STOP");
END;
IF lastbaronchart THEN BEGIN
Plot1(Shortstop[1], "STOP"); ? ?
Plot2(Shortstop, "StopNext"); ? ? ? ? ?
END;

Groetjes Paul

(Edited by Paul M at 6:57 pm op 19,juli 2003)


(Edited by Paul M at 12:09 am op 20,juli 2003)

[Ad]

Hallo Paul,

Bedankt voor je EL-code van de SafeZoneStop.

Ik heb het in Vesticode omgezet en met de debugger de resultaten vergeleken met de uitkomst van de Excel sheet. Die bleken bij gelijke inputwaarden identiek.

Alleen de automatische aanpassing van de lookback-periode heb ik nog niet omgezet en getest. Daar is bovendien een stukje code weggevallen in de eerste regel van jouw EL-code (bij ?IF LookbackTempIF).

Hieronder volgt de Vesticode.

{Alexander Elder's "SafeZone Stop}

value function zSafeZoneStop(value xPrice=((High+Low)/2), value xMALength=22, value xLookBack=10, value xTrend=3, value xAutomaticLookBack=True, value xMultipleLong=2, value xMultipleShort=2) begin

{variables}
value xMA=0, xLDiff=0, xLDay=0, xSDiff=0, xSDay=0, xLongSum=0, XShortSum=0, xCountLong=0, xCountShort=0, xAvgLow=0, xAvgHigh=0, xLongStop=0, xShortStop=0, xLStop=0, xSStop=0, xii=0, xLookBackTemp=0;

{Determine trend by slope of EMA}
xMA := xaverage( xPrice, xMALength );
Condition1 := xMA > xMA[xTrend];
Condition2 := xMA < xMA[xTrend];

Plot1(xMA,'EMA'+NumToStr(xMALength));

{Determine Lookback Period (to prior swing extreme)}
{IF LookBackTempIF Condition1<>Condition1[1] THEN BEGIN
LookBackTemp=LookBack;
Value1=MinList(MALength*0.66,LookBack);
IF Condition1 and AutomaticLookBack THEN IF LowestBar(L,Value1)IF Condition2 and AutomaticLookBack THEN IF HighestBar(H,Value1)END;
}
xLookBackTemp:=xLookBack;

{determine and count number of days with:
for longs - ?lows being lower than prior lows
for shorts - ?highs being higher than prior highs}

xLdiff := IFF(Low[1] > Low, Low[1] - Low, 0); ? ? ? { Difference of lows }
xLday ?:= IFF(Low[1] > Low, 1, 0); ? ? ? ? ? ? ? ? ?{ 1 if this is a "low's" day }
xSdiff := IFF(High[1] < High, High - High[1], 0); ? { Difference of highs }
xSday ?:= IFF(High[1] < High, 1, 0); ? ? ? ? ? ? ? ?{ 1 if this is a "high's" day }


{SAFEZONE FOR LONGS}
{Get average of lows lower than prior low}
xLongsum := summation(xLdiff, xLookbackTemp);
xCountlong := summation(xLday, xLookbackTemp);
IF xCountlong <> 0 THEN xAvglow := xLongsum / xCountlong;

{Calculate stop at "X" times avglow}
xLstop := LOW - (xMultiplelong * xAvglow);

{Prevent stop from being lowered}
xLongstop := MAXLIST(xLstop[1], xLstop[2], xLstop[3]);
{Set Plot}
IF Condition1 THEN BEGIN
?PLOT2(xLongstop, "STOP");
?IF lastbaronchart THEN BEGIN
? ?Plot2(xLongstop, "STOP"); ? ? ? ? ? ? ? ? ? ?
?END;
END;



{SAFEZONE FOR SHORTS}
{Get average of highs higher than prior high}
xShortsum := summation(xSdiff, xLookbackTemp);
xCountshort := summation(xSday, xLookbackTemp);
IF xCountshort <> 0 THEN xAvghigh := xShortsum / xCountshort;

{Calculate stop at "X" times avghigh}
xSstop := HIGH + (xMultipleshort * xAvghigh);

{Prevent stop from rising}
xShortstop := MINLIST(xSstop[1], xSstop[2], xSstop[3]);
{Set Plot}
IF Condition2 THEN BEGIN
?PLOT2(xShortstop, "STOP");
?IF lastbaronchart THEN begin
? ?Plot2(xShortstop, "STOP"); ? ?
?end;
end;
end;

Groeten,

Ad

[Paul M]

Hallo Ad,

Als je de code via edit bekijkt en kopieert dan staat het stukje tekst er wel.

Groetjes Paul.

[Dirk]

Hoi Ad en Paul,

Een mooi stukje programmerkunst/kunde. Ik ga er in Vestics mee aan de slag.

Dank.

Dick

[Paul M]

P.S.

Het laatste stuk code moet eigenlijk zijn:
IF lastbaronchart THEN BEGIN
Plot1[-1](Shortstop, ?STOP?); ? ? {Shows tomorrows stop on lastbar+1} Plot2(Shortstop, ?StopNext"); ? ? ? ? ? {Indicates tomorrows stop}.
Maar dit werkt niet, althans nog niet, binnen Vestics.

Groetjes Paul

[Ad]

L.S.,

De functie zSafeZoneStop die ik 21 juli op het forum zette bevat de EasyLanguage-functies MaxList en MinList. Tot aan de nieuwe release van Vestics werkten die functies goed.
Nadat ik de nieuwe release installeerde (ik heb programmawijzigingen op 'Meteen' staan) kreeg ik executiefouten ten gevolge van de MaxList- en MinList-functie. De Verify na het editen gaf geen problemen.

Deze foutmelding heb ik doorgegeven aan Vestico.

De oplossing voor het ontstane probleem is te vinden in het Vesticode handboek.
Vervang de instructie
? xLongStop:=MAXLIST(xLStop[1], xLStop[2], xLStop[3]);
door
? xLongStop:=xLStop[1] >> xLStop[2] >> xLStop[3];
en de instructie
?xShortStop:=MINLIST(xSStop[1], xSStop[2], xSStop[3]);
door
?xShortStop:=xSStop[1] << xSStop[2] << xSStop[3];

Ad