Relative Vigor Index - indicator

Vragen en suggesties over handelssystemen en indicatoren

Moderator: Perry

Relative Vigor Index - indicator

Berichtdoor JPR » zo 05 okt 2003, 17:07

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 ()
JPR
 
Berichten: 85
Geregistreerd op: wo 03 jul 2002, 18:39

Relative Vigor Index

Berichtdoor Paul M » zo 05 okt 2003, 18:41

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

Relative Vigor Index

Berichtdoor JPR » zo 05 okt 2003, 18:59

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
JPR
 
Berichten: 85
Geregistreerd op: wo 03 jul 2002, 18:39

Relative Vigor Index

Berichtdoor douwet » do 16 okt 2003, 18:19

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
douwet
 
Berichten: 4
Geregistreerd op: zo 24 nov 2002, 21:51

Relative Vigor Index

Berichtdoor Paul M » vr 17 okt 2003, 11:59

Wat is het probleem?

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

Relative Vigor Index

Berichtdoor JPR » za 18 okt 2003, 12:09

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 :-)
JPR
 
Berichten: 85
Geregistreerd op: wo 03 jul 2002, 18:39

Relative Vigor Index

Berichtdoor johan » zo 19 okt 2003, 11:34

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.
johan
 
Berichten: 7
Geregistreerd op: zo 30 jun 2002, 15:00

Relative Vigor Index

Berichtdoor hansvink » do 30 okt 2003, 13:52

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..
hansvink
 
Berichten: 17
Geregistreerd op: di 09 okt 2001, 8:32
Woonplaats: Hoorn ?NH


Keer terug naar Handelssystemen + Indicatoren

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers en 22 gasten

cron