Darvas Box_code

[Jo]

Hoi

Kan iemand helpen deze "Darvas Box_code" ?te vertalen naar Vesticode?


var BOXTOP, BOXBOTTOM: float;
var BOXBOTTOMDEF, BOXTOPDEF, BOXDEF, RESET, FIRST: boolean;
var BOXTOPCOUNT, BOXBOTCOUNT, BOXDAYS, LASTBOXBAR, BAR: integer;
BoxTop := 0.0;
BoxBottom := 0.0;
BoxTopCount := 0;
BoxBotCount := 0;
BoxBottomDef := False;
BoxTopDef := False;
BoxDef := False;
Reset := False;
first := true;
BoxDays := 2;
LastBoxBar := 0;

{**************************}
for Bar := 5 to BarCount() - 1 do
begin
If First = True then
?Begin
?BoxTop := PriceHigh(Bar);
?First := false;
?BoxTopCount := 0;
?BoxBotCount := 0;
?BoxBottomDef := False;
?BoxTopDef := False;
?LastBoxBar := Bar;
?End;

If BoxDef = False then
If PriceHigh(Bar) > BoxTop then
? Begin
? BoxTopCount := 0;
? BoxTop := PriceHigh(Bar);
{Resets BoxBotCount if New High is Made again}
? BoxBotCount := 0;
End;

If BoxDef = False then
If PriceHigh(Bar) <= BoxTop then
? Begin
? BoxTopCount := BoxTopCount + 1;
? End;

If BoxDef = False then
If BoxTopCount = BoxDays ?then
?If PriceHigh(Bar) <= BoxTop then
? Begin
? BoxTopDef := True;
? End;

if BoxDef = False then
If BoxTopDef = True then
?if BoxBottomDef = False then
? ?if BoxTopCount >= BoxDays+1 ?then
? Begin
? ? If BoxBotCount = 0 then
? ? ? ?Begin
? ? ? ?BoxBottom := PriceLow(Bar);
? ? ? ?End;

? ? If PriceLow(Bar) < BoxBottom then
? ? ? ?Begin
? ? ? ?BoxBotCount := 0;
? ? ? ?BoxBottom := PriceLow(Bar);
? ?End;

? ? If PriceLow(Bar) >= BoxBottom then
? ? ? ?Begin
? ? ? ?BoxBotCount := BoxBotCount + 1;
? ? ? ?End;

? ? If BoxBotCount = BoxDays+1 ?then
? ? ? ?Begin
? ? ? ?BoxBottomDef := True;
? ? ? End;
? End;

{test}
If BoxDef = False then
If BoxTopDef = True then
? ? ? Begin
? ? ? If PriceHigh(Bar) > BoxTop then
? ? ? ? ?Begin
? ? ? ? ?First := True;
? ? ? ? ?End;
? ? ? End;

If BoxDef = False then
If BoxBottomDef = True then
? If BoxTopDef = True then
? ? Begin
? ? BoxDef := True;
? ?BoxBottomDef := false;
? ?BoxTopDef := false;
? ?End;

{Darvas Box Defined}
If BoxDef = True then
? Begin
? DrawLine( Bar, BoxTop, LastBoxBar, ?BoxTop, 0, #Green, 2 );
? DrawLine( Bar, BoxBottom, LastBoxBar, ?BoxBottom, 0, #Red, 2 );

?If PriceHigh(Bar) > BoxTop then
? ? ?Begin
? ? ? BoxDef := False;
? ? ? DrawLine( LastBoxBar, BoxBottom, LastBoxBar, ?BoxTop, 0, #Green, 2 );
? ? ? DrawLine( Bar, BoxBottom, Bar, ?BoxTop, 0, #Green, 2 );
first := true;
BoxTop := PriceHigh(Bar);
End;

? If PriceLow(Bar) < BoxBottom then
? ? ?Begin
? ? ?BoxDef := False;
? ? ?DrawLine( LastBoxBar, BoxBottom, LastBoxBar, ?BoxTop, 0, #Red, 2 );
? ? ? DrawLine( Bar, BoxBottom, Bar, ?BoxTop, 0, #Red, 2 );
first := true;
BoxTop := PriceHigh(Bar);
? ?End;
End;

{second true}
If First = True then
?Begin
?BoxTop := PriceHigh(Bar);
?First := false;
?BoxTopCount := 1;
?BoxBotCount := 0;
?BoxBottomDef := False;
?BoxTopDef := False;
?LastBoxBar := Bar;
?End;
end;

Dank , ? ?Jo

[Paul M]

Hoi Jo,

Een poging, Vestics kent volgens mij geen Drawline functie of een Drawbox functie.
Vandaar een gewone lijn.

var: BoxTop(0), BoxBottom(0);
var: BoxTopCount(0), BoxBotCount(0);
Boolean BoxBottomDef=false, BoxTopDef=false, BoxDef=false, Reset=false, First=false;
var: xBar(3), BoxDays(0),PlotvalueTop(0),PlotvalueBottom(0),xBarCount(0),ID(0);


if currentbar=1 then begin
?BoxTop := 0;
?BoxBottom := 0;
?BoxTopCount := 0;
?BoxBotCount := 0;
?BoxBottomDef := False;
?BoxTopDef := False;
?BoxDef := False;
?Reset := False;
?first := true;
?BoxDays := 2;
?xBarCount=0;
end;

{**************************}

xBarCount=xBarCount+1;
If First = True then Begin
?
?BoxTop := Highest(High,5);
?First := false;
?BoxTopCount := 0;
?BoxBotCount := 0;
?BoxBottomDef := False;
?BoxTopDef := False;
?xBarCount=0;
End;



If BoxDef = False and Highest(High,5) > BoxTop then Begin
? BoxTopCount := 0;
? BoxTop := Highest(High,5);

{Resets BoxBotCount if New High is Made again}
? BoxBotCount := 0;

End;

If BoxDef = False and Highest(High,5) <= BoxTop then Begin
? BoxTopCount := BoxTopCount + 1;
?
End;

If BoxDef = False and BoxTopCount = BoxDays ?and Highest(high,5) <= BoxTop then Begin
? BoxTopDef := True;
?
End;

If BoxDef = False and BoxTopDef = True and BoxBottomDef = False and BoxTopCount >= BoxDays+1 ?then Begin
? ? ? ?
? ? ? ?If BoxBotCount = 0 then Begin
? ? ? ?BoxBottom := Lowest(low,5);
? ? ? ?End;

? ? ? ?If Lowest(low,5) < BoxBottom then Begin
? ? ? ?BoxBotCount := 0;
? ? ? ?BoxBottom := Lowest(low,5);
? ? ? ?End;

? ? ? ?If Lowest(low,5) >= BoxBottom then Begin
? ? ? ?BoxBotCount := BoxBotCount + 1;
? ? ? ?End;

? ? ? ?If BoxBotCount = BoxDays+1 ?then Begin
? ? ? ?BoxBottomDef := True;
? ? ? ?
? ? ? ?End;
End;
If First = True then plot5(1,"true");
{test}

If BoxDef = False and BoxTopDef = True then Begin
? ? ? ? ?If Highest(high,5) > BoxTop then Begin
? ? ? ? ?First := True;
? ? ? ? ?End;
? ? ?
End;


If BoxDef = False and BoxBottomDef = True and BoxTopDef = True then Begin
? ? BoxDef := True;
? ?

? ? BoxBottomDef := false;
? ? BoxTopDef := false;


End;

{Darvas Box Defined}

If BoxDef = True ?then Begin
vars: xBarNo(0);
PlotvalueTop=BoxTop;
? ? PlotvalueBottom=BoxBottom;
? ?for xBarNo := 0 to (xBarCount-1) do ?Plot1[(xBarCount)-xBarNo] := PlotvalueTop;
? ?for xBarNo := 0 to (xBarCount-1) do ?Plot2[(xBarCount)-xBarNo] := PlotvalueBottom;

? ?plot1(PlotvalueTop,"BoxTop");
? ?plot2(PlotvalueBottom,"BoxBottom");
? ?
? ?


? ? ? If Highest(high,5) > BoxTop then Begin
? ? ?
? ? ? BoxDef := False;
? ? ? PlotvalueTop=_NA;
? ? ? PlotvalueBottom=_NA;
? ? ? first := true;
? ? ? BoxTop := Highest(high,5);
? ? ? End;

? ? ? If Lowest(low,5) < BoxBottom then Begin
? ? ? BoxDef := False;
? ? ? PlotvalueTop=_NA;
? ? ? PlotvalueBottom=_NA;
? ? ? first := true;
? ? ? BoxTop := Highest(high,5);
? ? ? End;
end
else begin
PlotvalueTop := _NA;
PlotvalueBottom :=_NA;

end;

{second true}

If First = True then
?Begin

?BoxTop := Highest(high,5);
?First := false;
?BoxTopCount := 1;
?BoxBotCount := 0;
?BoxBottomDef := False;
?BoxTopDef := False;
?xBarCount=0;
End;

Met vr gr,

Paul

[Jo]

Paul,


Hartelijk dank voor de snelle reactie.
Deze namiddag kreeg ik nog een code aangeboden met bijpassende grafiek, maar deze blijkt een andere weergave te geven, kan jij achterhalen hoe dit komt?

LowL:=If(Low=LLV(Low,5),Low,If(Ref(Low,-1)=LLV(Low,5),Ref(Low,-1), If(Ref(Low,-2)=LLV(Low,5),Ref(Low,-2),If(Ref(Low,-3)=LLV(Low,5),Ref(Low,-3), If(Ref(Low,-4)=LLV(Low,5),Ref(Low,-4),0)))));
NewH:=ValueWhen(1,High>Ref(HHV(High,5),-1),High);
box1:=HHV(High,3)<HHV(High,4);
box2:=ValueWhen(1,BarsSince(High>Ref(HHV(High,5),-1))=3 AND box1=true,NewH);
box3:=ValueWhen(1,BarsSince(High>Ref(HHV(High,5),-1))=3 AND box1=true,LowL);
TopBox:=box2;
BottomBox:=box3;
TopBox;
BottomBox;

Ht:=If(Cross(HHV(H,4)=Ref(H,-3),.9)=1,Ref(H,-3),PREV);
Top:=If(Ht>Ref(Ht,-1),Ht,PREV);
Lt:=If(Cross(HHV(H,4)=Ref(H,-3),.9)=1,L,PREV);
Bot:=If(Lt<Ref(Lt,-1),Lt,PREV);
Top;
Bot;


Dank ? Jo

[Paul M]

Hoi Jo,

Vars:LowL(0),NHMRO(0),NewH(0),Box2(0),Box3(0),TopBox(0),BottomBox(0),Ht(0),Top(0),Lt(0),Bot(0),PlotvalueTop(0),PlotvalueBottom(0);

LowL=iff(low=lowest(low,5),low,
? ? iff(low[1]=lowest(low,5),low[1],
? ? iff(low[2]=lowest(low,5),low[2],
? ? iff(low[3]=lowest(low,5),low[3],
? ? iff(low[4]=lowest(low,5),low[4],0)))));

NHMRO=MRO(High>Highest(high[1],5),5,1);
NewH=high[NHMRO];

condition1=(highest(high,3))<(highest(high,4));
if NHMRO=3 and condition1 then Box2=NewH[NHMRO];
if NHMRO=3 and condition1 then Box3=LowL[NHMRO];

TopBox=Box2;
BottomBox=Box3;

if NHMRO=3 and condition1 then begin

vars: xBarNo(0);

PlotvalueTop=TopBox;
? ? PlotvalueBottom=BottomBox;
? ?for xBarNo := 0 to 3 do ?Plot1[xBarNo] := PlotvalueTop;
? ?for xBarNo := 0 to 3 do ?Plot2[xBarNo] := PlotvalueBottom;
end
else begin
PlotvalueTop := _NA;
PlotvalueBottom :=_NA;
end;

plot1(PlotvalueTop,"BoxTop");
plot2(PlotvalueBottom,"BoxBottom");


Paul