63 lines
2.2 KiB
Lua
63 lines
2.2 KiB
Lua
-- Lit le convertisseur ADC connecté sur le transformateur de courant
|
|
-- pour mesurer le courant électrique de l'installation PV
|
|
print("\n 0_get_data.lua zf191024.1037 \n")
|
|
|
|
-- Astuce de mesure:
|
|
-- On converti le courant en tension avec la résistance de charge du
|
|
-- transformateur de courant 1/800 et le mesure avec l'ADC
|
|
-- Au lieu de découper la sinusoïde en 100 parties, c'est à dire toutes
|
|
-- les 0.2ms (5'000x /s), pour en faire l'intégrale. On lit l'adc toutes
|
|
-- les 11ms (91x /s) donc beaucoup plus lentement.
|
|
-- Comme la sinusoïde fait 20ms et est répétitive, on balaye (par décalage)
|
|
-- statistiquement la sinusoïde.
|
|
-- On redresse l'alternance par rapport à la masse fictive (env 0.5),
|
|
-- ce qui nous permet d'estimer une valeur RMS du courant
|
|
-- quelque soit sa forme et on le somme sur 2.1 secondes
|
|
-- Les mesures min et max ne sont là juste pour vérifier que nous sommes
|
|
-- bien dans la plage de mesure avec le choix de la résistance de conversion
|
|
-- la conversion courant/tension/puissance est faite avec une simple régle de 3
|
|
|
|
|
|
zpow_cal=401 --puissance mesurée de la charge étalon
|
|
zadc_cal=189 --valeur de l'adc pour zpow_cal
|
|
zadc_offset=548
|
|
|
|
zadc_sum=0 zadc_offset_sum=0 znb_mes=0
|
|
zadc_min=zadc_offset zadc_max=zadc_offset
|
|
|
|
if adc.force_init_mode(adc.INIT_ADC)
|
|
then
|
|
node.restart()
|
|
return
|
|
end
|
|
|
|
tmr_read_adc=tmr.create()
|
|
tmr_read_adc:alarm(11, tmr.ALARM_AUTO, function()
|
|
read_adc()
|
|
end)
|
|
|
|
tmr_calc_rms=tmr.create()
|
|
tmr_calc_rms:alarm(2.1*1000, tmr.ALARM_AUTO, function()
|
|
calc_rms()
|
|
end)
|
|
|
|
function read_adc()
|
|
zadc=adc.read(0)
|
|
if zadc<=zadc_min then zadc_min=zadc end
|
|
if zadc>=zadc_max then zadc_max=zadc end
|
|
zadc_offset_sum=zadc_offset_sum+zadc
|
|
zadc=zadc-zadc_offset if zadc<=0 then zadc=zadc*-1 end
|
|
zadc_sum=zadc_sum+zadc znb_mes=znb_mes+1
|
|
end
|
|
|
|
function calc_rms()
|
|
zadc_rms=math.floor(zadc_sum/znb_mes)
|
|
if zadc_rms<=8 then zadc_rms=0 end
|
|
zadc_offset=math.floor(zadc_offset_sum/znb_mes)
|
|
zpower=math.floor(zadc_rms*zpow_cal/zadc_cal)
|
|
if verbose then print(zadc_min,zadc_max,zadc_max-zadc_min,zadc_offset,zadc_rms,zpower.."W") end
|
|
zadc_min=zadc_offset zadc_max=zadc_offset
|
|
zadc_sum=0 zadc_offset_sum=0 znb_mes=0
|
|
zadc_min=zadc_offset zadc_max=zadc_offset
|
|
end
|