一、数据准备与预处理
1. 数据获取与格式转换
% 读取原始海浪数据（示例：时间-波高数据）
data = readtable('wave_data.txt', 'Delimiter', '\t');
t = data.Time; % 时间向量
eta = data.Height; % 波高向量% 数据预处理
eta_clean = detrend(eta); % 去除趋势项
eta_detrend = eta_clean - mean(eta_clean); % 去均值
2. 采样率与频率轴设置
fs = 10; % 采样频率 (Hz)
N = length(eta_detrend); % 数据长度
dt = 1/fs; % 采样间隔
f = (0:N/2)/N*fs; % 频率轴
二、频谱估计方法实现
1. FFT快速谱估计
% 计算FFT
Y = fft(eta_detrend);
P2 = abs(Y/N); % 双边谱
P1 = P2(1:N/2+1); % 单边谱
P1(2:end-1) = 2*P1(2:end-1);% 绘制FFT谱图
figure;
plot(f, 10*log10(P1));
xlabel('频率 (Hz)');
ylabel('功率谱密度 (dB/Hz)');
title('FFT功率谱估计');
grid on;
2. Welch方法改进
nfft = 1024; % FFT点数
noverlap = 512; % 重叠点数
window = hamming(nfft); % 汉明窗[pxx,f] = pwelch(eta_detrend, window, noverlap, nfft, fs);
figure;
plot(f, 10*log10(pxx));
xlabel('频率 (Hz)');
ylabel('功率谱密度 (dB/Hz)');
title('Welch功率谱估计');
3. 自相关函数法
% 计算自相关函数
max_lag = floor(N/2);
R = xcorr(eta_detrend, max_lag, 'biased');% 傅里叶变换得到谱
L = length(R);
S = fft(R, nfft);
f = (0:nfft-1)/N*fs;% 绘制自相关谱
figure;
plot(f(1:N/2), 10*log10(abs(S(1:N/2))));
xlabel('频率 (Hz)');
ylabel('功率谱密度 (dB/Hz)');
title('自相关函数法谱估计');
三、方向谱分析
1. 二维FFT实现
% 生成模拟海浪数据（二维）
[X,Y] = meshgrid(linspace(-5,5,128), linspace(-5,5,128));
kx = 2*pi*(0:size(X,1)-1)/128;
ky = 2*pi*(0:size(X,2)-1)/128;% 生成JONSWAP谱
S = jonswap_spectrum(kx, ky, 15, 0.1, 3.3);% 逆FFT生成波面
eta = real(fftshift(fft2(ifftshift(S))));% 计算方向谱
[~,~,~,Sx] = spectrogram(eta(:), hamming(256), 128, 512, fs);
2. 方向玫瑰图绘制
% 方向能量分布
theta = linspace(0, 2*pi, 360);
energy = histcounts(atan2(Y(:),X(:)), theta);% 绘制方向玫瑰图
figure;
polarplot(theta, energy);
title('海浪方向玫瑰图');
四、理论模型对比
1. Pierson-Moskowitz谱
function S = pm_spectrum(f, U10)g = 9.81;A = 8.1e-3 * g^2;B = 0.74 * (U10 ./ f).^4;S = (A ./ f.^5) .* exp(-B ./ f.^4);
end% 参数设置
U10 = 12; % 10米高度风速
f = 0.01:0.01:1;
S_pm = pm_spectrum(f, U10);% 绘制对比图
figure;
semilogy(f, S_pm);
hold on;
plot(f, 10*log10(pxx));
xlabel('频率 (Hz)');
ylabel('功率谱密度 (dB/Hz)');
legend('PM理论谱', '实测谱');
2. JONSWAP谱
function S = jonswap_spectrum(f, fp, gamma, U10)g = 9.81;alpha = 0.0081 * (U10^2 / (g * fp))^2;sigma = 0.07 * (f <= fp) + 0.09 * (f > fp);exp_term = exp(-5/4 * (f/fp).^(-4) .* (f - fp).^2 ./ (2*sigma^2*fp^2));S = alpha * g^2 ./ ( (2*pi)^4 * f^5 ) .* exp(-5/4 * (f/fp).^4) .* gamma^exp_term;
end% 参数设置
fp = 0.8; gamma = 3.3;
S_jonswap = jonswap_spectrum(f, fp, gamma, U10);% 绘制对比
figure;
plot(f, 10*log10(S_jonswap));
hold on;
plot(f, 10*log10(pxx));
xlabel('频率 (Hz)');
ylabel('功率谱密度 (dB/Hz)');
legend('JONSWAP理论谱', '实测谱');
五、关键参数优化
| 参数 | 推荐值 | 作用说明 |
|---|---|---|
| 窗函数 | Hamming | 减少频谱泄漏 |
| 重叠率 | 50% | 平衡计算效率与估计精度 |
| FFT点数 | 1024 | 保证频率分辨率≥0.01Hz |
| 带宽参数 | 1.5 | 控制谱峰尖锐度 |
参考代码 对海浪数据处理得到海浪谱 www.youwenfan.com/contentcnl/77769.html
六、工程应用案例
1. 波浪能发电优化
% 谱峰频率识别
[~,peak_idx] = max(10*log10(pxx));
peak_freq = f(peak_idx);% 能量计算
total_energy = sum(10.^(0.1*pxx(:)));
peak_energy = 10^(0.1*pxx(peak_idx)) * (f(2)-f(1));
2. 海洋灾害预警
% 谱熵计算
entropy = -sum( (10.^(0.1*pxx/10)) .* log(10.^(0.1*pxx/10)+eps) );% 危险阈值判断
if entropy < 4.5disp('警告：出现异常低熵谱，可能发生极端海浪！');
end
七、可视化增强
1. 三维谱图
[X,Y] = meshgrid(f,f);
Z = pxx'*pxx;figure;
surf(X,Y,Z);
shading interp;
xlabel('频率 (Hz)');
ylabel('频率 (Hz)');
zlabel('能量密度');
title('二维能量谱分布');
2. 动态谱显示
h = animatedline('Color',[0.2 0.7 0.3]);
axis([0 1 0 50]);
for i = 1:length(f)addpoints(h, f(i), 10*log10(pxx(i)));drawnow;
end
八、完整工程模板
%% 主程序
function wave_spectrum_analysis()% 数据加载data = load('wave_data.mat'); % 包含t和eta字段% 预处理eta_clean = preprocess(data.eta);% 谱估计[pxx,f] = welch_spectrum(eta_clean);% 理论模型对比U10 = 12;plot_theoretical_spectrum(U10, f);% 结果输出save('spectrum_result.mat', 'pxx', 'f');
end%% 预处理函数
function eta_clean = preprocess(eta)eta_clean = detrend(eta);eta_clean = medfilt1(eta_clean, 5); % 中值滤波去噪
end%% Welch谱估计
function [pxx,f] = welch_spectrum(data)nfft = 2048;window = hamming(512);noverlap = 256;[pxx,f] = pwelch(data, window, noverlap, nfft, 10);
end%% 理论谱绘制
function plot_theoretical_spectrum(U10, f)S_pm = pm_spectrum(f, U10);S_jonswap = jonswap_spectrum(f, 0.8, 3.3, U10);figure;hold on;plot(f, 10*log10(S_pm), 'r--', 'LineWidth',1.5);plot(f, 10*log10(S_jonswap), 'b-.', 'LineWidth',1.5);plot(f, 10*log10(pxx), 'k-', 'LineWidth',2);legend('PM谱', 'JONSWAP谱', '实测谱');xlabel('频率 (Hz)');ylabel('功率谱密度 (dB/Hz)');grid on;
end
九、调试与验证
-
数据验证
使用
xcorr函数验证信号平稳性：[c,lags] = xcorr(eta_detrend); figure; plot(lags, c); title('自相关函数验证'); -
噪声测试
添加高斯噪声测试算法鲁棒性：
noisy_eta = eta_detrend + 0.5*randn(size(eta_detrend)); [pxx_noise,f] = pwelch(noisy_eta);