Hi folks,
I played around with the rsi, because it's one of the better indicators to base a system on (combined with others). It's not hi-tech, but probably worth to have a look at.
SetChartOptions(0,0,chartGrid20 |chartGrid50 |chartGrid80);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} < open %g > < high %g > < low %g > < close %g > (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
SetChartBkColor(ParamColor("Outer panel color ",colorBlack)); // color of outer border
SetChartBkGradientFill( ParamColor("Inner panel color upper half",colorBlack),
ParamColor("Inner panel color lower half",colorDarkTeal)//color of inner panel
,ParamColor("behind Text Color", colorBlack));
GraphXSpace=5;
Hc=(O+H+L+C)/4;
Ho = AMA( Ref( Hc, -1 ), 0.5 );
pds = Optimize("pds ",Param("pds ",5,1,15,1),5,5,1);
myArray = (RSI( pds )+ RSIa( Ho,pds ) + Ref(RSIa(Ho,pds),-3))/3 ;
Plot( myArray , " RSI ", IIf( myArray >Ref(myArray ,-1), colorGreen, colorRed ));
Plot(80,"RESISTENCE",colorRed, styleLine|styleDashed | styleThick);
Plot(50,"",colorWhite, styleLine|styleDashed | styleThick);
Plot(20,"SUPPORT",colorYellow, styleLine|styleDashed | styleThick);
I played around with the rsi, because it's one of the better indicators to base a system on (combined with others). It's not hi-tech, but probably worth to have a look at.
SetChartOptions(0,0,chartGrid20 |chartGrid50 |chartGrid80);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} < open %g > < high %g > < low %g > < close %g > (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
SetChartBkColor(ParamColor("Outer panel color ",colorBlack)); // color of outer border
SetChartBkGradientFill( ParamColor("Inner panel color upper half",colorBlack),
ParamColor("Inner panel color lower half",colorDarkTeal)//color of inner panel
,ParamColor("behind Text Color", colorBlack));
GraphXSpace=5;
Hc=(O+H+L+C)/4;
Ho = AMA( Ref( Hc, -1 ), 0.5 );
pds = Optimize("pds ",Param("pds ",5,1,15,1),5,5,1);
myArray = (RSI( pds )+ RSIa( Ho,pds ) + Ref(RSIa(Ho,pds),-3))/3 ;
Plot( myArray , " RSI ", IIf( myArray >Ref(myArray ,-1), colorGreen, colorRed ));
Plot(80,"RESISTENCE",colorRed, styleLine|styleDashed | styleThick);
Plot(50,"",colorWhite, styleLine|styleDashed | styleThick);
Plot(20,"SUPPORT",colorYellow, styleLine|styleDashed | styleThick);