1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
| # example usage:
# .\MT-LocalApi-Example -DeviceIP 192.168.20.82 -RemotePort 30000 -LocalPort 30000 -PerCallTimeoutMs 2000 -MaxRetries 3
param(
##constanten
[string]$DeviceIP = "192.168.178.234",
[string]$tijdstempel_str = (Get-Date).ToString("yyyy-MM-dd HH:mm:ss"),
[string]$bijladen_gedurende_huidig_contract = "N",
[int]$RemotePort = 30000,
[int]$LocalPort = $RemotePort,
[int]$PerCallTimeoutMs = 5000,
[int]$MaxRetries = 3,
[int]$InterCallDelayMs = 1000,
[int]$BijlaadRekenhoeveelheidPerUur_VM_int = 250,
[int]$BijlaadRekenhoeveelheidPerUur_NM_int = 500,
[int]$capaciteit_batterij_int = 5120,
[int]$max_laadcapaciteit_int_int = 2500,
[double]$ACDCAComzettnigverlies_double = 0.75,
[double]$opslag_energieleverancier_double = 0.0233,
[double]$opslag_energiebelasting_double = 0.10154,
[double]$btw_perc_double = 0.21,
[double]$opslagbedragNetLaden_double = 0.03,
[double]$opp_pv_hoogdak_double = (9 + 6) * 1.5 * 1.05 ,
[double]$opp_pv_laagdak_double = ( 9) * 1.5 * 1.05 ,
[double]$opp_pv_tuinhuis_double = 4 * 1.7 * 1.05 ,
## op 19-sep-2025 in totaal opwek alle panelen 32kWh 45 m2 opp.bij voorspelde 4270 W/m2 = factor 0,166
## op 20-sep-2025 in totaal opwek alle panelen 14,3kWh 45 m2 opp bij voorspelde 3170 W/m2 = factor 0,10
## op 21-sep-2025 in totaal opwek alle panelen 10,9kWh 45 m2 opp bij voorspelde 1264 W/m2 = factor 0,19
[double]$ervaringscijfer_kWh_per_zonwaarde = 0.14, ## 32000/(($opp_pv_hoogdak_double + $opp_pv_laagdak_double + $opp_pv_tuinhuis_double)*4270)
##=========================================================================
[string]$modenieuw_str = "x",
[string]$modenu_str = "x",
[string]$modegezet_str = "N",
[string]$mode_Go_Passive_str = "N",
[int]$bat_soc_int = 999,
[int]$ongrid_power_int = 999,
[int]$huidigemaand_int = 999,
[int]$huidiguur_int = 999,
[int]$maxzoekuur_int = -10,
[int]$minzoekuur_int = 9999,
[int]$minuur_int = 888,
[int]$minnegatiefuur_int = 88,
[int]$maxuur_int = -10,
[int]$zoekuur_int = 9999,
[int]$socwaarde_stopladen_int = 9999,
[int]$zon_som_waarde_van_nu_tm_einde_dag_int = 9999,
[int]$zon_som_waarde_van_nu_tot_nabijste_maxuur_int = 9999,
[int]$uren_langer_maxuur_int = 0,
[int]$te_verwachten_PV_opbrengst_vanNu_totMaxuur_int = 9999,
[int]$benodigde_Energie_vanNu_tot_en_met_Maxuur_int = 9999,
[int]$BijlaadHoeveelheidPerUur_int = 9999,
[int]$Benodigde_Soc_voor_3_uur_int = 9999,
[double]$mintarief_double = 999,
[double]$minnegatieftarief_double = 999,
[double]$maxtarief_double = -10,
[double]$tariefuur_double = 99,
[double]$TariefBruto_double = 999,
[double]$brutotariefmaxuur_double = 999,
[double]$brutotariefhuidiguur_omgerekend_verlies_double = 999,
[double]$brutotariefmaxuur_plus_1_double = 999,
[double]$brutotariefmaxuur_plus_2_double = 999,
[double]$gemiddeld_brutotarief_additionele_bijlaaduren_double = 999,
[double]$nettohuidigtarief_double = 999
)
Add-Type -AssemblyName System.Net # ,System.Net.Sockets
# Create socket, enable reuse, bind to LocalPort (so source port is fixed)
$udp = New-Object System.Net.Sockets.UdpClient
$udp.Client.SetSocketOption([System.Net.Sockets.SocketOptionLevel]::Socket, [System.Net.Sockets.SocketOptionName]::ReuseAddress, $true)
$udp.Client.ExclusiveAddressUse = $false
$udp.Client.Bind([System.Net.IPEndPoint]::new([System.Net.IPAddress]::Any, $LocalPort))
$udp.Client.ReceiveTimeout = 1000
##===============================================================================================
function Bepaal_ZonWattage_van_tm_Uur ([int]$zon_vanaf_uur_int, [int]$zon_tm_uur_int) {
$ZonVandaag = [IO.File]::ReadAllText(".\zonvandaag.txt")
$ZonVandaag_obj = $ZonVandaag | ConvertFrom-Json
[int]$som_zon_waarden_int = 0
foreach ($Zon_obj in $ZonVandaag_obj) {
foreach ($Zon_uur_verw_obj in $Zon_obj[0].uur_verw) {
$dag = [datetime](Get-Date $Zon_uur_verw_obj[0].uur -f "yyyy-MM-dd HH:mm:ss")
$uur_int = [int]$dag.hour
if ($uur_int -ge $zon_vanaf_uur_int -and $uur_int -le $zon_tm_uur_int) {
$som_zon_waarden_int = $som_zon_waarden_int + $Zon_uur_verw_obj[0].gr
}
}
}
Return [double]$som_zon_waarden_int
}
##===============================================================================================
function Bepaal_Tarief_Op_Uur ([int]$vraaguur) {
$TarievenVandaag = [IO.File]::ReadAllText(".\dagtarief.txt")
$TarievenVandaag_obj = $TarievenVandaag | ConvertFrom-Json
foreach ($Tarief_obj in $TarievenVandaag_obj) {
$dag = [datetime](Get-Date $Tarief_obj[0].datum_nl -f "yyyy-MM-dd HH:mm:ss")
if (($vraaguur -eq $dag.Hour)) {
Return [double]$Tarief_obj[0].prijs_excl_belastingen
}
}
Return [double]99999
}
##===============================================================================================
function Bepaal_Gem_BrutoTarief_Van_Tm_Uur ([int]$vraaguur_van, [int]$vraaguur_tm) {
$TarievenVandaag = [IO.File]::ReadAllText(".\dagtarief.txt")
$TarievenVandaag_obj = $TarievenVandaag | ConvertFrom-Json
[double]$som_bedrag_double = 0
[int]$aantal_bedrag_int = 0
$TariefBruto_double = 0
foreach ($Tarief_obj in $TarievenVandaag_obj) {
$dag = [datetime](Get-Date $Tarief_obj[0].datum_nl -f "yyyy-MM-dd HH:mm:ss")
if (($dag.Hour -ge $vraaguur_van) -and ($dag.Hour -le $vraaguur_tm)) {
$TariefBruto_double = [double]($Tarief_obj[0].prijs_excl_belastingen)
$TariefBruto_double = [double]($TariefBruto_double + $opslag_energieleverancier_double + $opslag_energiebelasting_double)
$TariefBruto_double = [double]($TariefBruto_double * [double](1 + $btw_perc_double))
$som_bedrag_double = [double]($som_bedrag_double + $TariefBruto_double)
$aantal_bedrag_int = $aantal_bedrag_int + 1
}
}
$TariefBruto_double = $som_bedrag_double / $aantal_bedrag_int
Return $TariefBruto_double
}
##===============================================================================================
function Send-And-Wait([string]$Method, [hashtable]$Params) {
[string]$modenu = "dummywaarde-modenu"
[string]$bat_soc_str = "dummywaarde-soc"
[string]$ongrid_power_str = "dummywaarde-power"
for($try=1; $try -le $MaxRetries; $try++){
$rpcId = Get-Random -Minimum 1000 -Maximum 65000 # JSON-RPC id (unique per try)
$req = @{ id=$rpcId; method=$Method; params=$Params } | ConvertTo-Json -Compress -Depth 6
$bytes = [Text.Encoding]::UTF8.GetBytes($req)
[void]$udp.Send($bytes, $bytes.Length, $DeviceIP, $RemotePort)
$deadline = [datetime]::UtcNow.AddMilliseconds($PerCallTimeoutMs * [math]::Pow(1.35, $try-1))
$remote = [System.Net.IPEndPoint]::new([System.Net.IPAddress]::Any,0)
while([datetime]::UtcNow -lt $deadline){
try {
$resp = $udp.Receive([ref]$remote)
$txt = [Text.Encoding]::UTF8.GetString($resp)
$obj = $txt | ConvertFrom-Json -ErrorAction SilentlyContinue
if($obj -and $obj.id -eq $rpcId){
if ($Method -eq "ES.GetMode") {
$modenu = $obj.result.mode
$bat_soc_str = $obj.result.bat_soc
$ongrid_power_str = $obj.result.ongrid_power
}
Start-Sleep -Milliseconds $InterCallDelayMs
return $Method, $modenu, $bat_soc_str, $ongrid_power_str
}
# ignore late/unrelated frames and keep waiting
} catch {
# slice timeout; keep looping until overall deadline
}
}
Start-Sleep -Milliseconds (100 + (Get-Random -Minimum 0 -Maximum 80))
}
Write-Host ("<= [--] {0} -- timeout after {1} ms x{2}`n" -f $Method,$PerCallTimeoutMs,$MaxRetries)
Write-Output ("<= [--] $Method --timeout after $PerCallTimeoutMs ms x $MaxRetries retries") >> .\avzetMODEdynamischOutput.txt
Start-Sleep -Milliseconds $InterCallDelayMs
}
##===============================================================================================
##HOOFDPROGRAMMA
## Globale logica flow:
## -1- warm batterij api op door een dummy call (getdevice) te doen
## -2- bepaal huidige mode, huidige soc en huidige power
## -3- afhankelijk van of het huidige uur voormiddag of namiddag is bepaal in die 12 uur het moment van het vroegste uur met het hoogste tarief in die 12 uur
## beginnend vanaf het nu t/m 11 resp. nu t/m 23
## -4- afhankelijk van of het huidige uur voormiddag of namiddag is bepaal in die 12 uur het moment van het laatste uur met het laagste tarief in die 12 uur
## beginnend vanaf nu t/m 11 resp. nu t/m 23 tot maximaal het uur waarin het maximum tarief wordt bereikt in dat 12 uurs-bestek
## -5- bepaal het laagste tariefuur van de gehele dag (t.b.v. eventueel latere sturing op negatieve tarieven
## -6- bepaal of het financieel aantrekkelijk is om de batterij-Soc hoger te laden zodat hij 1 of 2 uur langer dan het max-uur nog stroom heeft.
## -7- bepalen te verwachten PV-opbrengst op basis zonne-wattage de komende uren en het benodigde wattage om
## vanaf nu tot en met het max-uur te geraken(eventueel verlengt met 1 of 2 extra uren als dat financieel aantrekkelijk is)
## -6- bepaal tot welke soc waarde minimaal geladen moet worden wanneer er besloten is in dit programma dat de batterij geladen wordt
## namiddags wordt dit 98%, zodat je zo ver mogelijk de nacht in kunt komen;
## voormiddags wordt dit % berekend zodanig dat de batterij op basis van $BijlaadRekenhoeveelheidPerUur Watt leveren tot 2 uur na het voormiddag-maximumtarief nog kan ontladen
## -7- afhankelijk van voormiddag of namiddag inschatten wat de soc-waarde zou moeten zijn om over het dichts-bijzijnde maximum-tarief heen te geraken vanaf uur nu rekening
## rekening houdend met het geschatte uurverbruik tot max-uur (of maxuur + 1 of 2 uur)
## -8- wanneer er op basis van de huidige soc en te verwachten PV-opbrengst geen energietekort te verwachten is tot max-uur dan socwaarde-laden-int laag zetten zodat er niet wordt geladen
## -9- wanneer er energietekort is om over het max-uur heen te geraken nog bepalen of het huidig tarief (rekening houdend met RTE-verlies) financieel aantrekkelijk is om bij te laden
## waarbij het omgerekende huidige tarief wordt vergeleken met het gemiddelde-bruto-tarief van max-uur en de uren vooraf aan maxuur die qua soc aangevuld moeten worden.
##-10- bepaal of er geladen moet worden;
## a) Als op het huidige uur de gewenste soc lager is dan de huidige soc, dan maximaal bijladen gedurende dit kwartier totdat
## de stop-laad-waarde waarop hij weer naar Auto gaat wordt bereikt (tarief moet wel lonen t.o.v. omzetverlies plus een opslagbedrag)
## b) Als soc >= $socwaarde_stopladen_int en modus is niet Auto dan op Auto zetten; anders blijven doorladen en de modus niet veranderen.
## c) 1x per week op zondagnamiddag gedurende de wintermaanden (okt t/m feb) op goedkoopste uur tot 100% laden (als hij niet al 100% is)
## d) in de zomer als veel zon verwacht (misschien zelfs negatieve prijzen) dan tot dat (lage/negatieve) moment ontladen en op dat lage/negatieve uur vol laden
## e) in de zomer als veel zon is geladen met zonnestroom (misschien zelfs negatieve prijzen) dan bij erg hoge prijzen juist verkopen op die max-uren
## (kan alleen bij saldering omdat je na einde salderingsregeling de belastingen niet meer terug krijgt en dan die wel zou moeten betalen later op de dag als je weer stroom nodig hebt)
## f) in de ochtend wanneer het maxuur van die 12 uur nog moet komen kijken of je voldoende soc hebt om 1 uur over dat maxuur te geraken. Als het min-uur nog moet komen en dat ook financieel niet
## rendabel is kun je de batterij een tijd in passive zetten, zodat je in de ochtend toch nog genoeg over hebt voor het maxuur en het daarop volgende uur.
##
# Warm-up (often helps)
$resultaat = Send-And-Wait "Marstek.GetDevice" @{ ble_mac = "0" }
# Ophalen mode, soc en huidige power
$resultaat = Send-And-Wait "ES.GetMode" @{id=0}
if ($resultaat[0] -eq "ES.GetMode") {
$modenu_str = $resultaat[1]
$bat_soc_int = [int]$resultaat[2]
$ongrid_power_int = [int]$resultaat[3]
}
$huidigemaand_int = (Get-Date).Month
$huidiguur_int = (Get-Date).Hour
if ($huidiguur_int -gt 11) {
$maxzoekuur_int = 23
$minzoekuur_int = 12
$BijlaadHoeveelheidPerUur_int = $BijlaadRekenhoeveelheidPerUur_NM_int
}else{
$maxzoekuur_int = 11
$minzoekuur_int = 0
$BijlaadHoeveelheidPerUur_int = $BijlaadRekenhoeveelheidPerUur_VM_int
}
$TarievenVandaag = [IO.File]::ReadAllText(".\dagtarief.txt")
$TarievenVandaag_obj = $TarievenVandaag | ConvertFrom-Json ## -ErrorAction SilentlyContinue
## bepaal het vroegste max-tarief en bijbehorende max-uur (tussen 0-11 uur resp. 12-23 uur)
foreach ($Tarief_obj in $TarievenVandaag_obj) {
$dag = [datetime](Get-Date $Tarief_obj[0].datum_nl -f "yyyy-MM-dd HH:mm:ss")
if (($dag.Hour -le $maxzoekuur_int) -and ($dag.Hour -ge $minzoekuur_int)) {
if ([double]$Tarief_obj[0].prijs_excl_belastingen -gt $maxtarief_double) {
$maxtarief_double = [double]$Tarief_obj[0].prijs_excl_belastingen
$maxuur_int = $dag.Hour
}
}
}
## bepaal het laatste min-tarief en bijbehorende min-uur (tussen Nu-11 uur resp. Nu-23 uur en max-uur binnen dit nu-to-12 uurs-bestek)
$maxzoekuur_int = $maxuur_int
foreach ($Tarief_obj in $TarievenVandaag_obj) {
$dag = [datetime](Get-Date $Tarief_obj[0].datum_nl -f "yyyy-MM-dd HH:mm:ss")
if (($dag.Hour -le $maxzoekuur_int) -and ($dag.Hour -ge $huidiguur_int)) {
if ([double]$Tarief_obj[0].prijs_excl_belastingen -le $mintarief_double) {
$mintarief_double = [double]$Tarief_obj[0].prijs_excl_belastingen
$minuur_int = $dag.Hour
}
}
}
##Als het uur dat ligt vooraf aan het laatste minimum-tarief, dan kan het minimum-uur op dat voorliggende uur worden gezet, waardoor en meer tijd is om de batterij vol te krijgen
##mocht dat nodig zijn (omdat de soc onder de 50 ligt).
if ($minuur_int -ne 0 -and $minuur_int -ne 12 ) {
$tariefuur_double = Bepaal_Tarief_Op_Uur ($minuur_int - 1)
if (($tariefuur_double -eq $mintarief_double) -and ($bat_soc_int -lt 50)) {
$minuur_int = $minuur_int - 1
}
}
#zoek het laatste meest negatieve uur vanaf uur 0 tot einde dag
$maxzoekuur_int = 23
$minzoekuur_int = 0
foreach ($Tarief_obj in $TarievenVandaag_obj) {
$dag = [datetime](Get-Date $Tarief_obj[0].datum_nl -f "yyyy-MM-dd HH:mm:ss")
if (($dag.Hour -le $maxzoekuur_int) -and ($dag.Hour -ge $minzoekuur_int)) {
if ([double]$Tarief_obj[0].prijs_excl_belastingen -le $minnegatieftarief_double -and [double]$Tarief_obj[0].prijs_excl_belastingen -lt 0) {
$minnegatieftarief_double = [double]$Tarief_obj[0].prijs_excl_belastingen
$minnegatiefuur_int = $dag.Hour
}
}
}
##bepaal of het financieel aantrekkelijk is om de batterij-Soc hoger te laden zodat hij 1 of 2 uur langer dan het max-uur nog stroom heeft.
$brutotariefmaxuur_double = Bepaal_Gem_BrutoTarief_Van_Tm_Uur $maxuur_int $maxuur_int
$brutotariefhuidiguur_omgerekend_verlies_double = Bepaal_Gem_BrutoTarief_Van_Tm_Uur $huidiguur_int $huidiguur_int
$brutotariefhuidiguur_omgerekend_verlies_double = ($brutotariefhuidiguur_omgerekend_verlies_double / $ACDCAComzettnigverlies_double) + $opslagbedragNetLaden_double
$nettohuidigtarief_double = Bepaal_Tarief_Op_Uur($huidiguur_int)
if ($maxuur_int -ne 11 -and $maxuur_int -ne 23) {
$brutotariefmaxuur_plus_1_double = Bepaal_Gem_BrutoTarief_Van_Tm_Uur($maxuur_int + 1)($maxuur_int + 1)
if ($maxuur_int -ne 10 -and $maxuur_int -ne 22) {
$brutotariefmaxuur_plus_2_double = Bepaal_Gem_BrutoTarief_Van_Tm_Uur($maxuur_int + 2) ($maxuur_int + 2)
}
}
if ($brutotariefmaxuur_plus_1_double -gt $brutotariefhuidiguur_omgerekend_verlies_double) {
$uren_langer_maxuur_int = 1
if ($brutotariefmaxuur_plus_2_double -gt $brutotariefhuidiguur_omgerekend_verlies_double) {
$uren_langer_maxuur_int = 2
}
}
##bepalen te verwachten PV-opbrengst op basis zonne-wattage de komende uren en het benodigde wattage om
##vanaf nu tot en met het max-uur te geraken(eventueel verlengt met 1 of 2 extra uren als dat financieel aantrekkelijk is)
$zon_som_waarde_van_nu_tm_einde_dag_int = Bepaal_ZonWattage_van_tm_Uur $huidiguur_int 23
$zon_som_waarde_van_nu_tot_nabijste_maxuur_int = Bepaal_ZonWattage_van_tm_Uur $huidiguur_int ($maxuur_int - 1)
$te_verwachten_PV_opbrengst_vanNu_totMaxuur_int = [int]($ervaringscijfer_kWh_per_zonwaarde * $zon_som_waarde_van_nu_tot_nabijste_maxuur_int) * ($opp_pv_hoogdak_double + $opp_pv_laagdak_double + $opp_pv_tuinhuis_double)
$benodigde_Energie_vanNu_tot_en_met_Maxuur_int = [int]($maxuur_int - $huidiguur_int + $uren_langer_maxuur_int) * $BijlaadHoeveelheidPerUur_int
$energietekort_int = [int]($benodigde_Energie_vanNu_tot_en_met_Maxuur_int - $te_verwachten_PV_opbrengst_vanNu_totMaxuur_int - (($bat_soc_int - 11) / 100 * $capaciteit_batterij_int))
##afhankelijk van voormiddag of namiddag inschatten wat de soc-waarde zou moeten zijn om over het dichts-bijzijnde maximum-tarief heen te geraken vanaf uur nu
##rekening houdend met het geschatte uurverbruik tot max-uur (of maxuur + 1 of 2 uur)
$socwaarde_stopladen_int = (11 + ((($maxuur_int + $uren_langer_maxuur_int - $huidiguur_int) * $BijlaadHoeveelheidPerUur_int) / $capaciteit_batterij_int ) * 100)
$Benodigde_Soc_voor_3_uur_int = (15 + ((3 * $BijlaadHoeveelheidPerUur_int) / $capaciteit_batterij_int ) * 100)
if ($socwaarde_stopladen_int -gt 100) {
$socwaarde_stopladen_int = 100
}
##wanneer er op basis van de huidige soc en te verwachten PV-opbrengst geen energietekort te verwachten is tot max-uur dan socwaarde-laden-int laag zetten zodat er niet wordt geladen
if ($energietekort_int -lt 0) { ##als het energietekort negatief is (er is nog voldoende pv-opbrengst te verwachten incl. huidige staat bat) dan niet bijladen
$socwaarde_stopladen_int = 10
}else{
if ($huidiguur_int -lt $maxuur_int) {
##er is energietekort om over het max-uur heen te geraken; nu nog bepalen of het huidig tarief (rekening houdend met RTE-verlies) financieel aantrekkelijk is om bij te laden
$bijlaadSoc_int = $socwaarde_stopladen_int - $bat_soc_int
$bijlaadduur_int = [int][math]::ceiling(($bijlaadSoc_int / 100 * $capaciteit_batterij_int) / $max_laadcapaciteit_int_int)
$gemiddeld_brutotarief_additionele_bijlaaduren_double = Bepaal_Gem_BrutoTarief_Van_Tm_Uur ($maxuur_int - $bijlaadduur_int) ($maxuur_int)
if ($gemiddeld_brutotarief_additionele_bijlaaduren_double -le $brutotariefhuidiguur_omgerekend_verlies_double) { ## financieel niet aantrekkelijk om bij te laden dus socwaarde_stopladen_int laag zetten
$socwaarde_stopladen_int = 9
## het maxuur moet nog komen en er is een energietekort om alle tussenliggende uren tot maxuur te overbruggen en het is financieel niet interessant om bij te laden;
## Is het dan misschien mode passive nog een optie wanneer er voldoende soc is op basis van huidig geschat uurverbruik om het duurste uur en de 2 eromheen liggende uren
## nog met batterijstroom te voorzien?
if ($bat_soc_int -le $Benodigde_Soc_voor_3_uur_int) {
$mode_Go_Passive_str = "J"
}
}
}else{ ## in de namiddag is het maxuur reeds verstreken; dan kijken of er voldoende soc is om middels mode passive op basis van huidig geschat uurverbruik om
## het duurste uur en de 2 eromheen liggende uren nog met batterijstroom te voorzien?
if ($huidiguur_int -ge 12 -and $bat_soc_int -le $Benodigde_Soc_voor_3_uur_int) {
$mode_Go_Passive_str = "J"
}
}
}
Write-Host ("av9a: minuur {0}h/ mintar Eur.{1}/ maxuur {2}h/ maxtar Eur.{3}/ minnegatiefuur {4}h/ minnegatieftar Eur.{5}/ maand {6} mnd/ uur {7}h/ huidigtarief Eur.{8}/ maxbrutotar Eur.{9}" -f $minuur_int,$mintarief_double,$maxuur_int,$maxtarief_double, $minnegatiefuur_int, $minnegatieftarief_double, $huidigemaand_int, $huidiguur_int, $nettohuidigtarief_double, $brutotariefmaxuur_double)
Write-Host ("av9b: mode {0}/ soc {1}%/ soc-stop {2}%/ power {3}W/ kWh-need-tot-maxuur {4}W/ PV-tot-maxuur {5}W/ zonwaarde {6}W/m2/ zonwaarde-tot-max {7}W/m2/ Energietekort {8}W/ huidigtar-omgerekend Eur.{9}" -f $modenu_str,$bat_soc_int,$socwaarde_stopladen_int,$ongrid_power_int,$benodigde_Energie_vanNu_tot_en_met_Maxuur_int , $te_verwachten_PV_opbrengst_vanNu_totMaxuur_int, $zon_som_waarde_van_nu_tm_einde_dag_int, $zon_som_waarde_van_nu_tot_nabijste_maxuur_int, $energietekort_int, $brutotariefhuidiguur_omgerekend_verlies_double)
Write-Host ("av9c: uren-langer-max {0}h/ gem-brutotarief-addit-bijlaad Eur.{1}" -f $uren_langer_maxuur_int, $gemiddeld_brutotarief_additionele_bijlaaduren_double)
Write-Output ("--> Mode/Soc/Soc-Stop/Pow/Mnd/uur/kWh-need-tot-maxuur/PV-tot-maxuur/huidigtarief`t$modenu_str`t/$bat_soc_int %`t/$socwaarde_stopladen_int %`t/$ongrid_power_int W`t/$huidigemaand_int mnd`t/$huidiguur_int h`t/$benodigde_Energie_vanNu_tot_en_met_Maxuur_int W`t/$te_verwachten_PV_opbrengst_vanNu_totMaxuur_int W`t/Eur. $nettohuidigtarief_double") >> .\avzetMODEdynamischOutput.txt
Write-Output ("--> Min/Max/Zon/Zon-tot-maxuur/Energietekort/Minnegatief`t`t`t`t`t`t`t$minuur_int h `t/Eur. $mintarief_double`t/$maxuur_int h`t/Eur. $maxtarief_double`t/$zon_som_waarde_van_nu_tm_einde_dag_int W/m2`t/$zon_som_waarde_van_nu_tot_nabijste_maxuur_int W/m2`t/$energietekort_int W`t/$minnegatiefuur_int h`t/Eur. $minnegatieftarief_double ") >> .\avzetMODEdynamischOutput.txt
Write-Output ("--> Uren-langer-Max/gem-brutotarief-addit-bijlaad/huidigtar-omgerekend/maxbrutotar`t$uren_langer_maxuur_int h`t`t/Eur. $gemiddeld_brutotarief_additionele_bijlaaduren_double`t/Eur. $brutotariefhuidiguur_omgerekend_verlies_double`t/Eur. $brutotariefmaxuur_double") >> .\avzetMODEdynamischOutput.txt
##
## Bepalen of er van mode gewisseld moet worden. No-brainer use-cases het eerst geimplementeerd:
## vanaf hier zijn bekend: $modenu_str, $bat_soc_int, $socwaarde_stopladen_int, $ongrid_power_int, $huidigemaand_int, $huidiguur_int,
## $minnegatieftarief_double, $minnegatiefuur_int, $maxtarief_double, $maxuur_int, $minuur_int, $mintarief_double
## $te_verwachten_PV_opbrengst_vanNu_totMaxuur_int, $zon_som_waarde_van_nu_tm_einde_dag_int, $zon_som_waarde_van_nu_tot_nabijste_maxuur_int,
## No-brainer-a: Als het uur van maximaal tarief nog moet komen binnen 12 uur en er is nu een tarief dat bijladen aantrekkelijk maakt en bijladen is nodig om over max-tarief te geraken dan maximaal bijladen dit kwartier tot
## de stop-laad-waarde waarop hij weer naar Auto gaat; Verschil tussen de bruto prijzen op die uren moet de AC/DC/AC-omzetting compenseren plus omzetverliesopslag cent
if ($bat_soc_int -lt $socwaarde_stopladen_int) {
$modenieuw_str = "Manual laden $max_laadcapaciteit_int"
$modegezet_str = "J"
Write-Host ("Tijd: {0} Mode van: {1} --> {2}" -f $tijdstempel_str, $modenu_str, $modenieuw_str)
Write-Output ("Tijd: $tijdstempel_str Mode van $modenu_str --> $modenieuw_str") >> .\avzetMODEdynamischOutput.txt ##-Append
if ($bijladen_gedurende_huidig_contract -eq "J") {
$resultaat = Send-And-Wait "ES.SetMode" @{id=1; config = @{id=1; mode= "Manual"; manual_cfg= @{time_num=1;start_time="00:00";end_time="23:59";week_set=127;power=-2500;enable=1}}}
}
}
## No-brainer-c: 1x per week op zondagnamiddag gedurende de wintermaanden (okt t/m feb) op goedkoopste uur tot 100% laden (als hij niet al 100% is)
## Prijs is hierbij niet meer van toepassing
if (((get-date).DayOfWeek -eq "Sunday") -and
($huidigemaand_int -ge 10 -or $huidigemaand_int -le 2) -and
($modenu_str -ne "Manual") -and ($minuur_int -eq $huidiguur_int) -and ($bat_soc_int -lt 100) -and ($huidiguur_int -ge 12)) {
$socwaarde_stopladen_int = 100
$modenieuw_str = "Manual laden $max_laadcapaciteit_int (1xper week 100%)"
$modegezet_str = "J"
Write-Host ("Tijd: {0} Mode van: {1} --> {2}" -f $tijdstempel_str, $modenu_str, $modenieuw_str)
Write-Output ("Tijd: $tijdstempel_str Mode van $modenu_str --> $modenieuw_str") >> .\avzetMODEdynamischOutput.txt ##-Append
if ($bijladen_gedurende_huidig_contract -eq "J") {
$resultaat = Send-And-Wait "ES.SetMode" @{id=1; config = @{id=1; mode= "Manual"; manual_cfg= @{time_num=1;start_time="00:00";end_time="23:59";week_set=127;power=-2500;enable=1}}}
}
}
## No-Brainer-d: in de zomer als veel zon wordt verwacht (misschien zelfs negatieve prijzen) dan tot dat (lage/negatieve) moment ontladen en op dat lage/negatieve uur vol laden
## nog te implementeren TODO
## No-Brainer-e: in de zomer als veel zon is geladen met zonnestroom (misschien zelfs negatieve prijzen) dan bij erg hoge prijzen juist verkopen op die max-uren.
## nog te implementeren TODO
## No-Brainer-f: indien mode_Go_Passive_str = J dan naar mode passive switchen.
if ($mode_Go_Passive_str -eq "J") {
$modenieuw_str = "Passive"
$modegezet_str = "J"
Write-Host ("Tijd: {0} Mode van: {1} --> {2}" -f $tijdstempel_str, $modenu_str, $modenieuw_str)
Write-Output ("Tijd: $tijdstempel_str Mode van $modenu_str --> $modenieuw_str") >> .\avzetMODEdynamischOutput.txt
if ($bijladen_gedurende_huidig_contract -eq "J") {
$resultaat = Send-And-Wait "ES.SetMode" @{id=1; config = @{id=1; mode= "Passive"; passive_cfg= @{power=100;cd_time=3}}}
}
}
## No-brainer-b: Als soc >= $socwaarde_stopladen_int en modus is niet Auto dan op Auto zetten
if (($modenu_str -ne "Auto") -and ($bat_soc_int -ge $socwaarde_stopladen_int)) {
$modenieuw_str = "Auto"
$modegezet_str = "J"
Write-Host ("Tijd: {0} Mode van: {1} --> {2}" -f $tijdstempel_str, $modenu_str, $modenieuw_str)
Write-Output ("Tijd: $tijdstempel_str Mode van $modenu_str --> $modenieuw_str") >> .\avzetMODEdynamischOutput.txt ##-Append
$resultaat = Send-And-Wait "ES.SetMode" @{id=1; config = @{id=1; mode= "Auto"; auto_cfg= @{enable=1}}}
}
if ($modegezet_str -eq "N") {
$modenieuw_str = $modenu_str
Write-Host ("Tijd: {0} Mode niet gezet; blijft {1}" -f $tijdstempel_str, $modenu_str)
Write-Output ("Tijd: $tijdstempel_str Mode niet gezet; blijft $modenu_str") >> .\avzetMODEdynamischOutput.txt ##-Append
}
##===============================================================================================
# Optional: drain late packets
$remote = [System.Net.IPEndPoint]::new([System.Net.IPAddress]::Any,0)
$until = [datetime]::UtcNow.AddMilliseconds(5000)
while([datetime]::UtcNow -lt $until){
try {
$txt = [Text.Encoding]::UTF8.GetString($udp.Receive([ref]$remote))
Write-Host ("<= [late] {0}:{1}`n{2}`n" -f $remote.Address,$remote.Port,$txt)
Write-Output ("<= [late] $remote.Address : $remote.Port /$txt") >> .\avzetMODEdynamischOutput.txt
} catch {}
}
$udp.Close() |
/u/2261190/crop680cdce12753f_cropped.png?f=community)
:strip_exif()/f/image/idV5sHgV2a3BZSFd9HocSLeF.png?f=user_large)
:strip_icc():strip_exif()/u/192109/zonnebloem.jpg?f=community)
:strip_icc():strip_exif()/u/2087624/crop65f94e6abd3ee_cropped.jpg?f=community)