Add 30EMA to RSC indicator

Hi Charles,

{Again an adaptation from a Maximo sector analysis indicator code from this Forum but I applied a Fisher Transform function for each sector as FT gives good turning points. refer John Ehlers, Cybernetic Analysis for Stocks and Futures John Wiley, 2004"}

[description="Universal Relative Strength Comparison, Max"   CMD Adapted to Fisher Transform]

prd:= input(" length", 10, 1, 50);


sec2 := inputsymbol("Sector", "XJO");
sec3 := inputsymbol("Sector", "XDJ");
sec4 := inputsymbol("Sector", "XSJ");
sec5 := inputsymbol("Sector", "XEJ");
sec6 := inputsymbol("Sector", "XFJ");
sec7 := inputsymbol("Sector", "XHJ");
sec8 := inputsymbol("Sector", "XNJ");
sec9 := inputsymbol("Sector", "XIJ");
secA := inputsymbol("Sector", "XMJ");
secB := inputsymbol("Sector", "XJR");
secC := inputsymbol("Sector", "XTJ");
secD := inputsymbol("Sector", "XUJ");
secE := inputsymbol("Sector", "XGD");
secF := inputsymbol("Sector", "XMM");

sector2:=LoadSymbol(sec2,C);
sector3:=LoadSymbol(sec3,C);
sector4:=LoadSymbol(sec4,C);
sector5:=LoadSymbol(sec5,C);
sector6:=LoadSymbol(sec6,C);
sector7:=LoadSymbol(sec7,C);
sector8:=LoadSymbol(sec8,C);
sector9:=LoadSymbol(sec9,C);
sectorA:=LoadSymbol(secA,C);
sectorB:=LoadSymbol(secB,C);
sectorC:=LoadSymbol(secC,C);
sectorD:=LoadSymbol(secD,C);
sectorE:=LoadSymbol(secE,C);
sectorF:=LoadSymbol(secF,C);

pr := C;
maxh := highest(pr,prd);
minl := lowest(pr,prd);
val1 := 0.33*2*((pr - minl)/(maxh - minl) - 0.5) + 0.67*previous;
value1 := if(val1 > 0.99,0.999,if(val1 < -0.99,-0.999,val1));
fish := 0.5*log((1 + value1)/(1 - value1))+0.5*previous;

pr2 := sector2;
maxh2 := highest(pr2,prd);
minl2 := lowest(pr2,prd);
val12 := 0.33*2*((pr2 - minl2)/(maxh2 - minl2) - 0.5) + 0.67*previous;
value12 := if(val12 > 0.99,0.999,if(val12 < -0.99,-0.999,val12));
fish2 := 0.5*log((1 + value12)/(1 - value12))+0.5*previous;

pr3 := sector3;
maxh3 := highest(pr3,prd);
minl3 := lowest(pr3,prd);
val13 := 0.33*2*((pr3 - minl3)/(maxh3 - minl3) - 0.5) + 0.67*previous;
value13 := if(val13 > 0.99,0.999,if(val13 < -0.99,-0.999,val13));
fish3 := 0.5*log((1 + value13)/(1 - value13))+0.5*previous;

pr4 := sector4;
maxh4 := highest(pr4,prd);
minl4 := lowest(pr4,prd);
val14 := 0.33*2*((pr4 - minl4)/(maxh4 - minl4) - 0.5) + 0.67*previous;
value14 := if(val14 > 0.99,0.999,if(val14 < -0.99,-0.999,val14));
fish4 := 0.5*log((1 + value14)/(1 - value14))+0.5*previous;

pr5 := sector5;
maxh5 := highest(pr5,prd);
minl5 := lowest(pr5,prd);
val15 := 0.33*2*((pr5 - minl5)/(maxh5 - minl5) - 0.5) + 0.67*previous;
value15 := if(val15 > 0.99,0.999,if(val15 < -0.99,-0.999,val15));
fish5 := 0.5*log((1 + value15)/(1 - value15))+0.5*previous;

pr6 := sector6;
maxh6 := highest(pr6,prd);
minl6 := lowest(pr6,prd);
val16 := 0.33*2*((pr6 - minl6)/(maxh6 - minl6) - 0.5) + 0.67*previous;
value16 := if(val16 > 0.99,0.999,if(val16 < -0.99,-0.999,val16));
fish6 := 0.5*log((1 + value16)/(1 - value16))+0.5*previous;

pr7 := sector7;
maxh7 := highest(pr7,prd);
minl7 := lowest(pr7,prd);
val17 := 0.33*2*((pr7 - minl7)/(maxh7 - minl7) - 0.5) + 0.67*previous;
value17 := if(val17 > 0.99,0.999,if(val17 < -0.99,-0.999,val17));
fish7 := 0.5*log((1 + value17)/(1 - value17))+0.5*previous;

pr8 := sector8;
maxh8 := highest(pr8,prd);
minl8 := lowest(pr8,prd);
val18 := 0.33*2*((pr8 - minl8)/(maxh8 - minl8) - 0.5) + 0.67*previous;
value18 := if(val18 > 0.99,0.999,if(val18 < -0.99,-0.999,val18));
fish8 := 0.5*log((1 + value18)/(1 - value18))+0.5*previous;

pr9 := sector9;
maxh9 := highest(pr9,prd);
minl9 := lowest(pr9,prd);
val19 := 0.33*2*((pr9 - minl9)/(maxh9 - minl9) - 0.5) + 0.67*previous;
value19 := if(val19 > 0.99,0.999,if(val19 < -0.99,-0.999,val19));
fish9 := 0.5*log((1 + value19)/(1 - value19))+0.5*previous;

prA := sectora;
maxhA := highest(prA,prd);
minlA := lowest(prA,prd);
val1A := 0.33*2*((prA - minlA)/(maxhA - minlA) - 0.5) + 0.67*previous;
value1A := if(val1A > 0.99,0.999,if(val1A < -0.99,-0.999,val1A));
fishA := 0.5*log((1 + value1A)/(1 - value1A))+0.5*previous;

prB := sectorB;
maxhB := highest(prB,prd);
minlB := lowest(prB,prd);
val1B := 0.33*2*((prB - minlB)/(maxhB - minlB) - 0.5) + 0.67*previous;
value1B := if(val1B > 0.99,0.999,if(val1B < -0.99,-0.999,val1B));
fishB := 0.5*log((1 + value1B)/(1 - value1B))+0.5*previous;

prC := sectorC;
maxhC := highest(prC,prd);
minlC := lowest(prC,prd);
val1C := 0.33*2*((prC - minlC)/(maxhC - minlC) - 0.5) + 0.67*previous;
value1C := if(val1C > 0.99,0.999,if(val1C < -0.99,-0.999,val1C));
fishC := 0.5*log((1 + value1C)/(1 - value1C))+0.5*previous;

prD2 := sectorD;
maxhD := highest(prD2,prd);
minlD := lowest(prD2,prd);
val1D := 0.33*2*((prD2 - minlD)/(maxhD - minlD) - 0.5) + 0.67*previous;
value1D := if(val1D > 0.99,0.999,if(val1D < -0.99,-0.999,val1D));
fishD := 0.5*log((1 + value1D)/(1 - value1D))+0.5*previous;

prE:= sectorE;
maxhE := highest(prE,prd);
minlE := lowest(prE,prd);
val1E := 0.33*2*((prE - minlE)/(maxhE - minlE) - 0.5) + 0.67*previous;
value1E := if(val1E > 0.99,0.999,if(val1E < -0.99,-0.999,val1E));
fishE := 0.5*log((1 + value1E)/(1 - value1E))+0.5*previous;

prF:= sectorF;
maxhF := highest(prF,prd);
minlF := lowest(prF,prd);
val1F := 0.33*2*((prF - minlF)/(maxhF - minlF) - 0.5) + 0.67*previous;
value1F := if(val1F > 0.99,0.999,if(val1F < -0.99,-0.999,val1F));
fishF := 0.5*log((1 + value1F)/(1 - value1F))+0.5*previous;



Filt := fish;
Trend:=if(Filt> Hist(Filt,1),1,if(Filt<Hist(Filt,1),-1,prev));
[drawundefined=gap]

[name="Chart"; color=Black; width=6]
ef1:=if(Trend=1 and hist(Trend,1)=-1,Filt,if(Trend=-1,Filt,undefined));
ef1;

[Color=Red]
ef2:=if(Trend=-1 ,Filt,if(hist(Trend,1)=1 ,Filt,undefined));
ef2;

[Color=Black]
ef3:=if(Trend=1 or Trend=0,Filt,undefined);
ef3;

[name="ASX 200"; color=BLUE; width=2]
trig2:=fish2;
trig2;

[name="Consumer Discret"; color=Cyan; width=2]
trig3:=fish3;
trig3;

[name="Consumer Staple"; color=Green; width=2]
trig4:=fish4;
trig4;

[name="Energy"; color=Red; width=2]
trig5:=fish5;
trig5;

[name="Financials"; color=Orange; width=2]
trig6:=fish6;
trig6;

[name="Health Care"; color=Dark Violet; width=2]
trig7:=fish7;
trig7;

[name="Industrial"; color=Olive Drab; width=2]
trig8:=fish8;
trig8;

[name="Info Tech"; color=Olive Drab; width=2]
trig9:=fish9;
trig9;

[name="Metal and Mining"; color=turquoise; width=2]
trigA:=fishA;
trigA;

[name="Resources"; color=violet; width=2]
trigB:=fishB;
trigB;

[name="Teleco"; color=Tan; width=2]
trigC:=fishC;
trigC;

[name="Utilities"; color=Dodger Blue; width=2]
trigD:=fishD;
trigD;

[name="All Ord Gold"; color=Gold; width=2]
trigE:=fishE;
trigE;

[name="Metals & Mining"; color=Black; width=2]
trigF:=fishF;
trigF;

[name="average"; color=black; width=2]
(Trig2+Trig3+Trig4+Trig5+Trig6+Trig7+Trig8+Trig9+TrigA+TrigB+TrigC+TrigD+TrigE+TrigF)/14;







Edited by cmacdon - 11 Sep 2014 at 4:15pm

expr := expression("Expression");
n := input("Time periods",100,1);

sec2 := inputsymbol("Indices", "XJO");
sec3 := inputsymbol("Indices", "XDJ");
sec4 := inputsymbol("Indices", "XSJ");
sec5 := inputsymbol("Indices", "XEJ");
sec6 := inputsymbol("Indices", "XFJ");
sec7 := inputsymbol("Indices", "XHJ");
sec8 := inputsymbol("Indices", "XNJ");
sec9 := inputsymbol("Indices", "XIJ");
secA := inputsymbol("Indices", "XMJ");
secB := inputsymbol("Indices", "XJR");
secC := inputsymbol("Indices", "XTJ");
secD := inputsymbol("Indices", "XUJ");
secE := inputsymbol("Indices", "XGD");
secF := inputsymbol("Indices", "XMM");


sector2:=LoadSymbol(sec2,C);
sector3:=LoadSymbol(sec3,C);
sector4:=LoadSymbol(sec4,C);
sector5:=LoadSymbol(sec5,C);
sector6:=LoadSymbol(sec6,C);
sector7:=LoadSymbol(sec7,C);
sector8:=LoadSymbol(sec8,C);
sector9:=LoadSymbol(sec9,C);
sectorA:=LoadSymbol(secA,C);
sectorB:=LoadSymbol(secB,C);
sectorC:=LoadSymbol(secC,C);
sectorD:=LoadSymbol(secD,C);
sectorE:=LoadSymbol(secE,C);
sectorF:=LoadSymbol(secF,C);

[name="Chart"; color=black; width=6]
(c/hist(c,n))*100;

[name="XJO";color=blue; width=1]
(sector2/hist(sector2,n))*100;
[name="XDJ";color=Cyan;]
(sector3/hist(sector3,n))*100;
[name="XSJ";color=green]
(sector4/hist(sector4,n))*100;
[name="XEJ";color=red]
(sector5/hist(sector5,n))*100;
[name="XFJ";color=orange]
(sector6/hist(sector6,n))*100;
[name="XHJ"; color=Dark Violet]
(sector7/hist(sector7,n))*100;
[name="XNJ";color=Olive Drab]
(sector8/hist(sector8,n))*100;
[name="XIJ";color=Slate Blue]
(sector9/hist(sector9,n))*100;
[name="XMJ";color=Turquoise]
(sectorA/hist(sectorA,n))*100;
[name="XJR";color=Violet]
(sectorB/hist(sectorB,n))*100;
[name="XTJ";color=Tan]
(sectorC/hist(sectorC,n))*100;
[name="XUJ";color=Dodger Blue]
(sectorD/hist(sectorD,n))*100;
[name="XGD";color=Gold]
(sectorE/hist(sectorE,n))*100;
[name="XMM";color=Black]
(sectorF/hist(sectorF,n))*100;

Alan


History is repeating. Have a look at some early posts by Maximo on this Forum as he provided good sector analysis code.

you can easily adapt to what you want I will post a chart of two slightly different sector analysis indicators the first was derived from Maximo but I would have tailored it to the sectors I was looking at the time. It may be what you are looking for as it is a rate of change indicator. The second is a Momentum version. I also have a Fisher Transform version that I will dig out and check later and if it does not look up the FT via a dll I will post that later Separate code further after charts

Alan
I cannot understand why you want a average of  RSC line.
You would just be getting a average !!

However I think you should look at another indicator such as Twiggs Money Flow. However check what this indicator means first.
And put it in the same panel as the RSC.

Or better ask an opinion on CBA.

If you have a code in Metastock, check with the tech guys on Bullcharts. The may convert it.

cheers