Geschrieben von _Klaus Eckhoff am 04.01.2001, 00:10:
RE: Trendlines für Indikatoren
Hallo,
der nachfolgende Indikator illustriert, wie man mit Hilfe des Displace-Parameters Trendlinien bei Indikatoren emulieren kann:
{******************************************************************* Beschreibung: Dieser Indikator erstellt einfache Trendlininen zwischen je zwei aufeinanderfolgenden "SwingHighs" eines anderen Indikators (Parameter 1).
WICHTIG!: Beim Formatieren des Indikators bitte einstellen: Style: Type - "Right Tic", Weight - etwas staerker Scaling: "User Defined", Werte analog zu Indikator Properties: Subgraph wie verwendeter Indikator
Parameter: Func - Indikator, welcher als Basis benutzt werden soll (z.B. RSI(Close, 14) - Voreinstellung) Stength - "Staerke" des Swing (5)
Erstellt: Fuer Omega Usergroup 03.01.2001 / Copyright Klaus Eckhoff ********************************************************************}
Inputs: Func(RSI(Close,14)), Strength(5);
Vars: lastswing(0), Val(0), new(0), x(0), y(0);
Val = Func; if lastswing > 0 then lastswing = lastswing + 1;
new = SwingHighBar(1, Val, Strength, Strength+1);
if new > 0 then begin if lastswing = 0 then lastswing = new else begin y = val[lastswing]; For x = lastswing downto new begin Plot1[x](y, "IT", Blue); y = y - (val[lastswing] - val[new])/(lastswing-new); end; lastswing = 0; end; end; { Ende des Indikators }
MfG
-Klaus
|