97c4c0fef1
Quasiment terminé la petite démo de la correction d'un capteur non linéaire, la démon fonctionne dans la page 3 html !
53 lines
1.3 KiB
Lua
53 lines
1.3 KiB
Lua
-- Script pour corriger une mesure d'un capteur non linéaire
|
|
-- ici on simule une lecture d'un device branché sur
|
|
-- l'entrée du convertisseur analogique A0
|
|
|
|
print("\n a_no_linear.lua zf190422.1134 \n")
|
|
|
|
zcourbe_correction="t1.csv"
|
|
|
|
function get_correction(zx0)
|
|
file_csv = file.open(zcourbe_correction, "r")
|
|
if file_csv then
|
|
local line = file_csv:readline() -- lit la première ligne header
|
|
line = file_csv:readline() zx2, zy2 = zsplit(line)
|
|
repeat
|
|
zx1 = zx2 zy1 = zy2
|
|
line = file_csv:readline() zx2, zy2 = zsplit(line)
|
|
until zx0 <= zx2
|
|
file_csv:close() file_csv = nil
|
|
print(zx1,zx2) print(zy1,zy2)
|
|
|
|
local zx = zx0 - zx1
|
|
local zm = zx / (zx2 - zx1)
|
|
local zy = (zy2 - zy1) * zm
|
|
zy0 = zy1 + zy
|
|
end
|
|
end
|
|
|
|
function zsplit(zline)
|
|
local zline = string.gsub(zline,"\n","")
|
|
local zx, zy = zline:match("([^,]+),([^,]+)")
|
|
print("-"..zx.."-"..zy.."-")
|
|
return tonumber(zx), tonumber(zy)
|
|
end
|
|
|
|
|
|
zx0=100
|
|
get_correction(zx0)
|
|
print("la valeur corrigée de "..zx0.." est: "..zy0)
|
|
|
|
|
|
--[[
|
|
f= "a_no_linear.lua" if file.exists(f) then dofile(f) end zget_meteo()
|
|
|
|
get_correction(83)
|
|
get_correction(91)
|
|
get_correction(100)
|
|
|
|
|
|
-- On affiche combien on a de RAM
|
|
print(node.heap())
|
|
|
|
]]
|