Форум ZETLAB

Спасибо. Значит в файлах *.ana находится часовая информация данных?

Привожу текст программы

Код
Function HILBERT(ByRef X() As Single, ByVal TS As Double, ByVal WMIN As Double, ByVal WMAX As Double) As Single()
            Try
                Dim DEN() As Complex = {Nothing, COMPLEXUNITY()}
                Dim NUM(), Z() As Complex
                Dim WP(2) As Double
                Dim Y() As Single
                Dim I, N As Integer
                WP(1) = WMIN   ' Нижняя частота среза 
                WP(2) = WMAX   ' Верхняя частота среза 
                ' Нормировать к частоте Найквиста
                For I = 1 To 2
                    WP(I) = WP(I) * TS ' Конец полосы пропускания
                    Select Case WP(I)
                        Case Is <= 0
                            WP(I) = 0.01
                        Case Is > 0.499
                            WP(I) = 0.499
                    End Select
                Next I
                ' Синтез нерекурсивного полосового фильтра с использованием весовых окон
                NUM = Fir1(30, WP, Filtertype.BandPass)
                ' Фильтровать исходные данные
                Y = filtfilt(NUM, DEN, X)
                ' Вычислить преобразование Гильберта
                Z = Hilbert2(Y)
                ' Сформировать огибающую сигнала
                N = Z.GetUpperBound(0)
                ReDim Y(N)
                For I = 1 To N
                    Y(I) = CSng(Rho(Z(I)))
                Next I
                Return Y
            Catch E As Exception
                Throw New ArgumentException(E.Message)
            End Try
        End Function
        Function Hilbert2(ByVal X() As Single) As Complex()
            Try
                Dim J, K, M, N, NFFT As Integer
                N = X.GetUpperBound(0)
                Dim XSEG() As Complex = fft(X)
                NFFT = XSEG.GetUpperBound(0)
                Dim H(NFFT) As Integer
                K = CInt(2 * Fix(N * 0.5))
                If K = N Then
                    M = CInt(N * 0.5)
                    H(1) = 1
                    H(M + 1) = 1
                Else
                    M = CInt((N + 1) * 0.5)
                    H(1) = 1
                End If
                For J = 2 To M
                    H(J) = 2
                Next J
                For J = 1 To NFFT
                    XSEG(J) *= H(J)
                Next J
                XSEG = fft(XSEG, IFFT:=True)
                ReDim Preserve XSEG(N)
                Return XSEG
            Catch E As Exception
                Throw New ArgumentException(E.Message)
            End Try
        End Function

Нам необходимо определить частотные характеристики системы при возвратно-поступательном движении так, если бы это было поступательным движением с сохранением характера фрикционных автоколебаний при прямом и обратном движении. Подскажите, пожалуйста, возможно применение преобразования Гильберта для расчёта огибающей такого сигнала? На рисунке представлены результаты измерений и расчёта огибающей Гильберта после фильтрации полосовым пропускающим фильтром в диапазоне частот 0,1 ... 650 Гц (частота дискретизации 1250 Гц). На рисунке (https://yadi.sk/i/CqVtMRm45-9mDA) видно, что характер огибающей неверно отражает характер измеренных данных в диапазоне значений 90...130 Н и -90...-150 Н. Вы не подскажите, как разработать алгоритм преобразования.

А как это можно реализовать напрямую, без использования программы «Просмотр трендов», например в VBA для чтения файлов *.zlbd. Кроме того, программа «Просмотр трендов» не находит файлов *.zlbd, а файлы *.ana ничего, кроме нулей, не содержат.

Скажите, пожалуйста, как можно читать в EXCEL, MATLAB блоки данных объёмом, например в 1...10 секунд?

Здравствуйте! Подскажите, пожалуйста, как реализовать в виде макроса чтение сжатых файлов в Excel (MATLAB) или другую программу анализа или преобразование форматов данных *.zdt ; *.zlbd ==> *.ana??? Как формируются данных по папкам? (Почему данные в разных папках и, в основном в них записаны &00H ?) signal\structures_definitions\*.zbinary1 signal\2020\04\17\16\*.zlbd compressed\2020\04\*.01d compressed\2020\04\*.01h compressed\2020\04\*.01m compressed\2020\04\*.01s compressed\2020\04\*.06h compressed\2020\04\*.10m compressed\2020\04\*.10s compressed\2020\04\*.anp compressed\2020\04\*_01d.zlbd compressed\2020\04\*_01h.zlbd compressed\2020\04\*_01m.zlbd и т.д. информация: https://zetlab.com/podderzhka/tsifrovyie-datchiki-semeystva-zetsensor/programmirovanie/format-zdt-dlya-zapisi-i-peredachi-dannyih/ Как её применить на практике?

Здравствуйте, Катя! Проблема состоит в том, что Windows 10 не распознаёт устройство в сети ZET7160. Пробовал советы из Internet по настройке Ethernet (сброс настроек, частная и общественная сеть и т.д.), однако ничего не помогло. С настройками сети доигрался до того, что сеть Ethernet вообще выключил. Дважды переустанавливал Windows. И снова сеть не определяется - пишет: "Неопознанная сеть". Во всех случаях Диспетчер устройств ZetLAB не видит ZET7160. Однако модуль "Подключение к Ethenet" сообщает, что устройство найдено, высвечивается жёлтый индикатор, потом - красный, выводит сообщение "Подключения нет". Список устройств - пустой. Может это быть связано с антивирусом ESET NOD Internet Security? Ещё один вопрос: IP адреса 192.168.0.1 и 192.168.1.1 у меня задействованы под WIFI роутер и маршрутизатор, а адреса 192.168.1.ХХХ - под компьютеры в моей локальной домашней сети. Поэтому как узнать IP адрес устройства ZET7160 ???

Здравствуйте, Катя! Дело в том, что по умолчанию (автоматической настройки IP адреса) устройство 7176 получает адрес 169.254.148.57, а компьютер распознаёт его как неопознанную частную сеть. В то же время у меня подключён WIFI по адресу 192.168.1.1. Адрес моего ПК - 192.168.1.68 с автоматической адресацией. В свойствах соединения изменяю на статичный адрес - тогда сеть WIFI распознаёт его как неопознанную сеть. В этом случае возвращаю моему ПК автоматическую настройку сети, адрес моего ПК возвращается на 192.168.1.68. Во всех проведенных манипуляциях устройство 7176 никак не откликается. Спасибо.

Здравствуйте, не могу инициализировать модули ZET. Программа подключения устройств по Ethernet опрашивает установленный адрес 192.168.2.10, находит модуль, загорается жёлтый информатор, однако через 2 секунды переключается на красный информатор и выводит сообщение о том, что нет подключения. В интернете имеются сведения о том, как поступать, когда в центре управления сетями и общего доступа высвечивается надпись: без доступа. Пробовал менять настройки. Ничего не помогло. Подскажите, пожалуйста, где искать подвох?