| |
|
|
Weekly
Momentum for DAILY Chart
n:=Input("Periods",1,20,10);{start week}
sw:=If(DayOfWeek()<=Ref(DayOfWeek(),-1),1,0);
(ValueWhen(1,sw>0,Ref(C,-1)) / ValueWhen(n+1,sw>0,Ref(C,-1)))*100
|
Weekly Pivot
Point
Dw:=If(DayOfWeek()<=Ref(DayOfWeek(),-1),1,0);
{Weekly Typical Price}
PP1:=If(Dw=1,
{then}(Ref(HighestSince(1,Dw=1,H),-1)+
Ref(LowestSince(1,Dw=1,L),-1) +
Ref(C,-1))/3,
{else}0);
{Weekly High}
Wh1:=If(Dw=1,
{then}Ref(HighestSince(1,Dw=1,H),-1),
{else}0);
{Weekly Low}
Wl1:=If(Dw=1,
{then}Ref(LowestSince(1,Dw=1,L),-1),
{else}0);
Wh:=ValueWhen(1,Wh1>0,Wh1);
Wl:=ValueWhen(1,Wl1>0,Wl1);
PP:=ValueWhen(1,PP1>0,PP1);
{Resistance 1}
R1:=(2*PP)-Wl;
{Support 1}
S1:=(2*PP)-Wh;
{Resistance 2}
R2:=(PP-S1)+R1;
{Support 2}
S2:=PP-(R1-S1);
R2;
R1;
S1;
S2;
|
|
 |
 |
|
Wkly Stoch 5 per %K,
slowing=3, no %D - I
{start week}
sw:=If(DayOfWeek()<=Ref(DayOfWeek(),-1),1,0);
yestClo:=If(sw>0,Ref(C,-1),0);
{lowest low last 5 weeks}
LLow:=(ValueWhen(1,sw>0, Ref(LowestSince(5,sw>0=1,L),-1)));
{highest high last 5 weeks}
HHigh:=(ValueWhen(1,sw>0,Ref(HighestSince(5,sw>0,H),-1)));
{5 per
%K, slowing=3}
y:=(ValueWhen(1,sw>0,(yestClo-LLow)) +
ValueWhen(2,sw>0,(yestClo-LLow)) +
ValueWhen(3,sw>0,(yestClo-LLow)))/
((
ValueWhen(1,sw>0,HHigh)
+
ValueWhen(2,sw>0,HHigh) +
ValueWhen(3,sw>0,HHigh)) -
(ValueWhen(1,sw>0,LLow) +
ValueWhen(2,sw>0,LLow) +
ValueWhen(3,sw>0,LLow))) * 100;
y;
|
Wkly Stoch 5
per %K, slowing=3, no %D - II
{start week}
sw:=If(DayOfWeek()<=Ref(DayOfWeek(),-1),1,0);
yestClo:=If(sw>0,Ref(C,-1),0);
{lowest low last 5 weeks}
LLow:=(ValueWhen(1,sw>0, Ref(LowestSince(5,sw>0=1,L),-1)));
{highest high last 5 weeks}
HHigh:=(ValueWhen(1,sw>0,
Ref(HighestSince(5,sw>0,H),-1)));
{5 per %K, slowing=3}
y:=(ValueWhen(1,sw>0,(yestClo-LLow)) +
ValueWhen(2,sw>0,(yestClo-LLow)) +
ValueWhen(3,sw>0,(yestClo-LLow))) /
((ValueWhen(1,sw>0,HHigh) +
ValueWhen(2,sw>0,HHigh) +
ValueWhen(3,sw>0,HHigh)) -
(ValueWhen(1,sw>0,LLow) +
ValueWhen(2,sw>0,LLow) +
ValueWhen(3,sw>0,LLow)))*100;
{This plots the 3 period %D (ma) of
the above.}
z:=(ValueWhen(1,sw>0,y) +
ValueWhen(2,sw>0,y) +
ValueWhen(3,sw>0,y)) / 3;
z
|
|
|
|
|
Wilder's ATR
periods:=Input("ATR Periods?",1,100,10);
TH:=If(Ref(C,-1) >
H,Ref(C,-1),H);
TL:=If(Ref(C,-1) < L,Ref(C,-1),L);
TR:=TH-TL;
Wilders(TR,periods)
|
Wilder's
Volatility Index
(13 * Prev + ATR(1)) / 14
|
William's %R bas.
((HHV(H,14)-C)/(HHV(H,14)-LLV(L,14)))*-100
|
Williams %R
Modified
Periods := Input("Time Period", 3,50,5);
NumDev := Input("No. of
Standard Deviations", 1,5,2);
(100*(C-BBandBot(C, Periods, S, NumDev))/
((( BBandTop(C, Periods, S,NumDev))-
(BBandBot(C, Periods, S,
NumDev)))))
|
Williams %R -
Similar
Periods := Input("Time Period", 3,50,5);
NumDev := Input("No. of
Standard Deviations", 1,5,2);
(100*(C-BBandBot(C, Periods, S, NumDev)) /
((( BBandTop(C, Periods, S, NumDev))-(BBandBot(C, Periods, S,
NumDev)))))
|
William's Sentiment Index
TrueRangeHigh:=Max(Ref(CLOSE,-1),HIGH);
TrueRangeLow:=Min(Ref(CLOSE,-1),LOW);
(Mov(CLOSE,9,S)-Mov(TrueRangeLow,9,S))/
(Mov(TrueRangeHigh,9,S)-Mov(TrueRangeLow,9,S))*100
|
Williams'
Sentiment Index - Smoothed
TrueRangeHigh:=Max(Ref(CLOSE,-1),HIGH);
TrueRangeLow:=Min(Ref(CLOSE,-1),LOW);
a:=(Mov(CLOSE,9,S)-Mov(TrueRangeLow,9,S))/
(Mov(TrueRangeHigh,9,S)-Mov(TrueRangeLow,9,S))*100;
Mov(a,3,E)
|
| |
|
