function addEvent(c,b,a){if(c.addEventListener){c.addEventListener(b,a,false);return true}else{if(c.attachEvent){return c.attachEvent("on"+b,a)}else{return false}}}function get_cookie(f){var d="";var e=document.cookie.indexOf(f);if(e!=-1){e+=f.length+1;var c=document.cookie.indexOf(";",e);if(c==-1){c=document.cookie.length}var d=unescape(document.cookie.substring(e,c))}return d}var funct_array=new Array("pv","fv","np","pmt","ir");var completed=false;function read_cookie(){var cookie=get_cookie(window.location.pathname);if(cookie!=""){var array=cookie.split("|");for(var i=0;i<array.length;i++){var s="document.calculator."+array[i];eval(s)}}}function read_com_args(){var hash=new Object();for(var i in funct_array){hash[funct_array[i]]=false}var temp=window.location.search.split("?");if(temp.length>1){var array=temp[1].split("&");var n=0;for(var i in array){var arg=unescape(array[i]);var pair=arg.split("=");if(pair[0] in hash){hash[pair[0]]=true;var value=pair[1].replace(",","");var s="document.calculator."+pair[0]+".value = "+value;eval(s);n++}else{if(pair[0]=="pb"){var pb=(pair[1]=="true")?0:1;var s="document.calculator.pb["+pb+"].checked = true";eval(s)}}}if(n==4){for(var str in hash){if(!hash[str]){comp(document.calculator,str)}}}}}function read_values(){read_cookie();read_com_args()}function write_cookie(){var cookie=new Array();for(i=0;i<funct_array.length;i++){var v=funct_array[i];cookie[i]=v+'.value="'+eval("document.calculator."+v+".value")+'"'}pb=document.calculator.pb[0].checked?0:1;cookie[funct_array.length]="pb["+pb+"].checked = true";cookie=escape(cookie.join("|"));var duration=new Date(new Date().getTime()+30*24*60*60*1000);document.cookie=window.location.pathname+"="+cookie+"; expires="+duration.toGMTString()}function value_changed(b){var a=(b.value.match(/^\s*-/))?"red":"black";b.style.color=a}var cleared_text=null;function clear_text(a){cleared_text=a.value;a.value=""}function unclear_text(a){if(a.value==""){a.value=cleared_text}}var originalBackColor=null;function set_status(c,b){completed=c;var a="";if(originalBackColor==null){originalBackColor=b.igual.style.backgroundColor}if(completed){b.igual.style.backgroundColor=originalBackColor}else{b.igual.style.backgroundColor="#FABF8F"}}function num_format(k,a,j,b,g){var h=Math.abs(k);var d=Math.pow(10,a);var h=Math.floor(h*d+0.5);var e=a;var c=16;var f="";while(c-->0&&(((e--)>=0)||(h>0))){if(e<-1){f=(((e+1)%3==0)?b:"")+f}f=(h%10)+f;h=Math.floor(h/10);if(e==0){f=g+f}}if(k<0){f="-"+f}if(j!=null){j.value=f;set_cell_color(j,k)}return f}function set_cell_color(a,b){a.style.color=(b<0)?"red":"black"}function parse_cell(a,c){if(a==null){return 0}var b=a.value.replace(c,"");b=b.replace(",",".");var d=parseFloat(b);set_cell_color(a,d);return d}var delim=",";var radix=".";function comp(a,b){completed=false;var m=2/3;var c=m.toString();var j=false;delim=(j)?",":".";radix=(j)?".":",";var f=2;var l=0;var p=parse_cell(a.pv,delim);var e=parse_cell(a.fv,delim);var n=parse_cell(a.np,delim);var d=parse_cell(a.pmt,delim);if(a.ir.value==""){a.ir.value="1"}var g=parse_cell(a.ir,delim);var q="Não foi possível calcular a tabela SAC!";var h=0;if(a.air!=null){if(a.air.value==""){a.air.value="1"}h=parse_cell(a.air,delim)}var k=0;if(a.tr!=null){if(a.tr.value==""){a.tr.value="1"}k=parse_cell(a.tr,delim)}var o="mensal";if(a.periodo!=null){o=a.periodo.value}g/=100;h/=100;switch(b){case"pv":p=comp_pv(n,g,d,e,l);completed=true;break;case"pt":case"fv":e=comp_fv(n,g,d,p,l);completed=true;break;case"fvf":e=comp_fvf(n,g,d,p,l);completed=true;break;case"mir":g=comp_mir(n,g,h);completed=true;break;case"air":h=comp_air(n,g,h);completed=true;break;case"np":n=comp_np(g,d,e,p,l);completed=true;break;case"pmt":d=comp_pmt(n,g,e,p,l);completed=true;break;case"ir":g=comp_ir(n,g,d,p,e,l);completed=true;break;case"loc":break;case"sac":q=comp_sac(n,g,p,k,o);break}num_format(p,f,a.pv,delim,radix);num_format(e,f,a.fv,delim,radix);num_format(n,0,a.np,delim,radix);num_format(d,f,a.pmt,delim,radix);num_format(g*100,4,a.ir,delim,radix);if(a.air!=null){num_format(h*100,4,a.air,delim,radix)}if(b=="sac"){document.getElementById("sac_result").innerHTML=q}return true}function comp_sac(e,c,h,d,g){var j="<table class='sac'>";if(g=="anual"){c=comp_mir(12,null,c)}var b=0;var a=h/e;for(b=0;b<e;b++){var f=a+h*c;j+="<tr><td width='30'>"+(b+1)+"</td><td width='130'>"+num_format(f,2,null,delim,radix)+"</td><td width='130'>"+num_format(h*c,2,null,delim,radix)+"</td><td width='130'>"+num_format((h-a),2,null,delim,radix)+"</td></tr>";h-=a}j+="</table>";return j}function comp_pv(h,f,b,g,a){var d;if(f==0){d=-g-h*b}else{var e=Math.pow(1+f,-h);var c=Math.pow(1+f,h);d=-e*(g+((-1+c)*b*(1+f*a))/f)}return d}function comp_fv(g,e,b,c,a){var f;if(e==0){f=-g*b-c}else{var d=Math.pow(1+e,g);f=-d*c-(((-1+d)*b*(1+e*a))/e)}return f}function comp_fvf(f,e,b,c,a){var d=Math.pow(1+e,f);fv=c*d;return fv}function comp_mir(d,c,a){var b=Math.pow(1+a,1/d);c=b-1;return c}function comp_air(d,c,a){var b=Math.pow(1+c,d);a=b-1;return a}function comp_pmt(g,e,f,c,a){var b=0;if(e==0){if(g!=0){b=-(f+c)/g}}else{var d=Math.pow(1+e,g);b=-(e*(f+(d*c)))/((-1+d)*(1+e*a))}return b}function comp_np(f,d,h,e,c){var g=0;if(f==0){if(d!=0){g=-(h+e)/d}}else{var b=-h*f+d+f*d*c;var a=d+f*e+f*d*c;g=Math.log(b/a)/Math.log(1+f)}return g}function comp_ir(b,f,n,o,d,a){f=0.01;var h=f;var g=400;var u=0;var c=0;var s=0;var m=0;if((d==0)&&(o==0)){h=(n<0)?-1:1}else{var p=0;var e=false;do{var r=0;var q=0;var l=(p==0)?f:-f;var t=l*0.5;if(t==0){t=1}do{l+=t;if(l!=0){u=comp_fv(b,l,n,o,a);s=Math.abs(u-d)}if(r>0){q++;if((Math.abs(u-c)>1e-8)||(s>1e-8)){q=0}if(s>m){t*=-0.5}}c=u;m=s}while((r++<g)&&(q<3));if(r<g){h=l;e=true}}while((p++<2)&&!e);if(!e){alert("Não é possível calcular a taxa para esse conjunto de valores")}}return h};