编写一段200个子载波，ifft为512点的载波频率在800M的ofdm产生的matlab程序

以下是一个简单的200个子载波，ifft为512点的OFDM信号的MATLAB程序：

% OFDM参数
N = 200; % 子载波数目
cp_len = 64; % 循环前缀长度
fs = 1e6; % 采样率
fc = 800e6; % 载波频率
T = 1/fs; % 采样时间
Ts = N*T; % OFDM符号时间
T_cp = cp_len*T; % 循环前缀时间
f = (0:N-1)*fs/N; % 子载波频率
t = (0:N-1)*T; % 子载波时间
t_cp = (N-cp_len:N-1)*T; % 循环前缀时间

% 生成随机数据
data = randi([0 1], 1, N);

% 将0/1映射到BPSK调制的符号
data_mod = 2*data - 1;

% 将数据进行IFFT变换
data_ifft = ifft(data_mod, 512);

% 添加循环前缀
data_cp = [data_ifft(end-cp_len+1:end) data_ifft];

% 将OFDM符号变为基带信号
baseband = real(exp(1j*2*pi*fc*t).*data_cp);

% 绘制OFDM信号频谱
figure;
plot(f/1e6, 20*log10(abs(fftshift(fft(baseband)))));
xlabel('频率（MHz）');
ylabel('幅度（dB）');
title('OFDM信号频谱');

这个程序将生成200个子载波，每个子载波的采样时间为1微秒，采样率为1兆赫兹，载波频率为800兆赫兹。程序随机生成一个长度为N的数据序列，将其BPSK调制后进行IFFT变换，然后添加循环前缀，最后将OFDM符号变为基带信号。程序还绘制了OFDM信号的频谱。