function cohx(D)
{	var i, CC, CP; 
// determination de la variable generale "coh" a partir des sous-variables coh-Communication et coh-Comportement
	for (i=0; i<=2; i++)
	{   if (D.cohC[i].checked){CC=Rep(i)}; 
	    if (D.cohP[i].checked){CP=Rep(i)};
	}
	if 		(CC+CP=="AA") 			{D.coh[0].checked=true}
	else	{if (CC=="C" | CP=="C") {D.coh[2].checked=true} else {D.coh[1].checked=true}   }   
	Cal(D, 1)
}
function cohy(D)
{	var  i;
// determination des sous-variables coh-Communication et coh-comPortement a partir de la variable generale "coh"
	for (i=0; i<=2; i++)
	{   D.cohC[i].checked=D.coh[i].checked;
	    D.cohP[i].checked=D.coh[i].checked; }   
	Cal(D, 1)
}
function orix(D)
{	var i, OT, OE; 
// determination de la variable generale "ori" a partir des sous-variables ori-Temps et ori-Espace
	for (i=0; i<=2; i++)
	{   if (D.oriT[i].checked){OT=Rep(i)}; 
	    if (D.oriE[i].checked){OE=Rep(i)};
	}
	if 		(OT+OE=="AA") 	  	{D.ori[0].checked=true}
	else	{if (OT+OE=="CC")	{D.ori[2].checked=true} else {D.ori[1].checked=true} }   
	Cal(D, 2)
}
function oriy(D)
{	var  i;
// determination des sous-variables ori-Temps et ori-Espace a partir de la variable generale "ori"
	for (i=0; i<=2; i++)
	{   D.oriT[i].checked=D.ori[i].checked;
	    D.oriE[i].checked=D.ori[i].checked; }   
	Cal(D, 2)
}
function toix(D)
{	var i, TH, TB; 
// determination de la variable generale "toi" a partir des sous-variables toi-Haut et toi-Bas
	for (i=0; i<=2; i++)
	{   if (D.toiH[i].checked){TH=Rep(i)}; 
	    if (D.toiB[i].checked){TB=Rep(i)};
	}
	if 		(TH+TB=="AA") 	  	{D.toi[0].checked=true}
	else	{if (TH+TB=="CC")	{D.toi[2].checked=true} else {D.toi[1].checked=true} }   
	Cal(D, 3)
}
function toiy(D)
{	var  i;
// determination des sous-variables toi-Haut et toi-Bas a partir de la variable generale "toi"
	for (i=0; i<=2; i++)
	{   D.toiH[i].checked=D.toi[i].checked;
	    D.toiB[i].checked=D.toi[i].checked; }   
	Cal(D, 3)
}
function habx(D)
{	var i, HH, HM, HB; 
	for (i=0; i<=2; i++)
	{	if (D.habH[i].checked)  {HH=Rep(i)};
		if (D.habM[i].checked)  {HM=Rep(i)};
		if (D.habB[i].checked)  {HB=Rep(i)}; }
	if   ( HH+HM+HB=="AAA"  )   {D.hab[0].checked=true}
	else { if (HH+HM+HB=="CCC") {D.hab[2].checked=true} else {D.hab[1].checked=true} }   
	Cal(D, 4)
}
function haby(D)
{	var i;
	for (i=0; i<=2; i++)
	{	 D.habH[i].checked=D.hab[i].checked;
	 	 D.habM[i].checked=D.hab[i].checked;
	 	 D.habB[i].checked=D.hab[i].checked; }
	Cal(D, 4)
}
function alix(D)
{	var i, AS, AM;
	for (i=0; i<=2; i++)
	{	 if (D.aliS[i].checked){AS=Rep(i)};
		 if (D.aliM[i].checked){AM=Rep(i)}; }
	if   ( AS+AM=="AA")			  							{D.ali[0].checked=true}
	else { if (AS+AM=="CC" | AS+AM=="CB" | AS+AM=="BC") 	{D.ali[2].checked=true} else {D.ali[1].checked=true}  }   
	Cal(D, 5)
}
function aliy(D)
{	var i;
	for (i=0; i<=2; i++)
	{   D.aliS[i].checked=D.ali[i].checked; 
	    D.aliM[i].checked=D.ali[i].checked;	}
	Cal(D, 5)
}
function elix(D)
{	var i, EU, EF;
	for (i=0; i<=2; i++)
	{   if (D.eliU[i].checked){EU=Rep(i)};
	    if (D.eliF[i].checked){EF=Rep(i)}; }
	if 		(EU+EF=="AA") 			{D.eli[0].checked=true}
	else	{if (EU=="C" | EF=="C") {D.eli[2].checked=true} else {D.eli[1].checked=true}   }   
	Cal(D, 6)
}
function eliy(D)
{	var i;
	for (i=0; i<=2; i++)
	{	D.eliU[i].checked=D.eli[i].checked; 
		D.eliF[i].checked=D.eli[i].checked; }
	Cal(D, 6)
}
function Rep(i) { return ("ABC".substring(i,i+1)) }
function Cal(D, N)
{	var i, VarD = new Array();
	var Gir, Min, Max;
	for (i=0; i<=2; i++)
	{	if (D.coh[i].checked)	{VarD[1]=Rep(i)};
		if (D.ori[i].checked)	{VarD[2]=Rep(i)};
		if (D.toi[i].checked)	{VarD[3]=Rep(i)};
		if (D.hab[i].checked)	{VarD[4]=Rep(i)};
		if (D.ali[i].checked)	{VarD[5]=Rep(i)};
		if (D.eli[i].checked)	{VarD[6]=Rep(i)};
		if (D.tra[i].checked)	{VarD[7]=Rep(i)};
		if (D.dep[i].checked)	{VarD[8]=Rep(i)};
								 VarD[9]=Rep(0);
								 VarD[10]=Rep(0);
	}		
	Gir = CalGir(VarD)
	
	var S="", A, B, C, T;
	if (arguments.length>1)	{
		T = "Incidence de la variable " + AggLib[N];
		VarD[N] = "A"; A = CalGir(VarD);
		VarD[N] = "B"; B = CalGir(VarD);
		VarD[N] = "C"; C = CalGir(VarD);
		if (N>8) {S = T+' sans effet sur le GIR'} else {S = T+' : Si "A"-> Gir'+A+' ; Si "B"-> Gir'+B+' ; Si "C"-> Gir'+C+' ;'}
		D.X.style.fontFamily = Konst("&fontFamily");
	}
	D.X.value = S;
	Min	= Ed(ARx(CAPA("X", Gir, 999999, 1),0)) + KEuro 
	Max	= Ed(ARx(CAPA("X", Gir,      0, 1),0)) + KEuro 
	D.Gir.value 	= Gir
	D.GirTip.value 	= GirLib[Gir];
	D.GirTip1.value = (Gir>4)? "pas d'APA avec les GIR 5 et 6." : "APA : de " + Min + " " + KAG + " " + Max + " par mois, selon vos revenus"
	D.GirTip.style.fontFamily  = Konst("&fontFamily");
	D.GirTip1.style.fontFamily = Konst("&fontFamily");
	return;	
}
function CalGir(VarD) 
{	var Rang;
	Rang = Groupe(0,    VarD, "A", 2000,1200,40,40,60,100,800,200,0,0,  	0,0,16,16,20,16,120,32,0,0,	3390,3, 4140,2, 4380,1);	
	Rang = Groupe(Rang, VarD, "B", 1500,1200,40,40,60,100,800,-80,0,0,  	320,120,16,16,0,16,120,-40,0,0,	2016,4);
	Rang = Groupe(Rang, VarD, "C", 0,0,40,40,60,160,1000,400,0,0,   		0,0,16,16,20,20,200,40,0,0,		1432,6, 1700,5);
	Rang = Groupe(Rang, VarD, "D", 0,0,0,0,2000,400,2000,200,0,0,			0,0,0,0,200,200,200,0,0,0,		2400,7);
	Rang = Groupe(Rang, VarD, "E", 400,400,400,400,400,800,800,200,0,0, 	0,0,100,100,100,100,100,0,0,0,	1200,8);
	Rang = Groupe(Rang, VarD, "F", 200,200,500,500,500,500,500,200,0,0,		100,100,100,100,100,100,100,0,0,0,	800,9);
	Rang = Groupe(Rang, VarD, "G", 150,150,300,300,500,500,400,200,0,0,		0,0,200,200,200,200,200,100,0,0,	650,10);
	Rang = Groupe(Rang, VarD, "H", 0,0,3000,3000,3000,3000,1000,1000,0,0,	0,0,2000,2000,2000,2000,2000,1000,0,0,  0,13, 2000,12, 4000,11);	
	return ("01222222334456".substring(Rang, Rang+1));
}
function Groupe(Rang, VarD, GrNom) 
{ 	var i, GR=0, PFix=2;	
   	if  (Rang==0)		// Ignorer l'evaluation si le Rang est deja determine
	{   for (i= 1;  i<=10; i++)			{if (VarD[i]=="C") {GR+=arguments[i+PFix]} else {if (VarD[i]=="B") {GR+=arguments[10+i+PFix]}} }
	    for (i=21+PFix;  i<arguments.length; i=i+2)	{if (GR>=arguments[i])	{Rang=arguments[i+1]} }	   
	}
	return(Rang);
}
function InitGir(x)
{	var D, F, i;
	D=document[x]
	document.G.value = "";
	for (i=0; i<=2; i++)
	{
		F=D.T[i].style;
		F.borderStyle="none";
		F.textAlign=  "center";
  		F.fontFamily= Konst("&fontFamily");
		if (D.Bx[i].checked) {F.fontWeight= "bold"; F.fontSize= "120%"; F.backgroundColor= ["#ffffff","#ffff00","#00ffff"][i];}
		else                 {F.fontWeight= "bold"; F.fontSize= "100%"; F.backgroundColor= "#FFFFF0";}

	}
}