altenatieve money flow indicator - maar hoe nu verder?

[mvs]

Hallo,

Ik loop al een tijd met de gedachte om een indicator de maken , die de geldstoom weer geeft.
?t Is een afgeleide van de moneyflow ?die Tostrams gebruikt.

Moneyflow Tostrams =

Als de koers stijgt met veel volume ?moneyflow omhoog.
Als de koers stijgt met weinig volume moneyflow neutraal.
Als de koers daalt met weinig volume moneyflow neutraal.
Als de koers daalt met veel volume moneyflow naar beneden


Ik dacht hier aan:

Neem het exp gemiddelde volume over 5 dagen(ema 5),

Als de close hoger is dan de bar daar voor en het volume hoger is dan het gemiddelde volume, dan ?
Close min de close van de bar daar voor, dit verschil keer het verschil tussen het gemiddelde volume.
(close ? close [1])* (volume ? gem.vol)

Als de close lager is dan de bar daar voor en het volume is hoog dan
Close van de dag ?vorige bar ?min ?close, ?dit verschil keer het verschil tussen het gemiddelde volume.
(close[1]-close)*(volume ? gem.vol.) ?uitkomst is dan negatief doordat volume ? gem.vol negatief is.


Zo heb ik hem gemaakt maar het is nog niet helemaal goed


value function zMFIa (value xgemvolbars=5)
begin ?value xgemvol, xVolverschil, xMFIa;

{Bereken Volume}
xGemVol ? ? := vema(volume,xgemvolbars);
xVolverschil:= volume-xgemvol;
end;

{Bepaal koersbeweging}
value xup, xdown, xneut ;
xUP ? ? ? := close[1] < close;
xdown ? ? := close[1] > close;
xneut ? ? := close[1] = close;

{Berekening van de verschillen}

xMFIa :=0;

If xUp ? and volume > ?xGemVol then xMFIa=xMFIa[1] +(Close-close[1])* xVolverschil;
If xDown and Volume > ?xGemvol then xMFIa=xMFIa[1] +(Close[1]-Close)* xVolverschil;
If xneut and Volume <> xgemvol then xMFIa=xMFIa[1] +0;

plot1(xMFIa,'MFIa ');



Kan iemand mij verder helpen, ik weet niet zeker of dat je wat ?hebt aan deze indicator. ?Het maakt lijkt me toch zichtbaar maken of dat de koersbeweging worden ondersteund door de omzetten.


Bij voorbaat dank,


Martin
?

[JOHAN M]

Hallo Martin,

Is het niet mogelijk dat de fout zich hier bevindt;

If xDown and Volume > ?xGemvol then xMFIa=xMFIa[1] -(Close[1]-Close)* xVolverschil;

En plaats de ploteigenschappen maar op histogram,?gebruik 2 kleuren neergaande 'Rood 'opgaande 'Groen'.

Johan

[mvs]

Johan, bedankt voor je reactie, natuurlijk had de + een -moeten zijn, stom van me.

Maar de indicator valt steeds terug naar 0(nul), het is eigenlijk mijn bedoeling dat de lijn door loopt.

Stel, als ?de uitkomst bv. 1 is ?en de volgende bar weer 1 zou de uitkomst 2 moeten worden, dus dat je een steigende of dalende lijn krijgt, nu blijft dat 1. Als de uitkomst van de volgende bar 0 is, is het resultaat ook 0.

Maar hoe krijg ik het voor elkaar, dat de waarde van de vorige bar word gebruikt en de nieuwe waarde daar bij opgeteld wordt.

Kijk ook eens naar www.tostrams.nl en kies dan grafieken Aex en dan bv Abn Amro dan zie je door het volume de moneyflow lopen, dat probeer ik dus te krijgen.

Vr gr Martin

[JanBrinker]

Beste Martin,

Volgens mij doet de code hieronder dat wat jij in je eerste posting schrijft. ?Kijk maar eens naar de plot en laat dan even weten of het is wat je wilt. ?

Met vriendelijke groet,
Bertjan

value function zMFIa (value xGemVolBars=5)
begin ?value xGemVol, xVolverschil;

{Bereken Volume}
xGemVol ? ? := vema(Volume,xGemVolBars);
xVolVerschil:= Volume-xGemVol;
end;


{--- Calculate xMFIA ---}
value xMFIa;

If CurrentBar=1 then xMFIa=0 else if CurrentBar>1 then begin

If Close>Close[1] then xMFIa:=xMFIa[1]+xVolVerschil;

If Close<Close[1] ?then xMFIa:=xMFIa[1]-xVolverschil;

If Close=Close[1] then xMFIa=xMFIa[1];

end;


Plot1(xMFIa,'MFIa');
end;


(Edited by JanBrinker at 2:06 pm op 26,okt. 2003)

[mvs]

Bertjan, bedankt dit is inderdaad wat ik zocht.

Er is echter een foutje ingeslopen bij het kopieren van de tekst denk ik.

If Close ? zou dit moeten zijn logische wijs
If Close<Close[1] then xMFIa:=xMFIa[1]-xVolVerschil;


Met deze kleine aanpassing doet die het prima.

'k Heb er nog een gemiddelde MFIa bij gemaakt, en op het eerst gezicht lijkt het, dat als de MFIa door het gemiddelde MFia kruist en de stochastics een koopsignaal geeft, dat dat een goed koop punt is, uitstappen als het MFIa neerwaarts kruist.

Zal proberen hier een systeempje van maken

'k weet nu, hoe je de 'plot' kan doorlaten lopen.

'k Probeer nu op dezelfde wijze ook een indicator te maken die de verschil tussen de koers / Rsi en koers / momentum aan gaat geven. Of ik er wat aan heb is weet ik niet, maar als je niets probeert weet je het nooit.


Hier de formule met de aanpassing en de GemMFIa

Johan en Bertjan, bedankt


--------------
value function zMFIa (value xGemVolBars=5,value xGemMFIaBars=20)
begin ?value xGemVol, xVolverschil;

{Bereken Volume}
xGemVol ? ? := vema(Volume,xGemVolBars);
xVolVerschil:= Volume-xGemVol;
end;


{--- Calculate xMFIA ---}
value xMFIa, xGemMFIa;

If CurrentBar=1 then xMFIa=0 else if CurrentBar>1 then begin

If Close>Close[1] then xMFIa:=xMFIa[1]+xVolVerschil;

If Close<Close[1] then xMFIa:=xMFIa[1]-xVolVerschil;
If Close=Close[1] then xMFIa=xMFIa[1];

xGemMFIa := vma(xMFIa,xGemMFIaBars);
end;


Plot1(xMFIa,'MFIa');
plot2(xGemMFIa,'Gem. MFIa');
end;

[Joop Henzen]

en nu nog even echt foutloos

value function zMFIa (value xGemVolBars=5,value xGemMFIaBars=20)
begin ?value xGemVol, xVolverschil;

{Bereken Volume}
xGemVol ? ? := vema(Volume,xGemVolBars);
xVolVerschil:= Volume-xGemVol;
end;


{--- Calculate xMFIA ---}
value xMFIa, xGemMFIa;

If CurrentBar=1 then xMFIa=0 else if CurrentBar>1 then begin

If Close>Close[1] then xMFIa:=xMFIa[1]+xVolVerschil;

If Close=Close[1] then xMFIa=xMFIa[1];

xGemMFIa := vma(xMFIa,xGemMFIaBars);
end;


Plot1(xMFIa,'MFIa');
plot2(xGemMFIa,'Gem. MFIa');
end;


groet


Joop Henzen

[mvs]

Inderdaad, Joop, nu viel de regel helemaal weg.
Maar zo is die goed, Bedankt

Martin

[JanBrinker]

Beste Martin en Joop,

Mooi dat die indicator nu werkt zoals Martin dat wilde. Wellicht ten overvloede: als je iets wilt kopi?ren van het forum werkt het het beste om dat te doen via de edit knop die in de balk staat boven elke posting.


Groet,
Bertjan

(Edited by JanBrinker at 9:28 pm op 27,okt. 2003)

[mvs]

Bertjan, ?

De indicator heeft globale gezien weer wat ?ik wilde, ?maar 'k heb te snel gezegd ?dat die goed was. In eerste instantie dacht ik, daar hebben we hem, ?maar toen ik er een systeempje van probeerde te maken toen, had ik toch nog te veel verliezende trades. ?k ?heb wat verder gekeken dan mijn neus lang was, en kwam tot de conclusie dat de koersveranderingen niet zijn meegenomen. Dit resulteerde bij bv ABN AMRO bij de grote daling in maart (aex 218) ?in een stijgende (altenatieve) moneyflow indicator.
Daarom heb ik in de volgende formule ?de koers beweging meegenomen in de berekening (lees: Close min Close vorige bars= koersbeweging)
Ook ?om de grilligheid uit de moneyflow lijn te halen heb ik er een ema 2 van gemaakt (xAfvlakbars=2)

Hierbij heb je bijna de zelfde Moneyflow indicator die de Tostrams Groep gebruikt

Mvg
Martin


De formule

value function zMFIa (value xGemVolBars=5,value xGemMFIaBars=20, value xAfvlakBars=2 )
value xGemvol, xVolverschil,xkoersverschil,xMF;

{Bereken Volume}
xGemVol ? ? ? := vema(Volume,xGemVolBars);
xVolVerschil ?:= Volume-xGemVol;
xKoersverschil:= close-close[1];
xMF ? ? ? ? ? := xvolverschil*xKoersverschil;
end;


{--- Calculate xMFIA ---}
value xMFIa, xGemMFIa;

If CurrentBar=1 then xMFIa=0 else if CurrentBar>1 then begin

If Close>Close[1] then xMFIa:=xMFIa[1]+xMF;

If Close<Close[1] then xMFIa:=xMFIa[1]+xMF;{Is ook + xMF omdat uitkomst altijd negatief is, mits boven Gemvol}
If Close=Close[1] then xMFIa=xMFIa[1];

{Bereken Gem. MFIa}
xGemMFIa := vma(xMFIa,xGemMFIaBars);
end;
value xafvlakken;
xafvlakken := vma(xMFIa,xAfvlakbars);


Plot1(xAfvlakken,'MFIa');
plot2(xGemMFIa,'Gem. MFIa');
end;
-----------------------------------------------
Nu nog een systeem van maken


(Edited by mvs at 11:58 am op 29,okt. 2003)


(Edited by mvs at 12:00 pm op 29,okt. 2003)

[Joop Henzen]

Hallo Martin

2 fouten waren er in deze laatste versie

Weer ? ?2x ? IfClose

en

Bij plot 1 moet denk ik niet ''afgevlakt'' staan maar ik vermoed ?xMFIa


groet



Joop

[Joop Henzen]

foutje

xafgevlakt moet dus heten ? ? xafvlakken

[mvs]

Klopt, ?Joop, ?

je was mee net voor. 'k Zag het ook, wilde het net gaan veranderen. ?Maar die 2x 'If close' staat niet in de EDIT dus wat dat is? Maar het wordt inderdaad op het forum zo weer gegeven.

Bovenstaande formule is nu aangepast, maar dan knippen/plakken via de Edit'-knop'

Martin

[JanBrinker]

Martin,

Ikzelf gebruik al een tijd een money flow indicator gebaseerd op de DMI (directional movement index) en ik heb daar een systeempje om gebouwd. Mijn ervaring is dat maar voor enkele aandelen (bijv. Koninklijke Olie) mijn systeem gebasseerd op een volumeindicator het beter doet dan een vergelijkbaar systeem gebaseerd op alleen koersgegevens. In jouw MFI zou ik gebruik maken van een % koersverschil in plaats van een absolute.

Groet,
Bertjan