Vestics Beleggers Netwerk

Ik heb een script van een colorbar systeem en als je het programmeerd wordt op de juiste manier weergegeven in de grafieken Echter ik kan de kleuren niet veranderen. Zowel de down als de up bars blijven dezelfde kleur. Omdat het om een behoorlijk lang script gaat zet ik het hier niet neer maar kan ik je dat desgewenst toesturen.

hoi Max2005,

Stuur maar eens toe.

Paul

Ach wat ik zet het gewoon hier neer kan iedereen ervan profiteren.

Variables:
FUBarHigh(0),
FUBarLow(0),
SUBarHigh(0),
SUBarLow(0),
TUBarHigh(0),
TUBarLow(0),
FLBarHigh(0),
FLBarLow(0),
SLBarHigh(0),
SLBarLow(0),
TLBarHigh(0),
TLBarLow(0),
UpCount(0),
DownCount(0),
UpNew(0),
DnNew(0),
UpRev(0),
DnRev(0),
PlotHigh(0),
PlotLow(0),
Color(0);

If Close > UpNew Then Begin
?If DownCount < 3 Then Begin
? If UpCount = 0 Then Begin
? ? UpCount = UpCount + 1;
? ? DownCount = 0;
? ? FUBarHigh = Close;
? ? FUBarLow = UpNew;
? ? SUBarHigh = 0;
? ? SUBarLow = 0;
? ? TUBarHigh = 0;
? ? TUBarLow = 0;
? ? FLBarHigh = 0;
? ? FLBarLow = 0;
? ? SLBarHigh = 0;
? ? SLBarLow = 0;
? ? TLBarHigh = 0;
? ? TLBarLow = 0;
? ? UpNew = FUBarHigh;
? ? DnNew = FUBarLow;
? ? PlotHigh = FUBarHigh;
? ? PlotLow = FUBarLow; ? ?
? ? Color = 7;
? End;

? If UpCount = 1 Then
? ? If Close > UpNew Then Begin
? ? ? UpCount = UpCount + 1;
? ? ? SUBarHigh = Close;
? ? ? SUBarLow = FUBarHigh;
? ? ? UpNew = SUBarHigh;
? ? ? DnNew = SUBarLow;
? ? ? PlotHigh = SUBarHigh;
? ? ? PlotLow = SUBarLow;
? ? ? Color = 8;
? ? End;

? If UpCount = 2 Then
? ? If Close > UpNew Then Begin
? ? ? UpCount = UpCount + ?1;
? ? ? TUBarHigh = Close;
? ? ? TUBarLow = SUBarHigh;
? ? ? UpNew = TUBarHigh;
? ? ? DnNew = TUBarLow;
? ? ? PlotHigh = TUBarHigh;
? ? ? PlotLow = TUBarLow;
? ? ? Color = 7;
? ? End;

? If UpCount = 3 Then
? ? If Close > UpNew Then Begin
? ? ? FUBarHigh = SUBarHigh;
? ? ? FUBarLow = SUBarLow;
? ? ? SUBarHigh = TUBarHigh;
? ? ? SUBarLow = TUBarLow;
? ? ? TUBarHigh = Close;
? ? ? TUBarLow = SUBarHigh;
? ? ? UpNew = TUBarHigh;
? ? ? DnNew = TUBarLow;
? ? ? PlotHigh = TUBarHigh;
? ? ? PlotLow = TUBarLow;
? ? ? If Color = 7 Then
? ? ? ? Color = 8
? ? ? Else
? ? ? ? Color = 7;
? ? End;
?End;

?If DownCount = 3 Then Begin
? UpRev = FLBarHigh; ?
? If Close > UpRev Then Begin ?
? ? UpCount = UpCount + 1;
? ? DownCount = 0;
? ? FUBarHigh = Close; ?
? ? FUBarLow = TLBarHigh; ?
? ? SUBarHigh = 0;
? ? SUBarLow = 0;
? ? TUBarHigh = 0;
? ? TUBarLow = 0;
? ? FLBarHigh = 0;
? ? FLBarLow = 0;
? ? SLBarHigh = 0;
? ? SLBarLow = 0;
? ? TLBarHigh = 0;
? ? TLBarLow = 0;
? ? UpNew = FUBarHigh;
? ? DnNew = FUBarLow;
? ? PlotHigh = FUBarHigh;
? ? PlotLow = FUBarLow;
? ? Color = 7;
? End;
?End;
End;

If Close < DnNew Then Begin
?If UpCount < 3 Then Begin
? If DownCount = 0 Then Begin
? ? DownCount = DownCount + 1;
? ? UpCount = 0; ?
? ? FLBarHigh = DnNew;
? ? FLBarLow = Close;
? ? SLBarHigh = 0;
? ? SLBarLow = 0;
? ? TLBarHigh = 0;
? ? TLBarLow = 0;
? ? FUBarHigh = 0;
? ? FUBarLow = 0;
? ? SUBarHigh = 0;
? ? SUBarLow = 0;
? ? TUBarHigh = 0;
? ? TUBarLow = 0;
? ? UpNew = FLBarHigh;
? ? DnNew = FLBarLow;
? ? PlotHigh = FLBarHigh;
? ? PlotLow = FLBarLow;
? ? Color = 6; ?
? End;

? If DownCount = 1 Then
? ? If Close < DnNew Then Begin
? ? ? DownCount = DownCount + 1;
? ? ? SLBarHigh = FLBarLow;
? ? ? SLBarLow = Close;
? ? ? UpNew = SLBarHigh;
? ? ? DnNew = SLBarLow;
? ? ? PlotHigh = SLBarHigh;
? ? ? PlotLow = SLbarLow;
? ? ? Color = 5;
? ? End;

? If DownCount = 2 Then
? ? If Close < DnNew Then Begin
? ? ? DownCount = DownCount + ?1;
? ? ? TLBarHigh = SLBarLow;
? ? ? TLBarLow = Close;
? ? ? UpNew = TLBarHigh;
? ? ? DnNew = TLBarLow;
? ? ? PlotHigh = TLBarHigh;
? ? ? PlotLow = TLBarLow;
? ? ? Color = 6;
? ? End;

? If DownCount = 3 Then
? ? If Close < DnNew Then Begin
? ? ? FLBarHigh = SLBarHigh;
? ? ? FLBarLow = SLBarLow;
? ? ? SLBarHigh = TLBarHigh;
? ? ? SLBarLow = TLBarLow;
? ? ? TLBarHigh = SLBarLow;
? ? ? TLBarLow = Close;
? ? ? UpNew = TLBarHigh;
? ? ? DnNew = TLBarLow;
? ? ? PlotHigh = TLBarHigh;
? ? ? PlotLow = TLBarLow;
? ? ? If Color = 6 Then
? ? ? ? Color = 5
? ? ? Else
? ? ? ? Color = 6;
? ? End;
?End;

?If UpCount = 3 Then Begin
? DnRev = FUBarLow;
? If Close < DnRev Then Begin ?
? ? DownCount = DownCount + 1;
? ? UpCount = 0;
? ? FLBarHigh = TUBarLow;
? ? FLBarLow = Close; ?
? ? SLBarHigh = 0;
? ? SLBarLow = 0;
? ? TLBarHigh = 0;
? ? TLBarLow = 0;
? ? FUBarHigh = 0;
? ? FUBarLow = 0;
? ? SUBarHigh = 0;
? ? SUBarLow = 0;
? ? TUBarHigh = 0;
? ? TUBarLow = 0;
? ? UpNew = FLBarHigh;
? ? DnNew = FLBarLow;
? ? PlotHigh = FLBarHigh;
? ? PlotLow = FLBarLow;
? ? Color = 6;
? End;
?End;

End; ? Plot1(PlotHigh,"High Bar",Color);

Plot2(PlotLow,"Low Bar",Color);

dan kan je hier zien hoe het systeem werkt. dit systeem wordt nb voor $3,000.-- verkocht.

http://www.tradethemarkets.com/video/es ... icks2.html

je moet dit onder colorbar programmeren (knippen en plakken) en niet als systeem of indicator. Maar het probleem is dat de bars dan maar een kleur hebben en ik weet niet hoe ik dan kan veranderen (niet onder indicatoren wijzigen en dan plots...............)

Ik begin er echt een sik van te krijgen ik heb het script aangepast en ipv de nummerieke waarde van de kleuren de kleuren zelf ingeklopt maar dat doet ie ook niet en verder zit ik in dat vesticode handboek te snuffelen en daar staat het ook niet. Ik heb al mail gestuurd naar Pierre, zou die of een van de andere Vestics specialisten antwoord kunnen geven???

Als je 6 markers / colorbars met hun eigen naam via de grafiek aanmaakt, deze 6 in de grafiek elk hun gewenste kleur geeft en ze daarna in je indicator aanroept ?

Groetend, Geert

Ik heb geprobeert deze interessante indicator zo te krijgen als in het filmpje van de bijgevoede URL. Helaas wil me dat niet lukken, niet in Vestics, maar ook niet in TS.

kan iemand mij verder helpen?

bedankt,

Kane

Hoi Kane,

Deze werkt alleen in TS.

var:v1(0),v2(0),h1(0),h2(0),bp(0),cur(0),dir(0),bc(0),d1(0),t1(0),c1(0),c2(0),c3(0);

if t[1] = Sess1FirstBarTime and bc=0 then begin {initialize var's}
if c > c[1] then dir=1 else dir=-1;
v1=TL_New(D[1],T[1],c[1],D[1],t[1],c);
v2=TL_New(D,T,c[1],D,t,c);
h1=TL_New(D[1],T[1],c[1],D,t,c[1]);
h2=TL_New(D[1],T[1],c,D,t,c);
bp=c[1]; {breakpoint/price}
cur=c; {current max price}
bc=1;
d1=d;
t1=t;
c1=c[1];
c2=c[1];
c3=c[1];
end else begin
if dir=1 then begin
if c > cur then begin {plot a new up box}
v1=TL_New(D1,T1,c1,D1,t1,c);
v2=TL_New(D,T,c1,D,t,c);
h1=TL_New(D1,T1,c1,D,t,c1);
h2=TL_New(D1,T1,c,D,t,c);
TL_SetColor(h1,7);
TL_SetColor(h2,7);
TL_SetColor(v1,7);
TL_SetColor(v2,7);
cur=c; {new current max price}
bc=bc+1; {inc barcounter}
bp=c3;
d1=d;
t1=t;
c3=c2;
c2=c1;
c1=c;
end else begin
if c < bp then begin {then change direction to dn}
v1=TL_New(D1,T1,c2,D1,t1,c);
v2=TL_New(D,T,c2,D,t,c);
h1=TL_New(D1,T1,c2,D,t,c2);
h2=TL_New(D1,T1,c,D,t,c);
TL_SetColor(h1,6);
TL_SetColor(h2,6);
TL_SetColor(v1,6);
TL_SetColor(v2,6);
cur=c; {new current max price}
dir=-1; {change direction}
bp=c1;
d1=d;
t1=t;
c1=c;
c3=cur[1];
end;
end;
end;

if dir=-1 then begin
if c < cur then begin {plot a new up box}
v1=TL_New(D1,T1,c1,D1,t1,c);
v2=TL_New(D,T,c1,D,t,c);
h1=TL_New(D1,T1,c1,D,t,c1);
h2=TL_New(D1,T1,c,D,t,c);
TL_SetColor(h1,6);
TL_SetColor(h2,6);
TL_SetColor(v1,6);
TL_SetColor(v2,6);
cur=c; {new current max price}
bp=c3;
d1=d;
t1=t;
c3=c2;
c2=c1;
c1=c;
end else begin
if c > bp then begin {then change direction to up}
v1=TL_New(D1,T1,c2,D1,t1,c);
v2=TL_New(D,T,c2,D,t,c);
h1=TL_New(D1,T1,c2,D,t,c2);
h2=TL_New(D1,T1,c,D,t,c);
TL_SetColor(h1,7);
TL_SetColor(h2,7);
TL_SetColor(v1,7);
TL_SetColor(v2,7);
cur=c; {new current max price}
dir=1; {change direction}
bp=c1;
d1=d;
t1=t;
c1=c;
c3=cur[1];
end;
end;
end;
end;


Paul

Ik heb Steve Nison - Beyond Candlesticks nog eens doorgenomen en wil nu de three-line break in Vestics zetten. Uit de voorgaande correspondentie maak ik op dat de TLB geen indicator is; lijkt me logisch want de tijd speelt geen rol en past daarom niet in (sub)grafiek met datum als x-as; wordt dus een andere weergave van de gewone datalijn (eod).
Maar het is mij niet duidelijk waar ik dat nu precies moet neerzetten.

Wie heeft een advies voor mij?

Kun je het programmeren in plaats van een andere weergave bijv Histogram, als je die toch niet gebruikt?

groet,
Piet Robijn