/*    
Indicador RSCMansfield que mide la fuerza relativa de dos activos,
pudiendo ser los activos (acciones, índices, etc).

Uso en un timeframe semanal (1 barra = 1 semana)  
Foro Aguila Roja - Suomi 
*/

// por defecto 52 semanas y el SP500
maPeriod = Param( "Periodo", 52, 0, 500, 1 );
rsSymbol = ParamStr( "Índice base", "^GSPC" );
// calculamos "standard relative performance index".
rs = ( Close / Foreign( rsSymbol,"Close" ) );
// calculamos "Mansfield relative Performance indicador". El factor
// 10 es un valor arbitrario seleccionado por Mr. Mansfield
RscMansfield = 10*(( rs / MA( rs, maPeriod ) ) - 1);

// lo representamos
Plot( 0, "Line 0", colorBlue, styleLine);
Plot( RscMansfield,"RscMansfield",ParamColor( "Color", colorBlue ),1);
PlotOHLC(RscMansfield,RscMansfield,0,RscMansfield,"",
   IIf( RscMansfield > 0, ParamColor("Up Color", colorGreen ), ParamColor("Down Color", colorRed ) ),
   styleCloud);