KST indicator

[Administrator]

De Know Sure Thing indicator van Martin Pring, besproken in TKA magazine in maart 2004 door Rob Brand en Jean Paul van Straalen.

Code: Selecteer alles

{- Filename: KST -}

const
  sHelpText = 'Martin Pring''s KST-indicator';

var
  KST, KSTSlow: TSeries;
begin
{ Indicator eigenschappen }
  with Indicator do 
  begin
    ShortName := 'KST';
    RequiredBars := 55;
    HelpText := sHelpText;
    SupportedSignals := [sgEnterLong, sgEnterShort];
  end;

{ Indicatorberekening }
  KST := AddSeries(MA(ROC(Close, 10), maSimple, 10), 
           AddSeries(MultiplySeriesBy(MA(ROC(Close, 15), maSimple, 10), 2),
             AddSeries(MultiplySeriesBy(MA(ROC(Close, 20), maSimple, 10), 3),
                       MultiplySeriesBy(MA(ROC(Close, 30), maSimple, 15), 4))));
  KSTSlow := MA(KST, maSimple, 10);

  CreateLine(KST).Color := clLime;
  CreateLine(KSTSlow).Color := clRed;
  Signals := CrossingsToEntrySignals(Crossings(KST, KSTSlow));
end.