矩阵维度必须一致。 出错 Untitled5>QPSK_BER (line 39) y = y + sigma * (randn(1,L+k-1) + 1j*randn(1,L+k-1))/sqrt(2); 出错 Untitled5 (line 10) BER(i) = QPSK_BER(N, EbN0dB(i));

这个错误通常是由于矩阵维度不一致导致的。根据您提供的错误信息，这个错误可能是由于信道输出y和加入的噪声sigma矩阵维度不一致导致的。

在程序中，信道输出y的长度应该是L+k-1，而加入的噪声sigma的长度应该是L+k-1或L+k。如果两者长度不一致，就会导致矩阵加法出现维度不一致的错误。

您可以尝试将代码中的randn(1,L+k-1)和randn(1,L+k-1)改为randn(L+k-1,1)和randn(L+k-1,1)，这样生成的噪声矩阵长度就为L+k-1，与信道输出y的长度一致。修改后的代码如下：

%% QPSK误码率曲线绘制程序示例

% 清空工作区和命令窗口
clc; clear;

% 定义QPSK调制解调程序，得到误码率数据
N = 10^6;                   % 发送比特数
EbN0dB = 0:2:12;            % 信噪比范围
BER = zeros(size(EbN0dB));  % 初始化误码率数组
for i = 1:length(EbN0dB)
    % 调用QPSK调制解调程序，计算误码率
    BER(i) = QPSK_BER(N, EbN0dB(i));
end

% 绘制误码率曲线
figure;
semilogy(EbN0dB, BER, '-o');
xlabel('Eb/N0(dB)');
ylabel('BER');
title('QPSK系统误码率曲线');

% QPSK调制解调函数示例
function BER = QPSK_BER(N, EbN0dB)
    % 参数设置
    M = 4;                  % QPSK调制阶数
    k = log2(M);            % 每个符号的比特数
    Es = 1;                 % 符号能量
    Eb = Es / k;            % 每个比特的能量
    L = 2;                  % 信道长度
    h = (randn(1,L)+1j*randn(1,L))/sqrt(2);  % 随机信道
    sigma = sqrt(Es / (2*k*10^(EbN0dB/10))); % 噪声方差
    errors = 0;             % 统计误码数
    % 循环发送和接收N个比特
    for i = 1:N/k
        % 随机生成一个QPSK符号
        data = randi([0,M-1],1,1);
        x = qammod(data, M, 'gray');
        % 使用信道模型发送信号
        y = conv(x, h);
        % 加入高斯白噪声
        y = y + sigma * (randn(L+k-1,1) + 1j*randn(L+k-1,1))/sqrt(2);
        % QPSK解调
        r = qamdemod(y(k/2+1:end-k/2), M, 'gray');
        % 计算误码率
        errors = errors + sum(r~=data);
    end
    BER = errors / N;       % 计算误码率
end

这个修改后的程序中，randn(1,L+k-1)和randn(1,L+k-1)被修改为randn(L+k-1,1)和randn(L+k-1,1)，确保生成的噪声矩阵长度与信道输出y的长度一致。