Ehlers MAD indicator

Stel hier uw vragen over TA-script, of help anderen met het oplossen van hun probleem
Plaats reactie
Janus
Berichten: 1395
Lid geworden op: wo jan 30, 2008 2:07 am
Contacteer:

Ehlers MAD indicator

Bericht door Janus »

Dhr. Ehlers presenteert in de uitgave van Stocks & Commodities een trend indicator gebaseerd op moving-averages.
De indicator bestaat uit twee indicatoren en hij belooft nog een latere update.
Ik plaats hier alvast de eerste indicator, de tweede volgt later, en daarna (wellicht volgende maand) zijn toevoeging hierop.
.
Het idee is eenvoudig, er wordt een verschil getoond tussen de koers en het gemiddelde, en dan niet voor één gemiddelde met 1 waarde, maar voor een gemiddelde met 21 verschillende waardes (een SMA).
De kleur verloopt afhankelijk van de waarde van de SMA, maar de meest rode kleur is belangrijk, die geeft de richting van de trend aan.
Wanneer de rode kleur aan de bovenkant van de indicator zit is de trend omhoog, en wanneer de rode kleur aan de onderkant zit is de trend omlaag.
.
Ik voeg even de code bij en een grafiekje.
Ik kom later deze week terug met de tweede indicator en we wachten daarna de toevoeging van Dhr. Ehlers af.

Afbeelding

.
code:

Code: Selecteer alles

// MAD indicator Ehlers
// vertaling jstas.com2021-09-23
// versie 1.00

Procedure Initialisatie();
begin
with Indicator do
 begin
  Requiredbars:= 100;
  NewBand := true;
  BkColor := RGB(128,128,128);
 end;
end;
//*****************************************************************************

Procedure tekenlijn(Serie: TSeries; Clr1,Clr2,Clr3 : Integer);
begin
 with CreateLine(Serie) do
 begin
   Color := RGB(Clr1,Clr2,Clr3);
   width := 1;
 end;
end;
//*****************************************************************************

var
sMA : TSeries;
sTel : Array[0..25] of Integer;
Llength,Slength, Teller, Teller2, Clr1, Clr2, Clr3 : integer;

begin
Clr1 := 255;
Clr3  := 0;
Clr2 := 125;
Teller2 := 0;
sTel[0] := 0;
Initialisatie();

Slength := 5;
Llength := 25;

for Teller := Slength to Llength do
 begin
  Clr2 := Round(306-10.2*Teller);
  sMA := MA(Close,MASimple,Teller);
  Tekenlijn(SubtractSeries(Close,sMA),Clr1,Clr2,CLr3);
  If (sTel[1]=1) then
   FillLinesRegion(sTel[Teller2-1],sTel[Teller2],RGB(Clr1,Clr2,Clr3),
                                                 RGB(Clr1,Clr2,Clr3),bssolid);
  Teller2 := Teller2 + 1;
  sTel[Teller2] := Teller2;
 end;

end.
.
Vriendelijke groet,
JanS ;)
Eric
Berichten: 3351
Lid geworden op: za sep 10, 2005 2:41 am
Locatie: Den Haag

Re: Ehlers MAD indicator

Bericht door Eric »

Leuke implementatie weer Janus! Voor degenen die een TA-script niet zo vlot lezen, de indicator tekent het verschil tussen de koers en 21 simpele MA's met een periode van 5 t/m 25, in kleur verlopend van geel (voor de kortste MA) naar rood (de langste MA).

---
Eric
Plaats reactie