| |
|
 |
 |
|
Rainbow
Max
Max(Mov(C,2,S),
Max(Mov(Mov(C,2,S),2,S),
Max(Mov(Mov(Mov(C,2,S),2,S),2,S),
Max(Mov(Mov(Mov(Mov(C,2,S),2,S),2,S),2,S),
Max(Mov(Mov(Mov(Mov(Mov(C,2,S),2,S),2,S),2,S),2,S),
Max(Mov(Mov(Mov(Mov(Mov(Mov(C,2,S),2,S),2,S),2,S),2,S),2,S),
Max(Mov(Mov(Mov(Mov(Mov(Mov(Mov(C,2,S),2,S),2,S),2,S),2,S),2,S),2,S),
Max(Mov(Mov(Mov(Mov(Mov(Mov(Mov(Mov(C,2,S),2,S)
,2,S),2,S),2,S),2,S),2,S),2,S),
Max(Mov(Mov(Mov(Mov(Mov(Mov(Mov(Mov(Mov(C,2,S)
,2,S),2,S),2,S),2,S),2,S),2,S),2,S),2,S),
Mov(Mov(Mov(Mov(Mov(Mov(Mov(Mov(Mov(Mov(C,2,S)
,2,S),2,S),2,S),2,S),2,S),2,S),2,S),2,S),2,S))))))))))
|
Rainbow Min
Min(Mov(C,2,S),
Min(Mov(Mov(C,2,S),2,S),
Min(Mov(Mov(Mov(C,2,S),2,S),2,S),
Min(Mov(Mov(Mov(Mov(C,2,S),2,S),2,S),2,S),
Min(Mov(Mov(Mov(Mov(Mov(C,2,S),2,S),2,S),2,S),2,S),
Min(Mov(Mov(Mov(Mov(Mov(Mov(C,2,S),2,S),2,S),2,S),2,S),2,S),
Min(Mov(Mov(Mov(Mov(Mov(Mov(Mov(C,2,S),2,S),2,S),2,S),2,S),2,S),2,S),
Min(Mov(Mov(Mov(Mov(Mov(Mov(Mov(Mov(C,2,S),2,S)
,2,S),2,S),2,S),2,S),2,S),2,S),
Min(Mov(Mov(Mov(Mov(Mov(Mov(Mov(Mov(Mov(C,2,S)
,2,S),2,S),2,S),2,S),2,S),2,S),2,S),2,S),
Mov(Mov(Mov(Mov(Mov(Mov(Mov(Mov(Mov(Mov(C,2,S)
,2,S),2,S),2,S),2,S),2,S),2,S),2,S),2,S),2,S))))))))))
|
Rainbow
Oscillator
100 *
(CLOSE - ((
Mov(C,2,S)+
Mov(Mov(C,2,S),2,S)+
Mov(Mov(Mov(C,2,S),2,S),2,S) +
Mov(Mov(Mov(Mov(C,2,S),2,S),2,S),2,S)+
Mov(Mov(Mov(Mov(Mov(C,2,S),2,S),2,S),2,S),2,S)+
Mov(Mov(Mov(Mov(Mov(Mov(C,2,S),2,S),2,S),2,S),2,S),2,S)+
Mov(Mov(Mov(Mov(Mov(Mov(Mov(C,2,S),2,S),2,S),2,S),2,S),2,S),2,S)+
Mov(Mov(Mov(Mov(Mov(Mov(Mov(Mov(C,2,S),2,S),2,S),2,S),2,S),2,S),2,S),2,S)+
Mov(Mov(Mov(Mov(Mov(Mov(Mov(Mov(Mov(C,2,S),2,S)
,2,S),2,S),2,S),2,S),2,S),2,S),2,S)+
Mov(Mov(Mov(Mov(Mov(Mov(Mov(Mov(Mov(Mov(C,2,S)
,2,S),2,S),2,S),2,S),2,S),2,S),2,S),2,S),2,S))
/10))/(HHV(C,10)-LLV(C,10))
|
Rainbow Band
Lower
-100 * (Fml("Rainbow Max") - Fml("Rainbow
Min")) / (HHV(C,10) - LLV(C,10))
|
Rainbow Band
Upper
100 * (Fml("Rainbow Max") - Fml("Rainbow Min"))
/ (HHV(C,10) - LLV(C,10))
|
|
|
|
|
Recursive
Moving Trend Average
Lb:=Input("Look-Back Period?",3,100,21);
Alpha:=2/(LB+1);
Bot:=(1-Alpha)*(If(Cum(1)<Lb,C,PREV))+C;
RMTA:=(1-Alpha)*(If(Cum(1)<Lb,C,PREV))+
(Alpha*Abs(C+Bot-Ref(Bot,-1)));
RMTA;
|
TOSC Oscillator
I
Lb:=Input("Look-Back Period?",3,100,21);
Alpha:=2/(LB+1);
Bot:=(1-Alpha)*(If(Cum(1)<Lb,C,PREV))+C;
RMTA:=(1-Alpha)*(If(Cum(1)<Lb,C,PREV))+
(Alpha*Abs(C+Bot-Ref(Bot,-1)));
TOSC:=RMTA-Mov(C,lb,E);
TOSC;
|
TOSC Oscillator
II
Lb:=Input("Look-Back Period?",3,100,21);
Ty:=Input("1=C 2=H 3=L 4= Median Price",1,4,1);
Tv:=If(Ty=1,C,If(Ty=2,H,If(Ty=3,L,MP())));
Alpha:=2/(LB+1);
Bot:=(1-Alpha)*(If(Cum(1)<Lb,Tv,PREV))+Tv;
RMTA:=(1-Alpha)*(If(Cum(1)<Lb,Tv,PREV)) +
(Alpha*(Tv+Bot-Ref(Bot,-1)));
TOSC:=RMTA-Mov(Tv,lb,E);
TOSC;
|
|
|
|
|
Relative
Momentum Index
Q:=Input("RSI Time Periods",1,1000,14);
M:=Input("Momentum Time
Periods",1,1000,5);
B:=Input("Field: 1=Close, 2=Open, 3=High,
4=Low, 5=Volume",1,5,1);
Bval:=If(B=1,C,If(B=2,O,If(B=3,H,If(B=4,L,V))));
Mom:=Bval-Ref(Bval,-M);
Z:=Wilders(If(ROC(Mom,1,$)>0,
ROC(Mom,1,$),0),LastValue(Q));
Y:=Wilders(If(ROC(Mom,1,$)<0,
Abs(ROC(Mom,1,$)),0),LastValue(Q));
RMS:=Z/Y;
RMIcust:=100-(100/(1+RMS));
Mov(RMIcust,M,S)
|
|
|
|
|
Relative Strength
Index (RSI) Custom I
Q:=Input("Time Periods",1,1000,14);
B:=Input("Field: 1=Close, 2=Open, 3=High,
4=Low,5=Volume",1,5,1);
Z:=If(B=1,Wilders(If(ROC(C,1,$)>0,ROC(C,1,$),0),LastValue(Q)),
If(B=2,Wilders(If(ROC(O,1,$)>0,ROC(O,1,$),0),LastValue(Q)),
If(B=3,Wilders(If(ROC(H,1,$)>0,ROC(H,1,$),0),LastValue(Q)),
If(B=4,Wilders(If(ROC(L,1,$)>0,ROC(L,1,$),0),LastValue(Q)),
Wilders(If(ROC(V,1,$)>0,ROC(V,1,$),0),LastValue(Q))))));
Y:=If(B=1,Wilders(If(ROC(C,1,$)<0,Abs(ROC(C,1,$)),0),LastValue(Q)),
If(B=2,Wilders(If(ROC(O,1,$)<0,Abs(ROC(O,1,$)),0),LastValue(Q)),
If(B=3,Wilders(If(ROC(H,1,$)<0,Abs(ROC(H,1,$)),0),LastValue(Q)),
If(B=4,Wilders(If(ROC(L,1,$)<0,Abs(ROC(L,1,$)),0),LastValue(Q)),
Wilders(If(ROC(V,1,$)<0,Abs(ROC(V,1,$)),0),LastValue(Q))))));
RS:=Z/Y;
100-(100/(1+RS))
|
Relative
Strenght Index - Custom II
okres:=Input("Okres w RSI",1,100,14);
rsc:=If(Mov(If(C-Ref(C,-1)<0,abs(C-Ref(C,-1)),0),okres,E)=0,1000000,
Mov(If(C-Ref(C,-1)>0, C-Ref(C,-1), 0),okres,E) /
Mov(If(C-Ref(C,-1)<0,abs(C-Ref(C,-1)),0),okres,E));
rsic:=(100-(100/(1+rsc)));
rsic
|
Relative
Strength Index - Custom III
RSIPeriod:= Int(14 / (Stdev(CLOSE,10)/Stdev(CLOSE,5)));
RSIDataArray:= Mov(CLOSE,25,SIMPLE);
U:= Wilders(If(ROC(RSIDataArray,1,$)>0,
ROC(RSIDataArray,1,$), 0),
LastValue(RSIPeriod));
D:= Wilders(If(ROC(RSIDataArray,1,$)<0,
Abs(ROC(RSIDataArray,1,$)), 0),
LastValue(RSIPeriod));
100-(100/(1+U/D))
|
Relative
Strength Index - Custom IV
A:=Input("RSI periods",2,50,14);
B:=C; {RSI target array}
U:=If(B>Ref(B,-1),B-Ref(B,-1),0);
D:=If((B<Ref(B,-1) OR
(B=Ref(B,-1))),Ref(B,-1)-B,0);
UE:=Wilders(U,A);
DE:=Wilders(D,A);
100-(100/(1+(UE/DE)));
|
Relative
Strength Index (RSI) Custom V
A:=Input("RSI periods",2,50,14);
B:=C; {RSI target array}
U:=Wilders(If(B>Ref(B,-1),B-Ref(B,-1),0),A);
D:=Wilders(If(B<Ref(B,-1),Ref(B,-1)-B,0),A);
100-(100/(1+(U/D)));
|
Relative
Strength Index (RSI) Denvelope
pds:=Input("Periods",2,200,14);
sd:=Input("Standard
Deviations",.01,10,2);
D1:= RSI(pds);
alpha:=2/(pds+1);
mt:=alpha*D1+(1-alpha)*(If(Cum(1)<pds,D1,PREV));
ut:=alpha*mt+(1-alpha)*(If(Cum(1)<pds,D1,PREV));
dt:=((2-alpha)*mt-ut)/(1-alpha);
mt2:=alpha*Abs(D1-dt)+(1-alpha)*PREV;
ut2:=alpha*mt2+(1-alpha)*PREV;
dt2:=((2-alpha)*mt2-ut2)/(1-alpha);
but:=dt+sd*dt2;
blt:=dt-sd*dt2;
blt;
dt;
but;
|
Relative
Strength Index - Full Formula
100 - 100/ (1.+
If(Mov(If(P-Ref(P,-1)<0,-(P-Ref(P,-1)),0),23,E)=0,1000000,
Mov(If(P-Ref(P,-1)>0, P-Ref(P,-1), 0),23,E)/
Mov(If(P-Ref(P,-1)<0,-(P-Ref(P,-1)),0),23,E) ))
|
|
|
|
|
Relative Vigor Index (RVI)
by John Ehlers
ti:=Input("length",2,20,10);
v1:=((C-O)+(2*Ref(C-O,-1))+(2*Ref(C-O,-2))+Ref(C-O,-3))/6;
v2:=((H-L)+(2*Ref(H-L,-1))+(2*Ref(H-L,-2))+Ref(H-L,-3))/6;
temp:=If(Sum(v2,ti)=0,0.0001,Sum(v2,ti));
rv:=Sum(v1,ti)/temp;
rvsig:= (rv+Ref(2*rv,-1)+Ref(2*rv,-2)+Ref(rv,-3))/6;
rv;
rvsig
|
RSI_m_SK
RSIPer := Input(" RSI ",2,100,14);
100-100/(1+(Mov(If(ROC(C,1,$),>,0,ROC(C,1,$),0),RSIPer,S)/
Mov(If(ROC(C,1,$),<,0,-ROC(C,1,$),0),RSIPer,S)))
|
RSI_m_SK_Va
RSIPer := Input(" RSI ",2,100,14);
100-100/(1+(Mov(If(ROC(C,1,$),>,0,ROC(C,1,$)*V,0),RSIPer,S)/
Mov(If(ROC(C,1,$),<,0,-ROC(C,1,$)*V,0),RSIPer,S)))
|
RSI of MACD
Q:=Input("Periods",1,1000,14);
Z:=Wilders(If(ROC(MACD(),1,$)>0,ROC(MACD(),1,$),0),LastValue(Q));
Y:=Wilders(If(ROC(MACD(),1,$)<0,Abs(ROC(MACD(),1,$)),0),LastValue(Q));
RS:=Z/Y;
100-(100/(1+RS))
|
Relative Strength Index
Smoothed(Ehlers)
len:=10;
smooth23:=(C+(2*Ref(C,-1))+(2*Ref(C,-2))+Ref(C,-3))/6;
change:=
ROC(smooth23,1,$);
cu23:=Sum(If(change>0,change,0),len);
cd23:=Sum(If(change<0,Abs(change),0),len);
cu23/(cu23+cd23)
|
Smoothed
Relative Strength Index (w. Wilder's Smoothing)
len:=10;
smooth23:=(C+(2*Ref(C,-1))+(2*Ref(C,-2))+Ref(C,-3))/6;
change:=
ROC(smooth23,1,$);
Z:=Wilders(If(change>0,change,0),len);
Y:=Wilders(If(change<0,Abs(change),0),len);
RS:=Z/Y;
100-(100/(1+RS))
|
| |
|
