Scan No of Days Increase for Amibroker (AFL)

//Scan number of increasing price days of stocks C > C(-1)
//17/09/2009


Per = Param("Period",10,1,200);
n=0;
if(BarCount <per){
		Per = BarCount;
	}
if (BarCount > 4){
	
	for (i = BarCount -1; i> BarCount - per; i--){
		if (C[i] > C[i-1]){
				n=n+1;
		}
	}

}

Filter = 1;

AddColumn(C,"Close");
AddTextColumn(WriteVal(Per),"Period",1);
AddTextColumn(WriteVal(n),"No of Days Increase",1);