Vestics Beleggers Netwerk

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

Volgens mij krijg je dit niet aan de praat. De code staat vol met Easy Language "Reserved Words" TL_........ en dat vreet Vestics volgens mij niet. Nog niet helemaal compatible vrees ik. Als het anders is hoor ik het graag.

Hallo,

Ik weet niet of je er iets aan hebt maar kijk eens bij de code die ik onder mijn vraag verticale trendlijn (2) heb
gezet, dit werkt behoudens dezelfde data wel en je kan deze variabele instellen, op deze manier kan je het misschien vanaf hier weer verder opbouwen met de
code die je zelf hebt. Kijk ook in de handleiding van tradestation easy language hierin staan de commando's TL_new etc. beschreven.