float Count = 0;
		if (sc.GetBarHasClosedStatus(sc.Index) == BHCS_BAR_HAS_CLOSED) {
			for (int ictr = 1; ictr <= (perioda); ictr++)
			{
				if (sc.Close[sc.Index] > sc.Close[sc.Index-ictr])
				{
					Count++;
				}
			}

			PSL[sc.Index] = (Count / (perioda)) *100.0f;
		}
		else {
			PSL[sc.Index] = PSL[sc.Index-1];
		}

#define _SUM_PLUS  0         // register for AssetInt
#define _SUM_MINUS 1         // register for AssetInt

//---------------- indicator -----------------------------

double idxPL(){
    int sumUP = AssetInt[_SUM_PLUS];
    int sumDN = AssetInt[_SUM_MINUS];
    var pl=0;
	if (priceClose() > priceClose(1)){
        sumUP++;
        sumDN=0;
        pl=(sumUP/12.0)*100;
    }
	
	if (priceClose() < priceClose(1)){
        sumUP=0;
        sumDN++;
        pl=-(sumDN/12.0)*100;
    }
	//watch("\n",sumDN,sumUP,pl);
    AssetInt[_SUM_PLUS] = sumUP;
    AssetInt[_SUM_MINUS]= sumDN;
	
    return pl;
		
}


function run()
{

	set(PLOTNOW+LOGFILE);
    //set(STEPWISE);
	StartDate=2020;
	BarPeriod = 60;
	LookBack = 1;
	
	PlotScale = 8;
	PlotWidth = 1600;
	PlotHeight1 = 600;
	PlotHeight2 = 120;
    assetList("Assets");
    if (is(INITRUN)){
        assetHistory(Asset,1);
    }

	vars aPL = series(idxPL());
	plot("PLine",aPL,NEW,BLUE);
		 		  
}

var vUp, vDn;
var ProfitFactor(var* Data,int Length)
{
	vUp = 0.,vDn = 0.;
	for(int i=1; i<Length; i++) {
		if(Data[i-1] > Data[i])
			vUp += Data[i-1]-Data[i];
		else
			vDn += Data[i]-Data[i-1];
	}
	if(vDn == 0.) 
		return vUp == 0.? 1. : 10.;
	return Clamp(vUp/vDn,0.,9.999);
}

var SumUp(var* Data,int Length)
{
	ProfitFactor(Data,Length);
	return vUp;
}