function?runsim（sim_options）

%examine?options
fr_length=sim_options.FrmLen;
Num=sim_options.NumberofPackets;
channel_model=sim_options.ChannelModel;
no_tx_antennas=sim_options.TxDiv;
no_rx_antennas=sim_options.RxDiv;
alpha=sim_options.corr_value;
channel_est=sim_options.Channel_Est;
modulation=sim_options.Modulation;

if?channel_est==0
????type=‘stbc_per‘;
else
????type=‘stbc_est‘;
end
if?alpha~=0?&?sim_options.Rx_corr==1
????type=‘stbc_cor‘;
end

%frame?length?=?130?symbols
fr_length=130;

%SNR?upto?20?dBs
EbNo=[0:2:20];

%N?M:?number?of?transmit?and?receive?antennas

N=no_tx_antennas;
M=no_rx_antennas;

%choose?type?of?stbc
switch?type?
????case?‘stbc_per‘
????????if?N==1?&?M==2
????????????[FER?FER_uncoded?SER?SER_uncoded?BER?BER_uncoded]=stbc12（channel_modelfr_lengthNumno_tx_antennasno_rx_antennasmodulation）
????????elseif?N==2?&?M==2
????????????[FER?FER_uncoded?SER?SER_uncoded?BER?BER_uncoded]=stbc22（channel_modelfr_lengthNumno_tx_antennasno_rx_antennasmodulation）
????????elseif?N==2?&?M==1
????????????[FER?FER_uncoded?SER?SER_uncoded?BER?BER_uncoded]=stbc21（channel_modelfr_lengthNumno_tx_antennasno_rx_antennasmodulation）
????????elseif?N==3?&?M==4
????????????[FER?FER_uncoded?SER?SER_uncoded?BER?BER_uncoded]=stbc34（channel_modelfr_lengthNumno_tx_antennasno_rx_antennasmodulation）
????????elseif?N==3?&?M==1
????????????[FER?FER_uncoded?SER?SER_uncoded?BER?BER_uncoded]=stbc31（channel_modelfr_lengthNumno_tx_antennasno_rx_antennasmodulation）
????????elseif?N==4?&?M==4
????????????[FER?FER_uncoded?SER?SER_uncoded?BER?BER_uncoded]=stbc44（channel_modelfr_lengthNumno_tx_antennasno_rx_antennasmodulation）
????????elseif?N==4?&?M==1
????????????[FER?FER_uncoded?SER?SER_uncoded?BER?BER_uncoded]=stbc41（channel_modelfr_lengthNumno_tx_antennasno_rx_antennasmodulation）
????????elseif?N==1?&?M==4
????????????[FER?FER_uncoded?SER?SER_uncoded?BER?BER_uncoded]=stbc14（channel_modelfr_lengthNumno_tx_antennasno_rx_antennasmodulation）
????????end
????case?‘stbc_est‘
????[FER?FER_uncoded?SER?SER_uncoded?BER?BER_uncoded]=stbc22_est（channel_modelfr_lengthNumno_tx_antennasno_rx_antennasmodulation）
????case?‘stbc_cor‘
????[FER?FER_uncoded?SER?SER_uncoded?BER?BER_uncoded]=stbc22_cor（channel_modelfr_lengthNumalphano_tx_antennasno_rx_antennasmodulation）
????otherwise?‘No?coding‘
end
clc;

str1=cd;
str2=sim_options.FileName;
str3=[str1?‘\‘?str2];

if?sim_options.Savefile==1
????save（str3）;
end

%plot?routines.?Choose?FER/SER/BER?as?required
figure;
semilogy（EbNoBER_uncoded‘r‘）
hold?on
semilogy（EbNoBER‘b‘）
hold?off
xlabel（‘SNR?[dB]‘）
ylabel（‘BER‘）
axis（[min（EbNo）?max（EbNo）?1e-6?1e0]）
str1=num2str（N）;
str2=num2str（M）;
str=[str1?‘x‘?str2];
legend（‘Uncoded‘str）;
grid?on
str1=‘System:‘;
str2=num2str（N）;
str3=num2str（M）;
str4=[str1?str2?‘x‘?str3];
title（str4）;
if?channel_model==‘AWGN????‘
????model=‘AWGN‘;
else
????model=‘Rayleigh‘;

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2009-04-20?13:39??MIMO\
?????文件????????3122??2004-03-04?12:29??MIMO\runsim.m
?????文件????????2826??2004-03-04?11:02??MIMO\stbc12.m
?????文件????????3101??2004-03-04?11:10??MIMO\stbc14.m
?????文件????????3451??2004-03-04?11:23??MIMO\stbc21.m
?????文件????????3395??2004-03-04?11:23??MIMO\stbc22.m
?????文件????????3628??2004-03-04?11:32??MIMO\stbc22_cor.m
?????文件????????6467??2004-03-04?11:48??MIMO\stbc22_est.m
?????文件????????5205??2004-03-04?11:24??MIMO\stbc31.m
?????文件????????5179??2004-03-04?11:25??MIMO\stbc34.m
?????文件????????5314??2004-03-04?11:25??MIMO\stbc41.m
?????文件????????5303??2004-03-04?11:30??MIMO\stbc44.m
?????文件????????2661??2004-02-16?00:59??MIMO\tx_modulate.m
?????文件????????5551??2004-03-04?11:08??MIMO\ui_check_params.m
?????文件????????3490??2009-01-05?15:51??MIMO\ui_read_options.m
?????文件????????9229??2008-01-01?19:58??MIMO\ui_start.m
?????文件??????????85??2004-01-27?20:28??MIMO\ui_start_sim.m