//  Calculo de Carga (22/07/05)

//  http://www.mdarc.net



function carga(obj) {

with (Math) {

amp=(obj.pamp.value);

corn=(obj.pcorn.value);

z=(obj.imp.value);

if (!amp) return;

if (!corn) return;

if (!z) return;



eamp=sqrt(amp*z)

ecorn=sqrt(corn*z)





eresis=eamp-ecorn

iresis=ecorn/z

resis=eresis/iresis

presis=eresis*iresis



a=resis

b=presis



obj.resistor.value=a;

obj.potencia.value=b;



 }

}