var lat=new Array(42.9,39.0,38.4,36.9,43.4,40.7,38.9,39.6,41.4,42.3,39.5,36.5,43.5,40.0,35.9,39.0,37.9,40.1,42.0,37.2,40.6,43.3,37.3,42.1,37.8,43.4,42.5,28.2,42.6,41.7,43.0,40.4,36.7,35.3,38.0,42.8,42.3,42.0,42.4,41.0,41.0,37.4,41.8,28.5,41.1,40.4,39.9,39.5,41.7,43.3,41.5,41.7);

var H=new Array(52);for(i=0;i<=51;i++)H[i]=new Array(12);

var H_cen=new Array(52);for(i=0;i<=51;i++)H_cen[i]=new Array(12);

H_cen[0][0]=4.6;H_cen[0][1]=6.9;H_cen[0][2]=11.2;H_cen[0][3]=13.0;H_cen[0][4]=14.8;H_cen[0][5]=16.6;H_cen[0][6]=18.1;H_cen[0][7]=17.3;H_cen[0][8]=14.3;H_cen[0][9]=9.5;H_cen[0][10]=5.5;H_cen[0][11]=4.1;H_cen[1][0]=6.7;H_cen[1][1]=10.5;H_cen[1][2]=15.0;H_cen[1][3]=19.2;H_cen[1][4]=21.2;H_cen[1][5]=25.1;H_cen[1][6]=26.7;H_cen[1][7]=23.2;H_cen[1][8]=18.8;H_cen[1][9]=12.4;H_cen[1][10]=8.4;H_cen[1][11]=6.4;H_cen[2][0]=8.5;H_cen[2][1]=12.0;H_cen[2][2]=16.3;H_cen[2][3]=18.9;H_cen[2][4]=23.1;H_cen[2][5]=24.8;H_cen[2][6]=25.8;H_cen[2][7]=22.5;H_cen[2][8]=18.3;H_cen[2][9]=13.6;H_cen[2][10]=9.8;H_cen[2][11]=7.6;H_cen[3][0]=8.9;H_cen[3][1]=12.2;H_cen[3][2]=16.4;H_cen[3][3]=19.6;H_cen[3][4]=23.1;H_cen[3][5]=24.6;H_cen[3][6]=25.3;H_cen[3][7]=22.5;H_cen[3][8]=18.5;H_cen[3][9]=13.9;H_cen[3][10]=10.0;H_cen[3][11]=8.0;H_cen[4][0]=5.3;H_cen[4][1]=7.7;H_cen[4][2]=10.6;H_cen[4][3]=12.2;H_cen[4][4]=15.0;H_cen[4][5]=15.2;H_cen[4][6]=16.8;H_cen[4][7]=14.8;H_cen[4][8]=12.4;H_cen[4][9]=9.8;H_cen[4][10]=5.9;H_cen[4][11]=4.6;H_cen[5][0]=6.0;H_cen[5][1]=9.1;H_cen[5][2]=13.5;H_cen[5][3]=17.7;H_cen[5][4]=19.4;H_cen[5][5]=22.3;H_cen[5][6]=26.3;H_cen[5][7]=25.3;H_cen[5][8]=18.8;H_cen[5][9]=11.2;H_cen[5][10]=6.9;H_cen[5][11]=5.2;H_cen[6][0]=6.5;H_cen[6][1]=10.0;H_cen[6][2]=13.6;H_cen[6][3]=18.7;H_cen[6][4]=21.8;H_cen[6][5]=24.6;H_cen[6][6]=25.9;H_cen[6][7]=23.8;H_cen[6][8]=17.9;H_cen[6][9]=12.3;H_cen[6][10]=8.2;H_cen[6][11]=6.2;H_cen[7][0]=7.2;H_cen[7][1]=10.7;H_cen[7][2]=14.4;H_cen[7][3]=16.2;H_cen[7][4]=21.0;H_cen[7][5]=22.7;H_cen[7][6]=24.2;H_cen[7][7]=20.6;H_cen[7][8]=16.4;H_cen[7][9]=12.1;H_cen[7][10]=8.5;H_cen[7][11]=6.5;H_cen[8][0]=6.5;H_cen[8][1]=9.5;H_cen[8][2]=12.9;H_cen[8][3]=16.1;H_cen[8][4]=18.6;H_cen[8][5]=20.3;H_cen[8][6]=21.6;H_cen[8][7]=18.1;H_cen[8][8]=14.6;H_cen[8][9]=10.8;H_cen[8][10]=7.2;H_cen[8][11]=5.8;H_cen[9][0]=5.1;H_cen[9][1]=7.9;H_cen[9][2]=12.4;H_cen[9][3]=16.0;H_cen[9][4]=18.7;H_cen[9][5]=21.5;H_cen[9][6]=23.0;H_cen[9][7]=20.7;H_cen[9][8]=16.7;H_cen[9][9]=10.1;H_cen[9][10]=6.5;H_cen[9][11]=4.5;H_cen[10][0]=6.8;H_cen[10][1]=10.0;H_cen[10][2]=14.7;H_cen[10][3]=19.6;H_cen[10][4]=22.1;H_cen[10][5]=25.1;H_cen[10][6]=28.1;H_cen[10][7]=25.4;H_cen[10][8]=19.7;H_cen[10][9]=12.7;H_cen[10][10]=8.9;H_cen[10][11]=6.6;H_cen[11][0]=8.1;H_cen[11][1]=11.5;H_cen[11][2]=15.7;H_cen[11][3]=18.5;H_cen[11][4]=22.2;H_cen[11][5]=23.8;H_cen[11][6]=25.9;H_cen[11][7]=23.0;H_cen[11][8]=18.1;H_cen[11][9]=14.2;H_cen[11][10]=10.0;H_cen[11][11]=7.4;H_cen[12][0]=5.0;H_cen[12][1]=7.4;H_cen[12][2]=11.0;H_cen[12][3]=13.0;H_cen[12][4]=16.1;H_cen[12][5]=17.0;H_cen[12][6]=18.4;H_cen[12][7]=15.5;H_cen[12][8]=13.0;H_cen[12][9]=9.5;H_cen[12][10]=5.8;H_cen[12][11]=4.5;H_cen[13][0]=8.0;H_cen[13][1]=12.2;H_cen[13][2]=15.5;H_cen[13][3]=17.4;H_cen[13][4]=20.6;H_cen[13][5]=21.4;H_cen[13][6]=23.9;H_cen[13][7]=19.5;H_cen[13][8]=16.6;H_cen[13][9]=13.1;H_cen[13][10]=8.6;H_cen[13][11]=7.3;H_cen[14][0]=8.9;H_cen[14][1]=13.1;H_cen[14][2]=18.6;H_cen[14][3]=21.0;H_cen[14][4]=24.3;H_cen[14][5]=26.7;H_cen[14][6]=26.8;H_cen[14][7]=24.3;H_cen[14][8]=19.1;H_cen[14][9]=14.2;H_cen[14][10]=11.0;H_cen[14][11]=8.6;H_cen[15][0]=7.0;H_cen[15][1]=10.1;H_cen[15][2]=15.0;H_cen[15][3]=18.7;H_cen[15][4]=21.4;H_cen[15][5]=23.7;H_cen[15][6]=25.3;H_cen[15][7]=23.2;H_cen[15][8]=18.8;H_cen[15][9]=12.5;H_cen[15][10]=8.7;H_cen[15][11]=6.5;H_cen[16][0]=7.2;H_cen[16][1]=10.1;H_cen[16][2]=15.1;H_cen[16][3]=18.5;H_cen[16][4]=21.8;H_cen[16][5]=25.9;H_cen[16][6]=28.5;H_cen[16][7]=25.1;H_cen[16][8]=19.9;H_cen[16][9]=12.6;H_cen[16][10]=8.6;H_cen[16][11]=6.9;H_cen[17][0]=5.9;H_cen[17][1]=8.8;H_cen[17][2]=12.9;H_cen[17][3]=17.4;H_cen[17][4]=18.7;H_cen[17][5]=22.0;H_cen[17][6]=25.6;H_cen[17][7]=22.3;H_cen[17][8]=17.5;H_cen[17][9]=11.2;H_cen[17][10]=7.2;H_cen[17][11]=5.5;H_cen[18][0]=7.1;H_cen[18][1]=10.5;H_cen[18][2]=14.2;H_cen[18][3]=15.9;H_cen[18][4]=18.7;H_cen[18][5]=19.0;H_cen[18][6]=22.3;H_cen[18][7]=18.5;H_cen[18][8]=14.9;H_cen[18][9]=11.7;H_cen[18][10]=7.8;H_cen[18][11]=6.6;H_cen[19][0]=7.8;H_cen[19][1]=10.8;H_cen[19][2]=15.2;H_cen[19][3]=18.5;H_cen[19][4]=21.9;H_cen[19][5]=24.8;H_cen[19][6]=26.7;H_cen[19][7]=23.6;H_cen[19][8]=18.8;H_cen[19][9]=12.9;H_cen[19][10]=9.6;H_cen[19][11]=7.1;H_cen[20][0]=6.5;H_cen[20][1]=9.2;H_cen[20][2]=14.0;H_cen[20][3]=17.9;H_cen[20][4]=19.4;H_cen[20][5]=22.7;H_cen[20][6]=25.0;H_cen[20][7]=23.2;H_cen[20][8]=17.8;H_cen[20][9]=11.7;H_cen[20][10]=7.8;H_cen[20][11]=5.6;H_cen[21][0]=5.5;H_cen[21][1]=7.7;H_cen[21][2]=11.3;H_cen[21][3]=11.7;H_cen[21][4]=14.6;H_cen[21][5]=16.2;H_cen[21][6]=16.1;H_cen[21][7]=13.6;H_cen[21][8]=12.7;H_cen[21][9]=10.3;H_cen[21][10]=6.2;H_cen[21][11]=5.0;H_cen[22][0]=7.6;H_cen[22][1]=11.3;H_cen[22][2]=16.0;H_cen[22][3]=19.5;H_cen[22][4]=24.1;H_cen[22][5]=25.6;H_cen[22][6]=28.7;H_cen[22][7]=25.6;H_cen[22][8]=21.2;H_cen[22][9]=14.5;H_cen[22][10]=9.2;H_cen[22][11]=7.5;H_cen[23][0]=6.1;H_cen[23][1]=9.6;H_cen[23][2]=14.3;H_cen[23][3]=18.7;H_cen[23][4]=20.3;H_cen[23][5]=22.1;H_cen[23][6]=23.1;H_cen[23][7]=20.9;H_cen[23][8]=16.9;H_cen[23][9]=11.3;H_cen[23][10]=7.2;H_cen[23][11]=5.1;H_cen[24][0]=6.7;H_cen[24][1]=10.1;H_cen[24][2]=14.4;H_cen[24][3]=18.0;H_cen[24][4]=20.3;H_cen[24][5]=24.4;H_cen[24][6]=26.7;H_cen[24][7]=24.1;H_cen[24][8]=19.2;H_cen[24][9]=11.9;H_cen[24][10]=8.1;H_cen[24][11]=6.5;H_cen[25][0]=5.4;H_cen[25][1]=8.0;H_cen[25][2]=11.4;H_cen[25][3]=12.4;H_cen[25][4]=15.4;H_cen[25][5]=16.2;H_cen[25][6]=17.4;H_cen[25][7]=15.3;H_cen[25][8]=13.9;H_cen[25][9]=10.9;H_cen[25][10]=6.4;H_cen[25][11]=5.1;H_cen[26][0]=5.6;H_cen[26][1]=6.8;H_cen[26][2]=13.7;H_cen[26][3]=16.6;H_cen[26][4]=19.2;H_cen[26][5]=21.4;H_cen[26][6]=23.3;H_cen[26][7]=20.8;H_cen[26][8]=16.2;H_cen[26][9]=10.7;H_cen[26][10]=6.8;H_cen[26][11]=4.8;H_cen[27][0]=11.2;H_cen[27][1]=14.2;H_cen[27][2]=17.8;H_cen[27][3]=19.6;H_cen[27][4]=21.7;H_cen[27][5]=22.5;H_cen[27][6]=24.3;H_cen[27][7]=21.9;H_cen[27][8]=19.8;H_cen[27][9]=15.1;H_cen[27][10]=12.3;H_cen[27][11]=10.7;H_cen[28][0]=5.8;H_cen[28][1]=8.7;H_cen[28][2]=13.8;H_cen[28][3]=17.2;H_cen[28][4]=19.5;H_cen[28][5]=22.1;H_cen[28][6]=24.2;H_cen[28][7]=20.9;H_cen[28][8]=17.2;H_cen[28][9]=10.4;H_cen[28][10]=7.0;H_cen[28][11]=4.8;H_cen[29][0]=6.0;H_cen[29][1]=9.9;H_cen[29][2]=18.0;H_cen[29][3]=18.8;H_cen[29][4]=20.9;H_cen[29][5]=22.6;H_cen[29][6]=23.8;H_cen[29][7]=21.3;H_cen[29][8]=16.8;H_cen[29][9]=12.1;H_cen[29][10]=7.2;H_cen[29][11]=4.8;H_cen[30][0]=5.1;H_cen[30][1]=7.6;H_cen[30][2]=11.7;H_cen[30][3]=15.2;H_cen[30][4]=17.1;H_cen[30][5]=19.5;H_cen[30][6]=20.2;H_cen[30][7]=18.4;H_cen[30][8]=15.0;H_cen[30][9]=9.9;H_cen[30][10]=6.2;H_cen[30][11]=4.5;H_cen[31][0]=6.7;H_cen[31][1]=10.6;H_cen[31][2]=13.6;H_cen[31][3]=18.8;H_cen[31][4]=20.9;H_cen[31][5]=23.5;H_cen[31][6]=26.0;H_cen[31][7]=23.1;H_cen[31][8]=16.9;H_cen[31][9]=11.4;H_cen[31][10]=7.5;H_cen[31][11]=5.9;H_cen[32][0]=8.3;H_cen[32][1]=12.0;H_cen[32][2]=15.5;H_cen[32][3]=18.5;H_cen[32][4]=23.2;H_cen[32][5]=24.5;H_cen[32][6]=26.5;H_cen[32][7]=23.2;H_cen[32][8]=19.0;H_cen[32][9]=13.6;H_cen[32][10]=9.3;H_cen[32][11]=8.0;H_cen[33][0]=9.4;H_cen[33][1]=12.6;H_cen[33][2]=17.2;H_cen[33][3]=20.3;H_cen[33][4]=23.0;H_cen[33][5]=24.8;H_cen[33][6]=24.8;H_cen[33][7]=22.6;H_cen[33][8]=18.3;H_cen[33][9]=14.2;H_cen[33][10]=10.9;H_cen[33][11]=8.7;H_cen[34][0]=10.1;H_cen[34][1]=14.8;H_cen[34][2]=16.6;H_cen[34][3]=20.4;H_cen[34][4]=24.2;H_cen[34][5]=25.6;H_cen[34][6]=27.7;H_cen[34][7]=23.5;H_cen[34][8]=18.6;H_cen[34][9]=13.9;H_cen[34][10]=9.8;H_cen[34][11]=8.1;H_cen[35][0]=5.0;H_cen[35][1]=7.4;H_cen[35][2]=12.3;H_cen[35][3]=14.5;H_cen[35][4]=17.1;H_cen[35][5]=18.9;H_cen[35][6]=20.5;H_cen[35][7]=18.2;H_cen[35][8]=16.2;H_cen[35][9]=10.2;H_cen[35][10]=6.0;H_cen[35][11]=4.5;H_cen[36][0]=4.7;H_cen[36][1]=7.3;H_cen[36][2]=11.3;H_cen[36][3]=14.0;H_cen[36][4]=16.2;H_cen[36][5]=17.6;H_cen[36][6]=18.3;H_cen[36][7]=16.6;H_cen[36][8]=14.3;H_cen[36][9]=9.4;H_cen[36][10]=5.6;H_cen[36][11]=4.3;H_cen[37][0]=5.3;H_cen[37][1]=9.0;H_cen[37][2]=13.2;H_cen[37][3]=17.5;H_cen[37][4]=19.7;H_cen[37][5]=21.8;H_cen[37][6]=24.1;H_cen[37][7]=21.6;H_cen[37][8]=17.1;H_cen[37][9]=10.9;H_cen[37][10]=6.6;H_cen[37][11]=4.6;H_cen[38][0]=5.5;H_cen[38][1]=8.2;H_cen[38][2]=13.0;H_cen[38][3]=15.7;H_cen[38][4]=17.5;H_cen[38][5]=20.4;H_cen[38][6]=22.0;H_cen[38][7]=18.9;H_cen[38][8]=15.1;H_cen[38][9]=11.3;H_cen[38][10]=6.8;H_cen[38][11]=5.5;H_cen[39][0]=6.1;H_cen[39][1]=9.5;H_cen[39][2]=13.5;H_cen[39][3]=17.1;H_cen[39][4]=19.7;H_cen[39][5]=22.8;H_cen[39][6]=24.6;H_cen[39][7]=22.6;H_cen[39][8]=17.5;H_cen[39][9]=11.3;H_cen[39][10]=7.4;H_cen[39][11]=5.2;H_cen[40][0]=5.7;H_cen[40][1]=8.8;H_cen[40][2]=13.4;H_cen[40][3]=18.4;H_cen[40][4]=20.4;H_cen[40][5]=22.6;H_cen[40][6]=25.7;H_cen[40][7]=24.9;H_cen[40][8]=18.8;H_cen[40][9]=11.4;H_cen[40][10]=6.8;H_cen[40][11]=5.1;H_cen[41][0]=7.3;H_cen[41][1]=10.9;H_cen[41][2]=14.4;H_cen[41][3]=19.2;H_cen[41][4]=22.4;H_cen[41][5]=24.3;H_cen[41][6]=24.9;H_cen[41][7]=23.0;H_cen[41][8]=17.9;H_cen[41][9]=12.3;H_cen[41][10]=8.8;H_cen[41][11]=6.9;H_cen[42][0]=5.9;H_cen[42][1]=8.7;H_cen[42][2]=12.8;H_cen[42][3]=17.1;H_cen[42][4]=19.7;H_cen[42][5]=21.8;H_cen[42][6]=24.1;H_cen[42][7]=22.3;H_cen[42][8]=17.5;H_cen[42][9]=11.1;H_cen[42][10]=7.6;H_cen[42][11]=5.6;H_cen[43][0]=10.7;H_cen[43][1]=13.3;H_cen[43][2]=18.1;H_cen[43][3]=21.5;H_cen[43][4]=25.7;H_cen[43][5]=26.5;H_cen[43][6]=29.3;H_cen[43][7]=26.6;H_cen[43][8]=21.2;H_cen[43][9]=16.2;H_cen[43][10]=10.8;H_cen[43][11]=9.3;H_cen[44][0]=7.3;H_cen[44][1]=10.7;H_cen[44][2]=14.9;H_cen[44][3]=17.6;H_cen[44][4]=20.2;H_cen[44][5]=22.5;H_cen[44][6]=23.8;H_cen[44][7]=20.5;H_cen[44][8]=16.4;H_cen[44][9]=12.3;H_cen[44][10]=8.8;H_cen[44][11]=6.3;H_cen[45][0]=6.1;H_cen[45][1]=8.8;H_cen[45][2]=12.9;H_cen[45][3]=16.7;H_cen[45][4]=18.4;H_cen[45][5]=20.6;H_cen[45][6]=21.8;H_cen[45][7]=20.7;H_cen[45][8]=16.9;H_cen[45][9]=11.0;H_cen[45][10]=7.1;H_cen[45][11]=5.3;H_cen[46][0]=6.2;H_cen[46][1]=9.5;H_cen[46][2]=14.0;H_cen[46][3]=19.3;H_cen[46][4]=21.0;H_cen[46][5]=24.4;H_cen[46][6]=27.2;H_cen[46][7]=24.5;H_cen[46][8]=18.1;H_cen[46][9]=11.9;H_cen[46][10]=7.6;H_cen[46][11]=5.6;H_cen[47][0]=7.6;H_cen[47][1]=10.6;H_cen[47][2]=14.9;H_cen[47][3]=18.1;H_cen[47][4]=20.6;H_cen[47][5]=22.8;H_cen[47][6]=23.8;H_cen[47][7]=20.7;H_cen[47][8]=16.7;H_cen[47][9]=12.0;H_cen[47][10]=8.7;H_cen[47][11]=6.6;H_cen[48][0]=5.5;H_cen[48][1]=8.8;H_cen[48][2]=13.9;H_cen[48][3]=17.2;H_cen[48][4]=19.9;H_cen[48][5]=22.6;H_cen[48][6]=25.1;H_cen[48][7]=23.0;H_cen[48][8]=18.3;H_cen[48][9]=11.2;H_cen[48][10]=6.9;H_cen[48][11]=4.2;H_cen[49][0]=5.0;H_cen[49][1]=7.1;H_cen[49][2]=10.8;H_cen[49][3]=12.7;H_cen[49][4]=15.5;H_cen[49][5]=16.7;H_cen[49][6]=17.9;H_cen[49][7]=15.7;H_cen[49][8]=13.1;H_cen[49][9]=9.3;H_cen[49][10]=6.0;H_cen[49][11]=4.6;H_cen[50][0]=5.4;H_cen[50][1]=8.9;H_cen[50][2]=13.2;H_cen[50][3]=17.3;H_cen[50][4]=22.2;H_cen[50][5]=21.6;H_cen[50][6]=23.5;H_cen[50][7]=22.0;H_cen[50][8]=17.2;H_cen[50][9]=11.1;H_cen[50][10]=6.7;H_cen[50][11]=4.6;H_cen[51][0]=6.3;H_cen[51][1]=9.8;H_cen[51][2]=15.2;H_cen[51][3]=18.3;H_cen[51][4]=21.8;H_cen[51][5]=24.2;H_cen[51][6]=25.1;H_cen[51][7]=23.4;H_cen[51][8]=18.3;H_cen[51][9]=12.1;H_cen[51][10]=7.4;H_cen[51][11]=5.7;

function fun_Go()
{
	var Go=0;

	if(frmFVA.cboFuente.selectedIndex==0)
	{
		if(frmFVA.cboPerDis.selectedIndex==0)
			Go=H_cen[frmFVA.cboUbi.selectedIndex][11];		
		else if(frmFVA.cboPerDis.selectedIndex==1)
			Go=H_cen[frmFVA.cboUbi.selectedIndex][6];		
		else
		{
			for(mes=1;mes<=12;mes++)
				Go+=H_cen[frmFVA.cboUbi.selectedIndex][mes-1];	
			Go/=12;
		}
		frmFVA.txtGo.value=Math.round(100*Go/3.6)/100;
	}
}

function fun_calcular()
{
	var Lat=parseFloat(frmFVA.txtLat.value);
	var Inc=parseFloat(frmFVA.txtInc.value);
	var Des=parseFloat(frmFVA.txtDes.value);
	var IncOpt;
	var k;
	var Go=0;
	if(frmFVA.cboPerDis.selectedIndex==0)
	{
		IncOpt=Lat+20;	
		k=1.7;
		if(frmFVA.cboFuente.selectedIndex==0)
			Go=H_cen[frmFVA.cboUbi.selectedIndex][11]/3.6;		
		else
			Go=parseFloat(frmFVA.txtGo.value);	
	}
	else if(frmFVA.cboPerDis.selectedIndex==1)
	{
		IncOpt=Lat-20;	
		k=1;
		if(frmFVA.cboFuente.selectedIndex==0)
			Go=H_cen[frmFVA.cboUbi.selectedIndex][6]/3.6;		
		else
			Go=parseFloat(frmFVA.txtGo.value);	
	}
	else
	{
		IncOpt=Lat-10;	
		k=1.15;
		if(frmFVA.cboFuente.selectedIndex==0)
		{
			for(mes=1;mes<=12;mes++)
				Go+=H_cen[frmFVA.cboUbi.selectedIndex][mes-1];	
			Go/=(12*3.6);
		}
		else
			Go=parseFloat(frmFVA.txtGo.value);	
	}
	var FI;
		if(Inc<=15)
			FI=1-(0.00012*Math.pow(Inc-IncOpt,2));
		else
			FI=1-(0.00012*Math.pow(Inc-IncOpt,2)+0.000035*Des*Des);
	var FS=1-0.01*parseFloat(frmFVA.txtFS.value);
	var G=Go*k*FI*FS;
	var ED=parseFloat(frmFVA.txtED.value);
	var LD=1000*ED/parseFloat(frmFVA.txtVacu.value);
	var PR=parseFloat(frmFVA.txtPR.value);
	var Pmin=ED/(G*PR);
	
	var nt,ns,np;
	nt=1000*frmFVA.txtPtot.value/frmFVA.txtPmod.value;
	ns=frmFVA.txtVacu.value/frmFVA.txtVmod.value;
	np=nt/ns;
	
	frmFVA.txtIncOpt.value=IncOpt;
	frmFVA.txtFI.value=Math.round(100*FI)/100;
	frmFVA.txtG.value=Math.round(100*G)/100;
	frmFVA.txtLD.value=Math.round(100*LD)/100;;
	
	frmFVA.txtPmin.value=Math.round(1000*Pmin)/1000;
	frmFVA.txtPPmin.value=Math.round(100*frmFVA.txtPtot.value/Pmin)/100;
	frmFVA.txtN.value=Math.round(parseFloat(frmFVA.txtCacu.value)*parseFloat(frmFVA.txtPD.value)*parseFloat(frmFVA.txtINV.value)*parseFloat(frmFVA.txtRB.value)/LD);
	frmFVA.txtCIsc.value=Math.round(100*parseFloat(frmFVA.txtCacu.value)/(np*parseFloat(frmFVA.txtIsc.value)))/100;
	
	var cumple=true;
	
	if(frmFVA.txtFI.value<0.8)
	{
		cumple=false;
		alert("Incumplimiento del PCT.\n\nLas pérdidas de radiación por inclinación\ny orientación son superiores al 20%.");
	}
	if(0.1*parseFloat(frmFVA.txtFS.value)*1-parseFloat(frmFVA.txtFI.value)>0.2)
	{
		cumple=false;
		alert("Incumplimiento del PCT.\n\nLas pérdidas de radiación por sombreado\ninclinación y orientación son superiores al 20%.");
	}
	if(frmFVA.txtPPmin.value<1)
	{
		cumple=false;
		alert("Incumplimiento del PCT.\n\nLa potencia total instalada es inferior a la\npotencia mínima requerida del generador FV.");
	}
	if(frmFVA.txtPPmin.value>1.2)
	{
		cumple=false;
		alert("Incumplimiento del PCT.\n\nLa potencia total instalada supera en más de un 20%\na la potencia mínima requerida del generador FV.");
	}
	if(frmFVA.txtCIsc.value>25)
	{
		cumple=false;
		alert("Incumplimiento del PCT.\n\nLa capacidad total instalada es superior a 25 veces\nla corriente de cortocircuito del generador FV.");
	}
	if(frmFVA.txtN.value<3)
	{
		cumple=false;
		alert("Incumplimiento del PCT.\n\nLa autonomía resultante es inferior\nal mínimo requerido (3 días).");
	}
	if(cumple)
		frmFVA.txtCumple.value="Cumple el PCT";
	else
		frmFVA.txtCumple.value="No cumple el PCT";
}

function fun_validar()
{
	if(!fun_valida(frmFVA.txtLat,0,90)) 
		return;
	if(!fun_valida(frmFVA.txtGo,0,Infinity)) 
		return;
	if(!fun_valida(frmFVA.txtFS,0,10)) 
		return;
	if(!fun_valida(frmFVA.txtED,0,Infinity)) 
		return;
	if(!fun_valida(frmFVA.txtPR,0,1)) 
		return;
	if(!fun_valida(frmFVA.txtINV,0,1)) 
		return;
	if(!fun_valida(frmFVA.txtRB,0,1)) 
		return;
	if(!fun_valida(frmFVA.txtPmod,0,Infinity)) 
		return;
	if(!fun_valida(frmFVA.txtVmod,0,Infinity)) 
		return;
	if(!fun_valida(frmFVA.txtIsc,0,Infinity)) 
		return;
	if(!fun_valida(frmFVA.txtInc,0,90)) 
		return;
	if(!fun_valida(frmFVA.txtDes,0,90)) 
		return;
	if(!fun_valida(frmFVA.txtPtot,0,Infinity)) 
		return;
	if(!fun_valida(frmFVA.txtVacu,0,Infinity)) 
		return;
	if(!fun_valida(frmFVA.txtCacu,0,Infinity)) 
		return;
	if(!fun_valida(frmFVA.txtPD,0,1)) 
		return;
	
	if(1000*frmFVA.txtPtot.value/frmFVA.txtPmod.value!=Math.round(1000*frmFVA.txtPtot.value/frmFVA.txtPmod.value))
	{
		alert("La potencia total instalada debe ser múltiplo\nde la potencia máxima del módulo para que\nresulte un número entero total de módulos.");
		fun_borrar();
		return;
	}

	if(frmFVA.txtVacu.value/frmFVA.txtVmod.value!=Math.round(frmFVA.txtVacu.value/frmFVA.txtVmod.value))
	{
		alert("La tensión nominal del acumulador debe ser múltiplo\nde la tensión nominal del módulo para que resulte\nun número entero de módulos conectados en serie.");
		fun_borrar();
		return;
	}

	var nt,ns,np;
	nt=1000*frmFVA.txtPtot.value/frmFVA.txtPmod.value;
	ns=frmFVA.txtVacu.value/frmFVA.txtVmod.value;
	np=nt/ns;
	if(np!=Math.round(np))
	{
		alert("Con la potencia total instalada no resulta un número\nentero de módulos conectados en paralelo.");
		fun_borrar();
		return;
	}
	
	
	frmFVA.txtVacu.value/frmFVA.txtVmod.value
			  
	fun_calcular();
}

function fun_borrar()
{
	frmFVA.txtIncOpt.value="";	
	frmFVA.txtFI.value="";	
	frmFVA.txtG.value="";	
	frmFVA.txtLD.value="";	
	frmFVA.txtPmin.value="";	
	frmFVA.txtPPmin.value="";	
	frmFVA.txtN.value="";	
	frmFVA.txtCIsc.value="";	
	frmFVA.txtCumple.value="";
}

function fun_valida(campo,minval,maxval)
{
	if(campo.value=="")
	{
		alert("Falta el valor del dato.");
		fun_borrar();
		campo.focus();
		return false;
	}	
	else if(isNaN(campo.value))
	{
		alert("El dato debe ser numérico.");
		fun_borrar();
		campo.select();
		return false;
	}	
	else if(minval!=-1 && maxval!=-1 && (parseFloat(campo.value) < minval || maxval < parseFloat(campo.value)))
	{
		var err;
		if(maxval!=Infinity)
			err="El valor del dato debe estar comprendido entre "+minval+" y "+maxval+".";
		else
			err="El valor del dato debe ser mayor o igual que "+minval+".";
		alert(err);
		fun_borrar();
		campo.select();
		return false;
	}	
	
	return true;
}