Nico Bakker's Swingteller-indicator in TA-script

Laatste reactie 05/04/2017 16:41 door Will
· Markeren als ongelezen
Jan Robert Schutte (oude profiel) 4 jaar geleden geplaatst
Voor de geïnteresseerden: via Rombout Kerstens van Tradersclub/Keyword heb ik onderstaand Nico Bakker's Swingteller-indicator in TA-script op de kop getikt. Je kunt deze namelijk goed integreren in Binck Protrader/Alex Protrader.

{- Filename: TD - SetUp -}

//=== Variabelen ===============================================================

var
i,iFirst,Lb,UpCount,DownCount,FtSize : integer;
UpCol,DwCol,BUpCol,BDwCol : TColor;
BColor,Count : boolean;

//=== Procedure ================================================================

procedure TextAboveBar(Bar:integer; Text: string;
fFontSize:integer; AColor:TColor);
begin
with CreateText(BarPosition[Bar], High[Bar] * 1.003, Text) do
begin
VertPosition := vpTop;
HorzPosition := hpCenter;
Color := AColor;
Font.Size := fFontSize;
end;
end;

//=== Procedure ================================================================

procedure TextBelowBar(Bar: integer; Text: string;
fFontSize:integer; AColor:TColor);
begin
with CreateText(BarPosition[Bar], Low[Bar] * 0.997, Text) do
begin
VertPosition := vpBottom;
HorzPosition := hpCenter;
Color := AColor;
Font.Size := fFontSize;
end;
end;

// === BEGIN ===================================================================

BEGIN

// --- Indicator eigenschappen -----------------------------------------------

with Indicator do
begin
RequiredBars := 10;
NewBand := false;
HiddenParams := true;
end;

// --- Parameters ------------------------------------------------------------

Lb := CreateParameterInteger('Lookback', 1, 10, 4, true);
Count := CreateParameterBoolean('Hide Count?',false,false);
UpCol := CreateParameterColor('Count Up', clGreen);
DwCol := CreateParameterColor('Count Down', clRed);
FtSize := CreateParameterInteger('FontSize', 10, 25, 8, false);
BColor := CreateParameterBoolean('Hide BarColors?',true,false);
BUpCol := CreateParameterColor('BarColor Up', clGreen);
BDwCol := CreateParameterColor('BarColor Down', clRed);

// --- Indicatorberekening & Weergave ----------------------------------------

iFirst := FirstValidIndex(Close);
for i:=iFirst+Lb to BarCount-1 do
begin
if Close[i] > Close[i-Lb] then
begin
if not BColor then SetParentBarColor(i, BUpCol);
DownCount := 0;
UpCount := UpCount+1;
if not Count then TextAboveBar(i, IntToStr(UpCount),FtSize,UpCol);
end;
if Close[i] < Close[i-Lb] then
begin
if not BColor then SetParentBarColor(i, BDwCol);
UpCount := 0;
DownCount := DownCount+1;
if not Count then TextBelowBar(i, IntToStr(DownCount),FtSize,DwCol);
end;
end;

//=== END ======================================================================

END.

//==============================================================================
Jan Robert Schutte (oude profiel) 4 jaar geleden geplaatst
en als bijlage
Will Henst 4 jaar geleden geplaatst
Beste Jan Robert,

Zelf ben ik al maanden op zoek naar het exact goede dashboard van Nico Bakker in Binck protrader. Inmiddels heb ik contact met Nico en zijn we samen op zoek naar de exacte juiste versie. Zijn weerstand en steunlijnen en de dynamische OBOS hebben we in de juiste scripts. Echter de swingteller blijkt een stuk moeilijker te zijn. Ik heb een aantal versies met Nico besproken maar er blijkt telkens wel een gedeelte niet helemaal juist. Ik was dan ook blij met jouw post en heb deze inmiddels ook bekeken. Maar ook hier hebben we helaas niet de exact juiste versie (sorry, ik wil zeker niet ondankbaar zijn). I.o.m. Nico heeft hij voor mij de basisprincipes van de swingteller nog eens goed op een rijtje gezet. Zou jij op basis van deze principes het script kunnen vervolmaken of ken jij iemand die dat zou willen doen? Hoor graag van je.

Met vriendelijke groet, Will
Neem deel aan dit gesprek:
Je moet ingelogd zijn om mee te kunnen praten.
Topic gestart 11 February 2017 om 19:49
Aantal lezers 30
Aantal reacties 3