Subscribe to download
*LUA* Radio Radar (Signal Trilateration)

-- Frequency scanner varnames = {"screenW","screenH","touchX1","touchY1","touchX2","touchY2","defRadio","s_Radio","t_Radio","s_Start","s_End","s_Current","s_SS","t_Current","ra","rb","rc","gpsX","gpsY","compass","LPower","RRadio","RPower"} v = {} senders = {100,1000,4000,20000} receivers = {0,1000,4000,20000} freq = -1 tra = -1 found = {} foundnew = {} dist = {} distnew = {} tset = {} tx = {} ty = {} rsel = 3 rrange = {10,50,100,200,500,1000,5000,10000,40000} off = 0 selected = 0 selx = 0 sely = 0 xa = -1 xb = 1 xc = 0 ya = 0 yb = 0 yc = -1 function onTick() --Init input variables-- for i=1,#varnames do v[varnames[i]] = input.getNumber(i) end if v.defRadio < 1 then return true end --Radio range settings-- if v.LPower == 0 then v.LPower = 1 end if v.RPower == 0 then v.RPower = 1 end if v.RRadio == 0 then v.RRadio = v.defRadio end s_range = (senders[v.RRadio] + receivers[v.s_Radio]) *v.LPower *v.RPower t_range = (senders[v.RRadio] + receivers[v.t_Radio]) *v.LPower *v.RPower --scan frequencies-- if freq == -1 or freq == v.s_End then freq = v.s_Start else freq = freq +1 end output.setNumber(6,freq) v.s_Current = math.floor(v.s_Current) if v.s_Current == v.s_Start then found = foundnew dist = distnew foundnew = {} distnew = {} end if v.s_Current >= v.s_Start and v.s_Current <= v.s_End then if v.s_SS > 0 then foundnew[#foundnew+1] = v.s_Current distnew[#distnew+1] = math.floor((1 -v.s_SS) *s_range *10)/10 end end --track known frequencies if #found > 0 then if tra == -1 or tra >= #found then tra = 1 else tra = tra +1 end --cycle tracking output.setNumber(7,found[tra]) --trilateration v.t_Current = math.floor(v.t_Current) if v.t_Current >= v.s_Start and v.t_Current <= v.s_End then ra = (1 -v.ra) *t_range rb = (1 -v.rb) *t_range rc = (1 -v.rc) *t_range S = (xc^2 - xb^2 + yc^2 - yb^2 + rb^2 - rc^2) / 2.0; T = (xa^2 - xb^2 + ya^2 - yb^2 + rb^2 - ra^2) / 2.0; try = ((T * (xb - xc)) - (S * (xb - xa))) / (((ya - yb) * (xb - xc)) - ((yc - yb) * (xb - xa))) trx = ((try * (ya - yb)) - T) / (xb - xa) ty["f"..v.t_Current] = try tx["f"..v.t_Current] = trx end end --List interaction maxlines = math.floor((v.screenH-22)/6) if input.getBool(1) then if v.touchX1 < (v.screenW -v.screenH) then if v.touchY1 <= 6 then off = off -0.25 if off < 0 then off = 0 end elseif v.touchY1 >= (v.screenH-6) then off = off +0.25 if off > (#found-maxlines) then off = (#found-maxlines) end else try = off+math.floor((v.touchY1-14)/6)+1 if try > 0 and try <= #found then selected = found[try] end end elseif v.touchX1 > (v.screenW - 25) then if v.touchY1 < 25 then rsel = rsel -0.25 if rsel < 1 then rsel = 1 end elseif v.touchY1 > (v.screenH - 25) then rsel = rsel +0.25 if rsel > #rrange then rsel = #rrange end end end end --selected if tx["f"..selected] ~= nil then selx = tx["f"..selected] sely = ty["f"..selected] selx = v.gpsX + selx * math.cos(v.compass*math.pi*2) - sely * math.sin(v.compass*math.pi*2) sely = v.gpsY + selx * math.sin(v.compass*math.pi*2) + sely * math.cos(v.compass*math.pi*2) output.setNumber(1, selx) output.setNumber(2, sely) end end function onDraw() if maxlines == nil then return true end sw = screen.getWidth() sh = screen.getHeight() sx = sw /2 sy = sh /2 --screenlayout screen.setColor(0,200,0) screen.drawText(sw-sh+1,2,rrange[math.floor(rsel)].."m") if sw >= 160 then screen.drawRectF(sw-16,8, 11, 3) screen.drawRectF(sw-12,4, 3,11) screen.drawRectF(sw-16,sh-10,11,3) screen.drawRect(1,0,sw-sh-2,sh-1) screen.drawRectF(1,1,sw-sh-2,6) screen.drawRectF(1,sh-7,sw-sh-2,6) screen.drawText(4, 8, (sw>160 and "Freq: Dist:" or "F: Dist:")) screen.setColor(0,0,0) if off > 0 then screen.drawTriangleF((sw-sh)/2-4, 6, (sw-sh)/2+5, 6, (sw-sh)/2, 1) end if (off+maxlines) < #found then screen.drawTriangleF((sw-sh)/2-5, sh-6, (sw-sh)/2+5, sh-6, (sw-sh)/2, sh) end end screen.setColor(0,200,0,25) cy = sh/2 cx = sw-cy screen.drawCircleF(cx,cy,cy-3) screen.setColor(0,200,0,150) screen.drawCircle(cx,cy,cy-1) screen.drawTriangleF(cx-3, sy, cx+4, sy, cx, sy-4) scale = cy /rrange[math.floor(rsel)] --list frequencies j = 0 for i=1, #found do fr = found
if found~=nil then
if selected == fr then
screen.setColor(255,0,0)
else
screen.setColor(255,150,0)
end
if i>off and i<=#found and j<maxlines and sw >= 160 then
screen.drawText(4, 14+j*6, string.sub(" "..fr,-3).."|"..string.sub(" "..dist,-7) )
j= j +1
end
if dist <= rrange[math.floor(rsel)] and tx["f"..fr] ~= nil then
xx = math.floor(cx +tx["f"..fr] *scale)
yy = math.floor(cy -ty["f"..fr] *scale)
if selected == fr then screen.drawRectF(xx-1,yy-1,4,4) else screen.drawRectF(xx,yy,2,2) end
end
end
end
end