var angl=(engl)?1:0;
var CWD = 1;
var SPRD = 2;
var WD = 3;
var VELOC = 4;
var CAD = 5;
var domn = CAD;

var D_CWD = 1;
var D_SPRD = 2;
var D_WD = 3;
var DEV = 4;
var D_domn = DEV;



function _WHEEL_DIA(x, calculator)
{
  var y = eval('x.' + ((calculator == 1)? 'Wt' : 'D_Wt') + '.options[x.' + ((calculator == 1)? 'Wt' : 'D_Wt') + '.selectedIndex].text;');
  eval('x.' + ((calculator == 1)? 'Wd' : 'D_Wd') + '.value = TO_INT(y.substring(y.indexOf("mm") - 4));');
}



function _CADENCE()
{
  if (f != null)
  {
    stop = 0;

    var cwd = READ_INPUT(f.Cw);
    if (cwd < 0 || cwd % 1 != 0)
    {
      STOP_READ_INPUT(f.Cw);
    }
    var sprd = READ_INPUT(f.Spr);
    if ((sprd < 0 || sprd % 1 != 0) && stop == 0)
    {
      STOP_READ_INPUT(f.Spr);
    }
    var wd = READ_INPUT(f.Wd) * .001;
    var veloc = READ_INPUT(f.V) * ((angl==1)? .44704 : .27778);
    var cad = READ_INPUT(f.Cad) * .0166667;

    var _cwd = f.Cw.value;
    var _sprd = f.Spr.value;
    var _wd = f.Wd.value;
    var _veloc = f.V.value;
    var _cad = f.Cad.value;

    if (stop == 0)
    {
      var all = (_cwd != '' && _sprd != '' && _wd != '' && _veloc != '' && _cad != '')? true : false;
      if (_cwd == '' || all && domn == CWD)
      {
        domn = CWD;
        WRITE_OUTPUT(f.Cw, 0, veloc * sprd / (cad * wd * Math.PI));
      }
      if (_sprd == '' || all && domn == SPRD)
      {
        domn = SPRD;
        WRITE_OUTPUT(f.Spr, 0, cad * wd * cwd * Math.PI / veloc);
      }
      if (_wd == '' || all && domn == WD)
      {
        domn = WD;
        WRITE_OUTPUT(f.Wd, 0, 1000 * veloc * sprd / (cad * cwd * Math.PI));
      }
      if (_veloc == '' || all && domn == VELOC)
      {
        domn = VELOC;
        WRITE_OUTPUT(f.V, 1, ((angl==1)?2.2369:3.6) * cad * wd * cwd * Math.PI / sprd);
      }
      if (_cad == '' || all && domn == CAD)
      {
        domn = CAD;
        WRITE_OUTPUT(f.Cad, 0, 60 * veloc * sprd / (wd * cwd * Math.PI));
      }
    }
  }
  return 0;
}



function _DEVELOP()
{
  if (f != null)
  {
    stop = 0;

    var cwd = READ_INPUT(f.D_Cw);
    if (cwd < 0 || cwd % 1 != 0)
    {
      STOP_READ_INPUT(f.D_Cw);
    }
    var sprd = READ_INPUT(f.D_Spr);
    if ((sprd < 0 || sprd % 1 != 0) && stop == 0)
    {
      STOP_READ_INPUT(f.D_Spr);
    }
    var wd = READ_INPUT(f.D_Wd) * .001;
    var dev = READ_INPUT(f.Dev);

    var _cwd = f.D_Cw.value;
    var _sprd = f.D_Spr.value;
    var _wd = f.D_Wd.value;
    var _dev = f.Dev.value;

    if (stop == 0)
    {
      var all = (_cwd != '' && _sprd != '' && _wd != '' && _dev != '')? true : false;
      if (_cwd == '' || all && D_domn == D_CWD)
      {
        D_domn = D_CWD;
        WRITE_OUTPUT(f.D_Cw, 0, dev * sprd / (wd * Math.PI));
      }
      if (_sprd == '' || all && D_domn == D_SPRD)
      {
        D_domn = D_SPRD;
        WRITE_OUTPUT(f.D_Spr, 0, wd * cwd * Math.PI / dev);
      }
      if (_wd == '' || all && D_domn == D_WD)
      {
        D_domn = D_WD;
        WRITE_OUTPUT(f.D_Wd, 0, 1000 * dev * sprd / (cwd * Math.PI));
      }
      if (_dev == '' || all && D_domn == DEV)
      {
        D_domn = DEV;
        WRITE_OUTPUT(f.Dev, 3, wd * cwd * Math.PI / sprd);
      }
    }
  }
  return 0;
}