TSIsysteem - Respons

[Paul M]

Graag wat respons op onderstaand systeem:

Functie zTSI:

inputs:
? ? ? ?Price(NumericSeries),
? ? ? ?Raw(NumericSimple),
? ? ? ?Smooth(NumericSimple),
? ? ? ?U(NumericSimple);

vars:
? ? ? ?NetChg(0);

? ? ? ?NetChg = Price - Price[1];

Value1 = 100 * XAverage(XAverage(XAverage(NetChg,Raw),Smooth),U);
Value2 = XAverage(XAverage(XAverage(AbsValue(NetChg),Raw),Smooth),U);;

if Value2 <> 0 then
? ? ? ?zTSI = Value1 / Value2
else
? ? ? ?zTSI = 0;
end;

Systeem:

inputs:
? ? ? ?Price(Close),
? ? ? ?Raw(25),
? ? ? ?Smoothed(13);
if ztsi(Price, Raw, Smoothed,1)<xaverage(ztsi(Price, Raw, Smoothed,1),5)
then Sell next bar at h limit;

if ztsi(Price, Raw, Smoothed,1)>xaverage(ztsi(Price, Raw, Smoothed,1),5)
then buy Next bar at l limit;

Plot1(zTSI(Price, Raw, Smoothed,1), "TSI");
Plot2(XAverage(zTSI(Price, Raw, Smoothed,1),5),"XAvg ");
Plot3(0,"0");
plot4(currentcontracts,'position'); ?
end;

Groetjes Paul

[FM]

Paul,

Kun je iets aanachtergond informatie geven. Is het op dagbasis, voor specifieke aandelen, etc....

met groet,


Frans.

[Paul M]

Hoi Frans,

Op dagbasis, AEX fondsen.
Ik heb hem inmiddels iets aangepast , het Sell next bar at h limit
en het buy Next bar at l limit werkt volgens mij niet.
Ik zie dat de formule niet helemaal weergegeven wordt,
via edit is hij wel te zien.
Volgende aanpassing:

inputs:
? ? ? ?Price(Close),
? ? ? ?Raw(50),
? ? ? ?Smoothed(45),U1(5),U2(8);
if xaverage(ztsi(Price, Raw, Smoothed,U1),U2)
crosses below 0
and ztsi(Price, Raw, Smoothed,U1)<
xaverage(ztsi(Price, Raw, Smoothed,U1),U2)
then Sell ;

if xaverage(ztsi(Price, Raw, Smoothed,U1),U2)
crosses above 0
and ztsi(Price, Raw, Smoothed,U1)>
xaverage(ztsi(Price, Raw, Smoothed,U1),U2)
then buy ;
end;

Graag jouw bevindingen.
Goetjes Paul