
<!-- 
  function mod_calc(number,X) {
    X = (!X ? 5 : X);
    return Math.round(number*Math.pow(10,X))/Math.pow(10,X);
  }
  function calculate_amps (parent_pointer) {
    with (Math) {
    wts = eval(parent_pointer.watts1.value);
    v1 = eval(parent_pointer.volts1.value);
    a1 = wts / v1;
    parent_pointer.curnt.value = mod_calc(a1);
    }
  }
  
  function calculate_voltsi (parent_pointer) {
    with (Math) {
    wts = eval(parent_pointer.watts1.value);
    rst = eval(parent_pointer.ohms1.value);
    a1 = Math.sqrt (wts / rst);
    parent_pointer.curnt.value = mod_calc(a1);
    }
  }
  function calculate_ampsb (parent_pointer) {
    with (Math) {
    v1 = eval(parent_pointer.volts2.value);
    rst = eval(parent_pointer.ohms2.value);
    a1 = v1 / rst;
    parent_pointer.amps2.value = mod_calc(a1);
    }
  }
  function calculate_volts (parent_pointer) {
    with (Math) {
    a1 = eval(parent_pointer.current1.value);
    rst = eval(parent_pointer.ohms1.value);
    v1 = a1 * rst;
    parent_pointer.volts1.value = mod_calc(v1);
    }
  }
  function calculate_voltsv (parent_pointer) {
    with (Math) {
    wts = eval(parent_pointer.watts1.value);
    a1 = eval(parent_pointer.curnt.value);
    v1 = wts / a1;
    parent_pointer.volts1.value = mod_calc(v1);
    }
  }
  function calculate_voltsb (parent_pointer) {
    with (Math) {
    wts = eval(parent_pointer.watts1.value);
    rst = eval(parent_pointer.ohms1.value);
    v1 = Math.sqrt (wts * rst);
    parent_pointer.volts1.value = mod_calc(v1);
    }
  }
  function calculate_ampsr (parent_pointer) {
    with (Math) {
    w3 = eval(parent_pointer.watts3.value);
    a3 = eval(parent_pointer.amps3.value);
    r3 = w3 / (a3 * a3);
    parent_pointer.ohms3.value = mod_calc(r3);
    }
  }
  function calculate_resistanceb (parent_pointer) {
    with (Math) {
    v1 = eval(parent_pointer.volts1.value);
    a1 = eval(parent_pointer.current1.value);
    rst = v1 / a1;
    parent_pointer.ohms1.value = mod_calc(rst);
    }
  }
  function calculate_resistancec (parent_pointer) {
    with (Math) {
    v1 = eval(parent_pointer.volts1.value);
    wts = eval(parent_pointer.watts1.value);
    rst = (v1 * v1) / wts;
    parent_pointer.ohms1.value = mod_calc(rst);
    }
  }
  function calculate_power (parent_pointer) {
    with (Math) {
    a1 = eval(parent_pointer.current1.value);
    rst = eval(parent_pointer.ohms1.value);
    wts = (a1 *a1) * rst;
    parent_pointer.watts1.value = mod_calc(wts);
    }
  }
  function calculate_powerb (parent_pointer) {
    with (Math) {
    v1 = eval(parent_pointer.volts1.value);
    a1 = eval(parent_pointer.current1.value);
    wts= v1 * a1;
    parent_pointer.watts1.value = mod_calc(wts);
    }
  }
  function calculate_powerc (parent_pointer) {
    with (Math) {
    v1 = eval(parent_pointer.volts1.value);
    rst = eval(parent_pointer.ohms1.value);
    wts= (v1 * v1) / rst;
    parent_pointer.watts1.value = mod_calc(wts);
    }
  }
//-->