Relative Vigor Index - indicator

[JPR]

Ik krijg de volgende functie en indicator niet goed vertaald vanuit Easylanguage: ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?Functie:value function TriAverageGen()
begin ?value Price(numericseries), value Length(numericsimple),
? ? ? ? value Length1, Length2, xTriAverageGen;

Length1 = Floor( (Length + 1) * .5) ;
Length2 = Ceiling( (Length + 1) * .5) ;
xTriAverageGen = Average( Average(Price, Length1), Length2 ) ;
TriAverageGen = xTriAverageGen
end; ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? Indicator: ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?value function RVI2 (value Length=10)
begin
?value Change, MyRange, Num, Den, RVI, RVISig;

Change = Close - Open ;
MyRange = High - Low ;
Value1 = TriAverageGen(Change,4) ;
Value2 = TriAverageGen(MyRange,4) ;
Num = Summation(Value1,Length) ;
Den = Summation(Value2,Length) ;

if Den > 0 then
?RVI = Num / Den ;
? RVISig = TriAverageGen(RVI, 4);

Plot1[RVI, "RVI"] ;
Plot2[RVISig, "Sig"] ;

end; ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?Wie weet wat er fout gaat ?? [] vervangen door ()

[Paul M]

Hallo JPR,

Het blijft moeizaam binnen Vestics.

Functie:

Value function zeTriAveragegen (value Price,Value Length) begin
Value Length1,Length2;

Length1 = Floor( ( Length + 1 ) * .5 ) ;

Length2 = Ceiling( ( Length + 1 ) * .5 ) ;
Value1=( Average( Price, Length1 );
zeTriAveragegen =Average( Value1, Length2 ) ;
end;

Indicator:

value function zeRVI (value Length=10)begin
?value Change, MyRange, Num, Den, RVI, RVISig;

Change = Close - Open ;
MyRange = High - Low ;
Value1 = zeTriAverageGen(Change,4) ;
Value2 = zeTriAverageGen(MyRange,4) ;
Num = Summation(Value1,Length) ;
Den = Summation(Value2,Length) ;

if Den > 0 then
?RVI = Num / Den ;
? RVISig = zeTriAverageGen(RVI, 4);

Plot1(RVI, "RVI") ;
Plot2(RVISig, "Sig") ;

end; ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

Paul

[JPR]

Geweldig Paul, je bent een kei.... het blijft jammer dat easylanguage niet zonder veel aanpassingen in Vestics werkt... maar even goed bedankt. Nu eens kijken of ik er iets zinnigs uit krijg......

Groet Paul

[douwet]

Beste Paul,

Heb je misschien de hele werkende RVI vesticode formule voor mij ?

ik krijg de easy language formule niet aan de gang

bvd

douwe

[Paul M]

Wat is het probleem?

Paul

[JPR]

Indicator: Relative Vigor Index
inputs:
Length(10) ;
variables:
Change(0),
MyRange(0),
Num(0),
Den(0),
RVI(0),
RVISig(0) ;
Change = Close - Open ;
MyRange = High - Low ;
Value1 = TriAverage_gen(Change,4);
Value2 = TriAverage_gen(MyRange,4) ;
Num = Summation(Value1,Length) ;
Den = Summation(Value2,Length) ;
if Den > 0 then
RVI = Num / Den ;
RVISig = TriAverage_gen(RVI, 4);
Plot1(RVI, "RVI") ;
Plot2(RVISig, "Sig") ;

Function: TriAverage_gen
inputs:
Price(numericseries),
Length(numericsimple) ;
variables:
Length1(0),
Length2(0) ;
Length1 = Floor( (Length + 1) * .5) ;
Length2 = Ceiling( (Length + 1) * .5) ;
TriAverage_gen = Average( Average(Price, Length1), Length2 ) ;
Tot uw dienst

[johan]

Hallo Paul,

bedankt voor het plaatsen van de Vigor index.
Ik heb via edit / kopieren / plakken de indicator in vestics proberen in te voeren. Echter vestics komt met de melding dat bij : Value1 = TriAverage_gen(Change,4); Vestics hier een naam van een variabele verwacht.
Wat doe ik niet goed?
B.v.d. voor reactie.

Groet, Johan.

[hansvink]

Hallo Johan,

Zo te zien heb je de EasyLanguage code van JPR gekopie?rd. Je moet de Functie en de Indicator
van Paul M hebben die er boven staan.
Bij mij werkt het prima.

Groet Hans..