three line break

Vragen en suggesties over Vesticode

Moderator: Perry

three line break

Berichtdoor Max2005 » wo 09 maart 2005, 14:53

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.
Max2005
 
Berichten: 5
Geregistreerd op: wo 09 maart 2005, 14:50

three line break

Berichtdoor Paul M » wo 09 maart 2005, 22:09

hoi Max2005,

Stuur maar eens toe.

Paul
Paul M
 
Berichten: 263
Geregistreerd op: vr 13 dec 2002, 23:21

three line break

Berichtdoor Max2005 » wo 09 maart 2005, 22:24

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);
Max2005
 
Berichten: 5
Geregistreerd op: wo 09 maart 2005, 14:50

three line break

Berichtdoor Max2005 » wo 09 maart 2005, 22:25

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
Max2005
 
Berichten: 5
Geregistreerd op: wo 09 maart 2005, 14:50

three line break

Berichtdoor Max2005 » wo 09 maart 2005, 22:28

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...............)
Max2005
 
Berichten: 5
Geregistreerd op: wo 09 maart 2005, 14:50

three line break

Berichtdoor Maxim » do 10 maart 2005, 10:09

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???
Maxim
 
Berichten: 2
Geregistreerd op: ma 02 feb 2004, 20:12

Berichtdoor geert udema » vr 25 maart 2005, 23:24

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
geert udema
 
Berichten: 114
Geregistreerd op: ma 31 dec 2001, 11:45

Berichtdoor Kane » vr 02 dec 2005, 15:32

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
Kane
 
Berichten: 54
Geregistreerd op: di 20 nov 2001, 20:36

Berichtdoor Paul M » za 03 dec 2005, 21:58

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
Paul M
 
Berichten: 263
Geregistreerd op: vr 13 dec 2002, 23:21

waar precies code plaatsen ?

Berichtdoor probi » ma 14 aug 2006, 20:20

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
probi
 
Berichten: 6
Geregistreerd op: wo 26 jul 2006, 9:31
Woonplaats: Sommelsdijk


Keer terug naar Vesticode

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers en 1 gast

cron