//  Calculo de Divisor (15/11/2004)
//  http://www.mdarc.net

function compute6(obj) {
with (Math) {
f6=(obj.freq6.value);
z6=(obj.impe6.value);
if (!f6) return;
if (!z6) return;

b6=2*PI*f6*z6
c6=1/b6;
a6=c6*1000000

i6=159*z6/f6

obj.a_cap6.value=a6;
obj.a_ind6.value=i6;

 }
}

//  Calculo de Divisor (15/11/2004)
//  http://www.mdarc.net

function compute12(obj) {
with (Math) {
f12=(obj.freq12.value);
z12=(obj.impe12.value);
if (!f12) return;
if (!z12) return;

a12=1/(2*PI*f12*z12)*1000000*0.707

i12=159*z12/f12/0.707

obj.a_cap12.value=a12;
obj.a_ind12.value=i12;

 }
}

//  Calculo de Potência (19/11/2004)
//  http://www.mdarc.net

function computept(obj) {
with (Math) {
pa1=(obj.paf.value);
pt1=(obj.ptf.value);
it1=(obj.iptw.value);
if (!pa1) return;
if (!pt1) return;
if (!it1) return;

vr1=sqrt(pa1*it1)
vr2=sqrt(pt1*it1)
vr3=vr1-vr2
vr4=vr2/it1
vr1=vr3/vr4
pres1=vr3*vr4

obj.vres1.value=vr1;
obj.pres1.value=pres1;

 }
}