var Rd=0,Dd=0,Ad=0,Ri=0,Di=0,Ai=0,Ra=0,Da=0,Aa=0,Rh=0,Dh=0,Ah=0,DessHm3=0,assD=0,assI=0,assA=0,assH=0;

var pob=new Array(192);
var pobe=new Array(192);
var distpe=new Array(12);
var ha=new Array(192),hai=0;
var rsup=new Array(192);
var rsub=new Array(192);
var dess=new Array(192);
var trans=new Array(192);
var rege=new Array(192);
var distG=new Array(192);
var rehu=new Array(192);
var distH=new Array(192);
var dldom=new Array(192);
var dlind=new Array(192);
var distI=new Array(12);
var dm3ag=new Array(192);
var distA=new Array(12);
var dhidr=new Array(192);
var distU=new Array(12);

var perd=new Array(192);
var err=new Array(192);

var demanda=new Array(192);
var demandaD=new Array(192);
var demandaI=new Array(192);
var demandaA=new Array(192);

var recursos=new Array(192);
var recursosD=new Array(192);
var recursosI=new Array(192);
var recursosA=new Array(192);
var recursosH=new Array(192);
var cad="";

function recalcular(){cad="";if(document.getElementById("any").selectedIndex<1){alert("Selecciona un any");return;}
 Rd=0;Dd=0;Ad=0;Ri=0;Di=0;Ai=0;Ra=0;Da=0;Aa=0;Rh=0;Dh=0;Ah=0,DessHm3=0;
 pob[191]=parseInt(document.getElementById("pobl")[document.getElementById("pobl").selectedIndex].value);
 dldom[191]=parseInt(document.getElementById("dom")[document.getElementById("dom").selectedIndex].value);
 dlind[191]=parseInt(document.getElementById("ind")[document.getElementById("ind").selectedIndex].value);
 dm3ag[191]=parseInt(document.getElementById("agrif")[document.getElementById("agrif").selectedIndex].value);
 perd[191]=parseInt(document.getElementById("perdues")[document.getElementById("perdues").selectedIndex].value);
 err[191]=parseInt(document.getElementById("errors")[document.getElementById("errors").selectedIndex].value);
 distU[191]=parseInt(document.getElementById("reut")[document.getElementById("reut").selectedIndex].value);
 distG[191]=parseInt(document.getElementById("regen")[document.getElementById("regen").selectedIndex].value);

 for(i=1;i<191;i++){
  dldom[i]=dldom[i-1]*1+(dldom[191]-dldom[0])/192;
  dlind[i]=dlind[i-1]*1+(dlind[191]-dlind[0])/192;
  dm3ag[i]=dm3ag[i-1]*1+(dm3ag[191]-dm3ag[0])/192;
  pob[i]=pob[i-1]*1+(pob[191]-pob[0])/192;
  err[i]=err[i-1]*1+(err[191]-err[0])/192;
  perd[i]=perd[i-1]*1+(perd[191]-perd[0])/192;
  distG[i]=distG[i-1]*1+(distG[191]-distG[0])/192;
  distU[i]=distU[i-1]*1+(distU[191]-distU[0])/192;
 }
 for(i=0;i<12;i++){
  demandaI[i]=dlind[i]*distI[i]/100*pob[i]*365/1000000000;
  demandaA[i]=parseInt(document.getElementById("hai").value)*distA[i]/100*dm3ag[i]/1000000;
 }  
 
 for(i=180;i<192;i++){
  rsup[i]=parseInt(document.getElementById("embas").value)/12;
  rsub[i]=parseInt(document.getElementById("subt").value)/12;
  dess[i]=parseInt(document.getElementById("dessal").value)/12;
  trans[i]=parseInt(document.getElementById("transsv").value)/12;
  pobe[i]=parseInt(document.getElementById("pobes").value)*distpe[i-180];
  dhidr[i]=parseInt(document.getElementById("hidro")[document.getElementById("hidro").selectedIndex].value)*distH[i-180]/100;
  demandaI[i]=dlind[i]*distI[i-180]/100*pob[i]*365/1000000000;
  demandaA[i]=parseInt(document.getElementById("agri").value)*distA[i%12]/100*dm3ag[i]/1000000;
 }
 
 for(i=12;i<180;i++){
  rsub[i]=rsub[i-12]*1+(rsub[180+i%12]-rsub[i%12])/15;
  rsup[i]=rsup[i-12]*1+(rsup[180+i%12]-rsup[i%12])/15;
  trans[i]=trans[i-12]*1+(trans[180+i%12]-trans[i%12])/15;
  dess[i]=dess[i-12]*1+(dess[180+i%12]-dess[i%12])/15;
  pobe[i]=pobe[i-12]*1+(pobe[180+i%12]-pobe[i%12])/15;
  dhidr[i]=dhidr[i-12]*1+(dhidr[180+i%12]-dhidr[i%12])/15;
  demandaA[i]=demandaA[i-12]*1+(demandaA[180+i%12]-demandaA[i%12])/15;
  demandaI[i]=demandaI[i-12]*1+(demandaI[180+i%12]-demandaI[i%12])/15;
 }

 cad="";
 for(i=0;i<192;i++){
  demandaD[i]=dldom[i]*(pob[i]*30+pobe[i]*1000)/1000000000;
  if(i>0){
   rehu[i]=(demandaD[i-1]*1+demandaI[i-1]*1+demandaA[i-1]*1+dhidr[i-1])*distU[i]/100;
   rege[i]=(demandaD[i-1]*0.0+demandaI[i-1]*1+demandaA[i-1]*1+dhidr[i-1])*distG[i]/100;
  }else {
   rehu[i]=(demandaD[i]*1+demandaI[i]*1+demandaA[i]*1+dhidr[i])*distU[i]/100;
   rege[i]=(demandaD[i]*0.0+demandaI[i]*1+demandaA[i]*1+dhidr[i])*distG[i]/100;}
  if(i<15 || i>185)cad+="i=  "+i+"  l=  "+dldom[i]+" pob =  "+pob[i]+" pobe= "+pobe[i]*1000+"demanda domestica : "+demandaD[i]+"  demanda ind : "+demandaI[i]+"  demanda agri : "+demandaA[i]+"  demanda hidro : "+dhidr[i]+"\r\n";
 // if(i<0 || i>160)cad+="i= "+i+" rsub "+rsub[i]+" rsup "+rsup[i]+" trans "+trans[i]+" dess "+dess[i]+" err "+err[i]/100+" perd "+perd[i]/100+" rehu "+rehu[i]+" rege "+rege[i]+" distG "+distG[i]+" distU "+distU[i];
  recursosD[i]=(rsub[i]*1+rsup[i]*1+trans[i]*1+dess[i]*1)*(1+err[i]/100-perd[i]/100);
  recursosI[i]=recursosD[i]*1+(rehu[i]*0.4+rege[i]*0.2)*(1+err[i]/100-perd[i]/100);
  recursosA[i]=recursosI[i]*1+(rehu[i]*0.7+rege[i]*0.8)*(1+err[i]/100-perd[i]/100);
  recursosH[i]=recursosA[i]*1+(rehu[i]*0.8+rege[i])*(1+err[i]/100-perd[i]/100);
 }
//alert(cad);
 var anyres=document.getElementById("any")[document.getElementById("any").selectedIndex].value;
 var mesres=document.getElementById("mes")[document.getElementById("mes").selectedIndex].value;

 if(mesres==-1){i=parseInt(anyres)+parseInt(0);  //TOT UN ANY
  for(j=i;j<i+12;j++){
   Rd+=recursosD[j];Dd+=demandaD[j];
   Ri+=recursosI[j];Di+=demandaI[j];
   Ra+=recursosA[j];Da+=demandaA[j];
   Rh+=recursosH[j];Dh+=dhidr[j];
   DessHm3+=dess[j];
  }
 }
 else {   // PER MESOS
   i=parseInt(anyres)+parseInt(mesres);
   Rd=recursosD[i];Dd=demandaD[i];
   Ri=recursosI[i];Di=demandaI[i];
   Ra=recursosA[i];Da=demandaA[i];
   Rh=recursosH[i];Dh=dhidr[i];
   DessHm3=dess[i];
 }
 assD=0; cad="Ús domèstic\r\n recursos: "+Rd+"  demanda: "+Dd+" assignat: ";
 if(Rd<=Dd)assD=Rd;else assD=Dd;cad+=assD;

 assI=0; cad+="\r\nÚs industrial\r\n recursos: "+Ri+"  demanda: "+Di+" assignat: ";
 if(Ri-assD<=Di)assI=Ri-assD;else assI=Di; cad+=assI;

 assA=0; cad+="\r\nÚs agrícola\r\n recursos: "+Ra+"  demanda: "+Da+" assignat: ";
 if(Ra-assD-assI<=Da)assA=Ra-assD-assI;else assA=Da; cad+=assA;

 assH=0; cad+="\r\nÚs hidroelèctric\r\n recursos: "+Rh+"  demanda: "+Dh+" assignat: ";
 if(Rh-assD-assI-assA<=Dh)assH=Rh-assD-assI-assA;else assH=Dh; cad+=assH;
//alert(cad);
var options='toolbar=0,status=0,menubar=0,scrollbars=0,resizable=0,location=0,directories=0,width=430,height=480';
var wi=window.open('fn_resultats.htm','resultats', options);wi.window.moveTo(0,10);
}
function reiniciar(){
distG[0]=2;distU[0]=10;perd[0]=8;err[0]=12; //U=rehutilització G=Regeneració

distI[0]=6.62;distI[1]=6.12;distI[2]=7.62;distI[3]=8.08;distI[4]=8.64;distI[5]=9.51;distI[6]=11.71;
distI[7]=12.30;distI[8]=8.56;distI[9]=7.8;distI[10]=6.42;distI[11]=6.61;

distH[0]=8.33;distH[1]=8.33;distH[2]=8.33;distH[3]=8.33;distH[4]=8.33;distH[5]=8.33;distH[6]=8.33;
distH[7]=8.33;distH[8]=8.33;distH[9]=8.33;distH[10]=8.33;distH[11]=8.33;

distA[0]=2.99;distA[1]=2.37;distA[2]=2.06;distA[3]=2.36;distA[4]=4.64;distA[5]=26.93;distA[6]=29.77;
distA[7]=21.78;distA[8]=2.63;distA[9]=1.93;distA[10]=1.16;distA[11]=1.37;

distpe[0]=0.047;distpe[1]=0.051;distpe[2]=0.061;distpe[3]=0.091;distpe[4]=0.084;distpe[5]=0.096;
distpe[6]=0.142;distpe[7]=0.149;distpe[8]=0.089;distpe[9]=0.069;distpe[10]=0.061;distpe[11]=0.06;

pob[0]=parseInt(document.getElementById("pobi").value);
dldom[0]=parseInt(document.getElementById("domi").value);
dlind[0]=parseInt(document.getElementById("indri").value);
dm3ag[0]=parseInt(document.getElementById("agrii").value);

hai=parseInt(document.getElementById("hai").value);

for(i=0;i<12;i++){
 ha[i]=hai*distA[i]/100;
 dhidr[i]=parseInt(document.getElementById("hidroi").value)/12;
 pobe[i]=parseInt(document.getElementById("pobei").value)*distpe[i];
 rsup[i]=parseInt(document.getElementById("embassi").value)/12;
 rsup[i+180]=parseInt(document.getElementById("embas").value)/12;
 rsub[i]=parseInt(document.getElementById("subti").value)/12;
 rsub[i+180]=parseInt(document.getElementById("subt").value)/12;
 dess[i]=0;dess[i+180]=parseInt(document.getElementById("dessal").value)/12;
 trans[i]=0;trans[i+180]=parseInt(document.getElementById("transsv").value)/12;
}
}