nr 2 nimmt er ncht weil angebluch schon vorhanden
also machen wir es anders
letztes post vergessen
--------------------------
Function dss_bressert
Returns Nothing;
Parameters
§Security Source;
§Numeric period;
§Numeric smoothing;
§Numeric upperLevel;
§Numeric lowerLevel;
§
Variable
§Numeric hh;
§Numeric ll;
§Numeric stoch;
§Numeric smoothed;
§Numeric rslt;
Begin
§If period >= 1 Then
Begin§
§ll = Lowest(Source.Low, period);
§hh = Highest(Source.High, period);
§If hh <> ll Then
§stoch = (Source.Close - ll) / (hh - ll)
Else§
§stoch = 0;
§smoothed = funcMove(stoch, smoothing) * 100;
§ll = Lowest(smoothed, period);
§hh = Highest(smoothed, period);
§If hh <> ll Then
Begin§
§rslt = funcMove((smoothed - ll) / (hh - ll), smoothing) * 100;
§DrawLine("DSSBressert", rslt);
End;§
§End;
§DrawArea("#Upper", upperLevel, 100);
§DrawArea("#Lower", 0, lowerLevel);
End.