Ajouté le projet mesure température pour Mario

Mesures/temp/mario/0_get_data.lua

@@ -0,0 +1,62 @@
+-- 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