REM Berechnung von Bollinger B�ndern
  REM mm = AVERAGE[20](close)
  REM StandardDeviation = STD[20](close)
  REM bsup = mm + 2 * StandardDeviation
  REM binf = mm � 2 * StandardDeviation
REM Gibt 2 Kurven mit individuellen Namen
RETURN bsup AS " Bollinger Sup ", binf AS " Bollinger Inf "

-------------------------------------------------

Rem B�nder f�r longentry 20 bar high und ATR() trailingstop

ATR = AveragetrueRange[30](close)
LONGMARKE = 0
SHORTMARKE = 0
LASTMAX = 0

LASTMAX = HIGHEST[20](Close)

LONGMARKE  = LASTMAX
SHORTMARKE = LASTMAX - (ATR * 5 )

REM //RETURN LONGMARKE as "HighLine", SHORTMARKE as "LowLine"
RETURN  LONGMARKE AS " Bollinger Sup ",  SHORTMARKE  AS  " Bollinger Inf "
------------------------------------------------------------
REM Hawk HighLowFlex
REM BENUTZTE INDIKATOREN
ATR = AverageTrueRange[ATRPeriode](close)

REM VARIABLEN

LONGMARKE = 0
SHORTMARKE = 0
LASTMAX = 0
LASTMIN = 0
MAXMINHALF = 0


LASTMAX = HIGHEST[Perioden](HIGH)
LASTMIN = LOWEST[Perioden](LOW)
LONGMARKE = LASTMAX - (ATR * Offset)
SHORTMARKE = LASTMIN + (ATR * Offset)
MAXMINHALF = (LONGMARKE + SHORTMARKE) / 2

RETURN LONGMARKE as "HighLine", SHORTMARKE as "LowLine", MAXMINHALF as "MiddleLine"
--------------------------------------------------

REM StopIndi

REM VARIABLEN
ONCE EntryPoint= UNDEFINED
ONCE LongPosition=0
ONCE ShortPosition=0
ONCE TrailingStop= UNDEFINED
ONCE InitialStopStep=ISS
ONCE TrailingStep=TS


REM BENUTZTE INDIKATOREN
GD1 = ExponentialAverage[10](close)
GD2 = ExponentialAverage[100](close)


REM LONG BEDINGUNG
IF (LongPosition=0) AND (GD1 CROSSES OVER GD2) THEN
	EntryPoint=close
	LongPosition = 1
	TrailingStop=EntryPoint - InitialStopStep
ENDIF

REM STOP BEDINGUNG 
IF (LongPosition = 1) THEN
	IF (close>=(EntryPoint+TrailingStep)) THEN
		TrailingStop = EntryPoint
	ENDIF
ENDIF

REM LONG EXIT DURCH STOP
IF (close <= TrailingStop) THEN
	LongPosition = 0
ENDIF

IF (GD1 CROSSES UNDER GD2)  THEN
	LongPosition = 0
ENDIF



REM SHORT BEDINGUNG
IF (ShortPosition = 0) AND (GD1 CROSSES UNDER GD2) THEN
	EntryPoint = close
	ShortPosition = 1
	TrailingStop=EntryPoint + InitialStopStep
ENDIF

REM STOP BEDINGUNG (INITIALSTOP, FLATSTOP, TRAILINGSTOP)
IF (ShortPosition = 1) THEN
	IF (close <= (EntryPoint - TrailingStep)) THEN
		TrailingStop = EntryPoint
	ENDIF
ENDIF

REM SHORT EXIT DURCH STOP
IF (close >= TrailingStop) THEN
	ShortPosition = 0
ENDIF


IF (GD1 CROSSES OVER GD2)  THEN
	ShortPosition = 0
ENDIF

RETURN EntryPoint AS "ENTRY" , TrailingStop AS "TRAILINGSTOP"
--------------------------------------------------------------

REM DONCHIAN CHANNEL

REM VARIABLEN

PointHigh = HIGHEST[n] (HIGH)
PointLow = LOWEST[n](LOW)
Half = PointHigh -( (PointHigh - PointLow) / 2)

REM MIT A=1 WERDEN DIE ZUSATZLINIEN EINGESCHALTET. MIT 0 AUS.
IF (a = 1) THEN
	
	UpperHalf = PointHigh - ( (PointHigh - PointLow) / 4 )
	LowerHalf =PointLow + ( (PointHigh - PointLow) / 4 )
ENDIF


Return PointHigh AS "HIGH", PointLow AS "LOW", UpperHalf AS "ZUSATZLINIE1" , Half AS "MITTELLINIE", LowerHalf AS "ZUSATZLINIE2"
-----------------------------------------------------------
Die Efficiency Ratio kann Werte zwischen 0 und 1 annehmen. Haben die Kurse im Betrachtungszeitraum netto keine Differenz erzeugt, so hat die Efficiency Ratio den Wert 0. Auch Werte nahe bei 0 weisen darauf hin, dass das betrachtete Wertpapier lediglich unbedeutende Schwankungen erzeugt hat, aber netto kaum eine Kursver�nderung erfahren hat. Bewegten sich die Kurse dagegen im Betrachtungszeitraum jeden Tag ausschlie�lich in die gleiche Richtung, so dass die Netto-Kursspanne mit der Brutto-Kursspanne identisch ist, so nimmt die Efficiency Ratio den Wert 1 an. Die Kursbewegung enth�lt in diesem Fall �berhaupt kein Noise, sondern es liegt eine nahezu lineare Aufw�rts- oder Abw�rtsbewegung ohne Zwischenkorrektur vor. Wie gew�nscht unterscheidet die Efficiency Ratio also Marktphasen mit starken, unbedeutenden Schwankungen von solchen mit einer klar trendgerichteten Bewegung.
noise = summation[N](abs(close - close[1]))
if noise <> 0 then
    effRatio = ABS( close - close[N]) / noise
else
    effRatio = 1
endif
return effRatio as "EffRatio", HL as "Horizontale Linie"