// USE THIS SCRIPT ON A 24 MONTHS PERIOD TESTED

double Normalize0 (double d) {return (NormalizeDouble(d,0));}
double Normalize1 (double d) {return (NormalizeDouble(d,1));}
double Normalize2 (double d) {return (NormalizeDouble(d,2));}


//--------------------------------------------------------------------
//  script program start function                                    |
//--------------------------------------------------------------------
int start() {

	string NameOBJ;
	string Paire=Symbol();
	int LPrice=2+Digits;
	int TotalOBJ=ObjectsTotal();
	
	double SumTrade=0;
	double SumPIP=0;
	double PointR=0;
	double SumPointG=0;
	double SumPointP=0;
	double Price1,Price2;
	bool FacSens=true;
	double SumLot=0;
	
	int PeriodAnnee=2;
	int PeriodMois=PeriodAnnee*12;
	int PeriodSemaine=PeriodAnnee*52;
	color CloseC=Goldenrod;
	string resS="  ____  ";
	string lineS="----------------------------------------------------";
		
	// Parcours la liste des OBJ sur le chart
	for(int i=0;i<TotalOBJ;i++) {
		NameOBJ=ObjectName(i);
		if (ObjectType(NameOBJ)==OBJ_ARROW) {
			if (ObjectGet(NameOBJ,OBJPROP_COLOR)==CloseC) {
				Price1=StrToDouble(StringSubstr(NameOBJ,StringFind(NameOBJ,Paire,0)+10,LPrice));
				Price2=StrToDouble(StringSubstr(NameOBJ,StringFind(NameOBJ,"er a",0)+6,LPrice));
				FacSens=!(0<StringFind(NameOBJ,"sell",0));
				PointR=(Price2-Price1)*((2*FacSens)-1)/Point;
				if (0<PointR) {SumPointG+=PointR;} else {SumPointP+=PointR;}
				SumTrade++;
			}
		}
	}
	
	// Résultats
	SumPIP=SumPointG+SumPointP;
	Print(lineS);
	
	Print("TRADE: ",SumTrade,resS,
	Normalize0(SumTrade/PeriodSemaine)," [Tr/Se]",resS,
	Normalize0(SumTrade/PeriodMois)," [Tr/Mo]");
	
	Print("PIP: ",SumPointG," - ",-SumPointP," = ",SumPIP,resS,
	Normalize2(SumPIP/SumTrade)," [Pi/Tr]",resS,
	Normalize0(SumPIP/PeriodSemaine)," [Pi/Se]",resS,
	Normalize0(SumPIP/PeriodMois)," [Pi/Mo]");
	
	Print(lineS);

	return(0);

}