71 lines
3.6 KiB
PowerShell
71 lines
3.6 KiB
PowerShell
[Console]::OutputEncoding = [Text.Encoding]::UTF8
|
|
$ErrorActionPreference = "Stop"
|
|
function H2B($hex) {
|
|
if (-not $hex) { return $null }
|
|
$n = $hex.Length / 2
|
|
$b = New-Object byte[] $n
|
|
for ($i = 0; $i -lt $n; $i++) { $b[$i] = [Convert]::ToByte($hex.Substring(2*$i, 2), 16) }
|
|
return $b
|
|
}
|
|
$lines = [IO.File]::ReadAllLines("$env:TEMP\opencode\ss123.tsv")
|
|
$dmx = New-Object System.Collections.ArrayList
|
|
foreach ($l in $lines) {
|
|
$p = $l -split "`t"; if ($p.Count -lt 5 -or -not $p[4]) { continue }
|
|
if ($p[1] -ne "192.168.123.113" -or $p[2] -ne "192.168.123.1") { continue }
|
|
$b = H2B $p[4]; if ($b.Length -ne 1084) { continue }
|
|
if ([int]$b[4] -ne 4) { continue }
|
|
if (-not ($b[0x20] -eq 1 -and $b[0x21] -eq 1)) { continue }
|
|
[void]$dmx.Add(@{ t=[double]$p[0]; b=$b })
|
|
}
|
|
Write-Host ("DMX-A 帧数: {0}" -f $dmx.Count)
|
|
if ($dmx.Count -eq 0) { exit }
|
|
|
|
# --- 1. 头部逐字节变化分析 (0x00-0x3B): 常量 or 变量 ---
|
|
Write-Host "`n=== 头部 0x00-0x3B 逐字节分析 ==="
|
|
$first = $dmx[0].b
|
|
for ($off = 0; $off -lt 0x3C; $off++) {
|
|
$min = 255; $max = 0; $diff = 0
|
|
foreach ($f in $dmx) { $v = [int]$f.b[$off]; if ($v -lt $min) { $min = $v }; if ($v -gt $max) { $max = $v }; if ($v -ne [int]$first[$off]) { $diff++ } }
|
|
if ($diff -gt 0) {
|
|
Write-Host (" 0x{0:x2}: 变量 首值={1:x2} min={2:x2} max={3:x2} 变化帧数={4}" -f $off, $first[$off], $min, $max, $diff)
|
|
}
|
|
}
|
|
Write-Host " (未列出 = 全部帧常量)"
|
|
Write-Host "`n=== 常量头 hex (首帧 0x00-0x3B) ==="
|
|
Write-Host (" " + (($first[0..0x3B] | ForEach-Object { $_.ToString("x2") }) -join " "))
|
|
|
|
# --- 2. 变化字段的语义: 找 16/32 位递增计数器 ---
|
|
Write-Host "`n=== 疑似序号字段 (按 LE u16/u32 检验单调性) ==="
|
|
foreach ($off in @(0x22, 0x24, 0x26, 0x28, 0x2A, 0x2C, 0x2E, 0x30, 0x32, 0x34, 0x36, 0x38, 0x3A)) {
|
|
$vals = $dmx | ForEach-Object { [int]$_.b[$off] + [int]$_.b[$off+1]*256 }
|
|
$inc = 0; $dec = 0
|
|
for ($i = 1; $i -lt $vals.Count; $i++) { if ($vals[$i] -gt $vals[$i-1]) { $inc++ } elseif ($vals[$i] -lt $vals[$i-1]) { $dec++ } }
|
|
if ($inc -gt $vals.Count * 0.8 -or $dec -gt $vals.Count * 0.8) {
|
|
Write-Host (" u16@0x{0:x2}: 首={1} 尾={2} 增={3} 减={4}" -f $off, $vals[0], $vals[-1], $inc, $dec)
|
|
}
|
|
}
|
|
|
|
# --- 3. 通道数据区 0x3C-0x43B (1024B): 非零分布 ---
|
|
Write-Host "`n=== 通道数据区非零统计 (0x3C 起 1024B) ==="
|
|
$nz = @{}
|
|
foreach ($f in $dmx) {
|
|
for ($i = 0x3C; $i -lt 0x43C; $i++) { if ($f.b[$i] -ne 0) { $rel = $i - 0x3C; if (-not $nz.ContainsKey($rel)) { $nz[$rel] = 0 }; $nz[$rel]++ } }
|
|
}
|
|
$nzKeys = $nz.Keys | Sort-Object
|
|
Write-Host (" 非零字节位置数: {0}" -f $nzKeys.Count)
|
|
if ($nzKeys.Count -gt 0) {
|
|
Write-Host (" 最小相对偏移: {0} (CH{1}) 最大相对偏移: {2} (CH{3})" -f $nzKeys[0], ($nzKeys[0]+1), $nzKeys[-1], ($nzKeys[-1]+1))
|
|
$ranges = @(); $rs = $nzKeys[0]; $rp = $nzKeys[0]
|
|
foreach ($k in $nzKeys) { if ($k -gt $rp + 1) { $ranges += "$rs-$rp"; $rs = $k }; $rp = $k }
|
|
$ranges += "$rs-$rp"
|
|
Write-Host (" 连续非零区间 (相对0x3C): " + ($ranges -join ", "))
|
|
}
|
|
# 首帧前 32 通道值
|
|
Write-Host (" 首帧 CH1-32: " + (($first[0x3C..0x5B] | ForEach-Object { $_.ToString("x2") }) -join " "))
|
|
|
|
# --- 4. 速率与时间隔 ---
|
|
$tg = New-Object System.Collections.ArrayList
|
|
for ($i = 1; $i -lt $dmx.Count; $i++) { [void]$tg.Add([int](($dmx[$i].t - $dmx[$i-1].t) * 1000)) }
|
|
$tgs = $tg | Sort-Object
|
|
Write-Host ("`n=== 帧间隔ms: min={0} p50={1} p90={2} max={3} 率={4:N1}/s ===" -f $tgs[0], $tgs[[int]($tgs.Count/2)], $tgs[[int]($tgs.Count*0.9)], $tgs[-1], ($dmx.Count / ($dmx[-1].t - $dmx[0].t)))
|