RF Tools Watch Lua Script

var_mode = 0
c = 299792458
hz = 1
khz = 1000
mhz = 1000000
ghz = 1000000000
thz = 1000000000000
rvs = 100000000000
step = hz
f = 0
unit = 'km'
wavelength = c / (f * step)
var_bandlight = 0
var_antlen = 1
var_antenna = nil
var_antenna_half = nil
var_antenna_quarter = nil
var_antenna_five8th = nil

function cleardata()
 f = 0
 unit = 'km'
 step = hz
 var_display = nil
 var_wavelength = nil
 var_band = '...'
 setfrequency(0)
 var_bandlight = 0
 var_antenna = nil
 var_antlen = 1
 var_raw = nil
 var_antenna_half = nil
 var_antenna_quarter = nil
 var_antenna_five8th = nil
end

function antennalen()
  var_antenna_half = math.floor((((wavelength)*100)*100)/100) / 2
  var_antenna_quarter = math.floor((((wavelength)*100)*100)/100) / 4
  var_antenna_five8th = (math.floor((((wavelength)*100)*100)/100) / 8) * 5
end

function setband(band)
 step = band
 var_band = tostring(band)
  if band == hz then
   var_bandlight = 1
  elseif band == khz then
   var_bandlight = 2
  elseif band == mhz then
   var_bandlight = 3
  elseif band == ghz then
   var_bandlight = 4
  elseif band == metres then
   var_bandlight = 5
   var_band = 'metres'
 end
end

function setfrequency(freq)
 if f == nil then
  f = freq
   else
    if (tonumber(string.sub(f,1,1)) == 0 and freq == 0) or tonumber(string.sub(f,1,1)) == 0 then
     f = ''
     step = hz
     var_display = nil
      elseif string.len(f) < 8 then
     f = f .. freq
     var_display = f
  end
 end
end

function calcwl()
 if var_bandlight ~= 5 then
  wavelength = c / (f * step)
 if wavelength == 0 or wavelength == nil
  then
   unit = ''
 elseif wavelength < 0.009
  then
   unit ='pm'
   var_wavelength = math.floor(((wavelength)*1000)*100)/100 .. ' ' .. tostring(unit)
   antennalen()
 elseif wavelength < 0.01
  then
   unit = 'nm'
   var_wavelength = math.floor(((wavelength)*100)*100)/100 .. ' ' .. tostring(unit)
   antennalen()
 elseif wavelength < 0.1 and wavelength > 0.01
  then
   unit = 'mm'
   var_wavelength = math.floor(((wavelength)*100)*100)/100 .. ' ' .. tostring(unit)
   antennalen()
 elseif wavelength < 1 and wavelength > 0.1
  then
   unit = 'cm'
   var_wavelength = math.floor(((wavelength)*100)*100)/100 .. ' ' .. tostring(unit)
   antennalen()
 elseif wavelength > 1 and wavelength < 1000
  then
   unit = 'm'
   var_wavelength = math.floor(((wavelength)*1)*100)/100 .. ' ' .. tostring(unit)
   antennalen()
 elseif wavelength > 1000
  then
   unit = 'km'
   var_wavelength = math.floor(((wavelength)*1)*100)/100 .. ' ' .. tostring(unit)
   antennalen()
 end
 end
var_display = var_display
var_raw = wavelength
end

function calcfreq()
  wavelength = c / (f * mhz)
  var_wavelength = math.floor((wavelength)*100)/100
end

function docalc()
 if var_bandlight == 5 then
  calcfreq()
 elseif var_bandlight >= 1 then
  calcwl()
 end
end

setfrequency(0)