TGastosCV=new Array();TGastosCV[0]=new Array("<p><b>Gastos de Compra-Venta</b></p>","",0,"Titulo de la Tabla");TGastosCV[1]=new Array("IVA vivienda","7%",0,"N");TGastosCV[2]=new Array("ITP (Trasmisiones Patrimoniales)","7%",0,"S");TGastosCV[3]=new Array("Actos Jurídicos Documentados","1%",0,"N");TGastosCV[4]=new Array("Notaría",250,0,"T");TGastosCV[5]=new Array("Registro",250,0,"T");TGastosCV[6]=new Array("Gestoría",250,0,"T");TGastosCV[7]=new Array("Gastos de Compra Venta","",0,"Fila para el total");var TGastosH=new Array();TGastosH[0]=new Array("Gastos de Hipoteca","",0,"Titulo de la Tabla");TGastosH[1]=new Array("Comisión de Apertura","1%",0,"T");TGastosH[2]=new Array("Actos jurídicos Documentados","1%",0,"T");TGastosH[3]=new Array("Tasación",250,0,"T");TGastosH[4]=new Array("Registro",250,0,"T");TGastosH[5]=new Array("Notaría",250,0,"T");TGastosH[6]=new Array("Gestoría",200,0,"T");TGastosH[7]=new Array("Seguros",100,0,"T");TGastosH[8]=new Array("Gastos Hipotecarios","",0,"Fila para el Total");var ITP=new Array(6,7,7,7,7,6,7,7,7,7,7,7,7,6,7,7,7,6,7,6);var ArrGastos=new Array();var NOTARIACV=1;var REGISTROCV=2;var GESTORIACV=3;var TASACIONH=4;var NOTARIAH=5;var REGISTROH=6;var GESTORIAH=7;ArrGastos[0]=new Array(60000,412,155,202,150,551,145,202);ArrGastos[1]=new Array(66000,419,161,202,150,555,148,202);ArrGastos[2]=new Array(72000,426,166,223,150,560,151,202);ArrGastos[3]=new Array(78000,433,171,223,150,564,155,202);ArrGastos[4]=new Array(84000,440,176,223,150,569,158,223);ArrGastos[5]=new Array(90000,447,182,244,150,573,162,223);ArrGastos[6]=new Array(96000,454,187,244,150,575,163,223);ArrGastos[7]=new Array(102000,461,192,244,150,578,164,223);ArrGastos[8]=new Array(108000,468,197,258,150,580,166,223);ArrGastos[9]=new Array(114000,475,203,258,150,582,167,223);ArrGastos[10]=new Array(120000,482,208,265,150,584,168,244);ArrGastos[11]=new Array(126000,489,213,265,150,587,170,244);ArrGastos[12]=new Array(132000,496,218,279,172,589,171,244);ArrGastos[13]=new Array(138000,503,223,279,172,591,172,244);ArrGastos[14]=new Array(144000,510,229,279,172,593,174,244);ArrGastos[15]=new Array(150000,517,234,296,172,596,175,244);ArrGastos[16]=new Array(156000,520,236,303,172,598,176,258);ArrGastos[17]=new Array(162000,524,238,310,172,600,178,258);ArrGastos[18]=new Array(168000,527,240,317,172,603,179,258);ArrGastos[19]=new Array(174000,531,242,324,172,605,180,258);ArrGastos[20]=new Array(180000,534,244,331,172,607,182,265);ArrGastos[21]=new Array(186000,538,246,338,172,609,183,265);ArrGastos[22]=new Array(192000,541,249,345,172,612,185,265);ArrGastos[23]=new Array(198000,545,251,349,172,614,186,265);ArrGastos[24]=new Array(204000,548,253,359,172,615,187,279);ArrGastos[25]=new Array(210000,552,255,366,172,618,189,279);ArrGastos[26]=new Array(216000,556,257,366,172,621,190,279);ArrGastos[27]=new Array(222000,559,259,366,172,623,191,279);ArrGastos[28]=new Array(228000,562,261,366,207,625,193,279);ArrGastos[29]=new Array(234000,566,263,366,207,627,194,279);ArrGastos[30]=new Array(240000,569,265,366,207,630,195,296);function DameGasto(a,d){var b=0;var c=0;while((ArrGastos[b][0]<a)&&(b<ArrGastos.length-1)){b++}c=ArrGastos[b][d];return c}function ActualizarGastos(a,c,b){TGastosCV[4][1]=DameGasto(c,NOTARIACV);TGastosCV[5][1]=DameGasto(c,REGISTROCV);TGastosCV[6][1]=DameGasto(c,GESTORIACV);TGastosH[3][1]=DameGasto(a,TASACIONH);TGastosH[4][1]=DameGasto(a,NOTARIAH);TGastosH[5][1]=DameGasto(a,REGISTROH);TGastosH[6][1]=DameGasto(a,GESTORIAH)}function CalculaGastos(f,b,a){var c;var e;var d=0;for(c=0;c<f.length;c++){if(f[c][3]==a||f[c][3]=="T"){e=f[c][1]+" ";if(e.indexOf("%")>-1){e=e.replace("%","");f[c][2]=(Math.round(b*e))/100}else{f[c][2]=f[c][1]}d=parseFloat(d)+parseFloat(f[c][2])}}return d}function Calcula2(a,h){var c=strToNum(a.iImporte.value);var f=strToNum(a.iInteres.value);var g=strToNum(a.iPlazo.value);var b=strToNum(a.iCuota.value);var i=a.iEuribor.value;var d="";var e="<p>La <span>Cuota a pagar</span> es de:</p>";switch(true){case a.rTipoCalculo[0].checked:d=CalculaCuota(c,f,g);break;case a.rTipoCalculo[1].checked:d=CalculaImporte(b,f,g);e="<p>El <span>Importe de la Hipoteca</span> es de:</p>";break;case a.rTipoCalculo[2].checked:d=CalculaInteres(b,c,g,i);e="<p>El <span>Interés máximo</span> es de:</p>";break;case a.rTipoCalculo[3].checked:d=CalculaPlazo(b,c,f);e="<p>El <span>Plazo en Años</span> es de:</p>";break}h.innerHTML=numToStr(d);$("TextoResultado").innerHTML=e}function CalculaCuota(c,a,b){if((a!="")&&(c!="")&&(b!="")){a=a/1200;b=b*12;factor=Math.pow((1+a),-b);resul=(c*a)/(1-factor)}else{resul=0}return resul}function CalculaInteres(h,c,b,g){var d;var a;var f;var e;d=0;a=g/1200;b=b*12;while(Math.abs(d-a)>0.000001){d=a;f=1-Math.pow((1+d),-b);f=(h/d)*f;f=c-f;e=1-Math.pow((1+d),-b);e=e/d;e=e-(b*Math.pow((1+d),-b-1));e=e*h/d;a=d-(f/e)}return a*1200}function CalculaPlazo(d,b,a){var c=0;if((a!="")&&(b!="")&&(d!="")){a=a/1200;factor1=(b*a)/d;if(factor1<1){factor1=1-factor1;factor1=Math.log(factor1);factor2=Math.log(1+a);c=Math.round(Math.abs(factor1/factor2)/12)}else{c="Plazo Infinito"}}return c}function CalculaImporte(c,a,b){if((a!="")&&(c!="")&&(b!="")){a=a/1200;b=b*12;factor=Math.pow((1+a),-b);resul=c*(1-factor)/a}else{resul=0}return resul}function Invertir(d){var a="";var b=d.substr(0,d.length-1);var c=d.substr(d.length-1,1);if(d.length==1){a=d}else{a=c+Invertir(b)}return a}function strToNum(b){var a="";a=b.replace(/\./g,"");a=a.replace(",",".");a=parseFloat(a);return a}function numToStr(b){var a="";a=String(Math.round(b*100)/100);a=a.replace(".",",");a=a.split(",");a[0]=Invertir(a[0]);a[0]=a[0].replace(/(\d\d\d)/g,"$1.");a[0]=a[0].replace(/\.$/,"");if(!isNaN(a[1])){a[1]=","+a[1]}else{a[1]=""}return Invertir(a[0])+a[1]}function SumaGastos(c,b,e){var a=0;var d=0;var f=0;for(a=0;a<c.length;a++){f=String(c[a][1]);if(((f.indexOf("%")>0)==e)&&((c[a][3]==b)||(c[a][3]=="T"))){d+=parseFloat(f)}}return d}function ImporteNeto(e,a){var b=0;var d=0;var c=0;b=SumaGastos(TGastosCV,a,false)+SumaGastos(TGastosH,a,false);d=(SumaGastos(TGastosCV,a,true)+SumaGastos(TGastosH,a,true))/100;c=(e-b)/(1+d);return c}function GastosTotales(b,a){var c=0;var e=0;var d=0;c=SumaGastos(TGastosCV,a,false)+SumaGastos(TGastosH,a,false);e=(SumaGastos(TGastosCV,a,true)+SumaGastos(TGastosH,a,true))/100;d=c+(b*e);return d};