Hoi medegebruiker,
Van internet heb ik een systeem gehaald wat de mogelijkheid moet hebben om trendlijnen automatisch te tekenen, wat het probleem is weet ik niet, wat mijn vermoeden is dat nog niet alle functies in vestics aanwezig zijn. Is hier een oplossing zodat de hieronder vermeld systeem werkend te krijgen?
Inputs: RHStren(4), RLStren(4), Trailbar(6);
Vars: RHTLRef(-1), RHTLRef2(-1), RHSet(-1), RHSet2(-1), RHArrayVal(0), RHColorVar(0),
RLColorVar(0), BarsPast(0), RLTLRef(-1), RLTLRef2(-1), RLSet(-1), RLSet2(-1), RLArrayVal(0),
BuyPrice(0), PrevBuyPrice(0), SellPrice(0), PrevSellPrice(0);
Array: RHDate[10](0), RHTime[10](0), RHVal[10](0), RLDate[10](99999), RLTime[10](99999),
RLVal[10](99999);
{ Find new Swing High bars and draw corresponding trend lines }
If SwingHighBar(High, RHStren, RHStren+1)=RHStren then Begin
For Value1=9 downto 0 Begin
RHDate[Value1+1]=RHDate[Value1];
RHTime[Value1+1]=RHTime[Value1];
RHVal[Value1+1]=RHVal[Value1];
End;
RHDate[0]=Date[RHStren];
RHTime[0]=Time[RHStren];
RHVal[0]=High[RHStren];
For Value22=1 to 10 Begin
If RHVal[Value22]>RHVal[0] then Begin
RHArrayVal=Value22;
Value22=11;
End;
End;
If Value22<>11 then Begin
If RHSet>=0 then Begin
RHSet2=TL_SetExtRight(RHTLRef, False);
TL_Delete(RHTLRef);
End;
RHTLRef=TL_New(RHDate[RHArrayVal], RHTime[RHArrayVal], RHVal[RHArrayVal],
RHDate[0], RHTime[0], RHVal[0]);
RHSet=TL_SetExtRight(RHTLRef, True);
End;
End;
;
Dit is de onbewerkte versie.
Gr. Chris