// RSI-Vergleiche berechnen
// Berechnung von RSI mit eingestellten Zeitraum (Default ist 3)
_RSI := RSI (Para1);

// Das Berechnen des RSI-Wertes macht folgenden Prüfungen besser lesbar
// und geht auch schneller, da nicht immer erst der RSI komplett berechnet
// werden muss

// Bedingung 1: ist der RSI gegenüber dem Vortag gefallen und davor gestiegen?
_RSI_Test_1 := _RSI < Ref(_RSI,-1) AND Ref(_RSI,-1) > Ref(_RSI,-2);

// Bedingung 2: ist der RSI gegenüber dem Vortag gestiegen und davor gefallen?
_RSI_Test_2 := _RSI > Ref(_RSI,-1) AND Ref(_RSI,-1) < Ref(_RSI,-2);

// letzten Kurswert der Bedingungen bestimmen
_RSI_1L := LastValue(_RSI_Test_1);
_RSI_2L := LastValue(_RSI_Test_2);

// Default Ergebnisse für die Listenausgabe festlegen
_RetVal := "0"; // Ergebnis als Text
BackColor := LightRed;
TextColor := White;

// Trifft die 1. Bedingung nicht zu
if (_RSI_1L = 0) Then
Begin
  // dann 2. Bedingung prüfen
  BackColor := LightGreen;
  TextColor := Black;
  // wenn 2. Bedingung zutrifft --> Ausgabe der "1"
  if (_RSI_2L = 1) Then _RetVal := "1"
  else
  Begin // 2. Bedingung triff nicht zu. --> Ausgabe von "Trend" als Text
    _RetVal := "Trend";
    BackColor := DarkGreen;
    TextColor := White;
  End;
End;

Result:= _RetVal;