silas/imdd_silas
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

MPI Simulations and stuff

Browse Source
This commit is contained in:
Silas Oettinghaus
2024-08-14 09:36:51 +02:00
parent 1eeb970d8f
commit 34f9149346
61 changed files with 4295 additions and 429 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
projects/MPI_August/channel_model_mpi.m Normal file
View File

@@ -0,0 +1,28 @@
function opt_signal = channel_model_mpi(opt_signal,link_total_meter,oneway_interference_meter,sir)
%%%%% Local Parameter %%%%%%%%
%%%%% Ping Pong/ Interference Path %%%%%%
interference_sig = Fiber("fsimu",opt_signal.fs,"fiber_length",oneway_interference_meter*2/1000,"alpha",0.3,"D",0,"lambda0",1320,"gamma",0,"Dslope",0.07).process(opt_signal);
interference_sig = Amplifier("amp_mode","ideal_no_noise","gain_mode","gain","amplification_db",-sir).process(interference_sig);
%%%%% Delay the "main" signal as in reality the interference is "older" than the main signal %%%%%%
[main_sig,dly] = opt_signal.delay("delay_meter",oneway_interference_meter*2);
main_sig.power;
interference_sig.power;
%%%%% ADD Interference and Main Signal %%%%%%
combined_sig = main_sig + interference_sig;
%%%%% Cut (due to the delays there is a jump in the signals) %%%%%%
if dly == 0;dly = 1;end
combined_sig.signal = combined_sig.signal(ceil(dly):end);
%%%%% Propagate through fiber %%%%%%
opt_signal = Fiber("fsimu",combined_sig.fs,"fiber_length",link_total_meter/1000,"alpha",0.3,"D",0,"lambda0",1320,"gamma",0,"Dslope",0.07).process(combined_sig);
end

206
projects/MPI_August/mpi_uncorrelated.m Normal file
View File

@@ -0,0 +1,206 @@
%% Parameter to simulate and save
params = struct;
params.M = [4];
params.datarate = [224];
params.sir = [24]; %decibel = attenuation of interference path
params.laser_linewidth = [1e6];
params.pn_key = [11];
params.vbias_rel = [0.5];
params.rop = -5;
params.clipfactor = [1.5];
params.rrcalpha = [0.1];
name = ['wh_',strrep(num2str(now),'.','')];
wh = DataStorage(params);
wh.addStorage("ber");
wh.addStorage("rop");
wh.addStorage("txpapr");
wh.addStorage("er");
%% Init Params
link_length = 10000; %meter
endcnt = prod(wh.dim);
cnt=0;
disp(['Start Simulation of ',num2str(endcnt),' loops...'])
tic
for M = wh.parameter.M.values
for datarate = wh.parameter.datarate.values
for rrcalpha = wh.parameter.rrcalpha.values
%% SETUP HERE: %%
kover = 8;
M8199 = M8199A("kover",kover);
fdac = M8199.fdac;
fsym = round(datarate / log2(M))*1e9;
Pform = Pulseformer("fsym",fsym,"fdac",4*fsym,"pulse","rrc","pulselength",16,"rrcalpha",rrcalpha);
% MAIN SIGNAL
%%%%% Symbol Generation %%%%%%
[Digi_sig,Symbols,Bits] = PAMsource("fsym",fsym,"M",M,"order",18,"useprbs",0,"fs_out",M8199.fdac,"applyclipping",1,"clipfactor",1.3,"applypulseform",1,"pulseformer",Pform,"randkey",2).process();
%%%%% AWG %%%%%%
El_sig = M8199.process(Digi_sig);
El_sig = El_sig.*0.7222;
El_sig.signal = awgn(El_sig.signal,20,'measured',1);
%%%%% Lowpass before Modulator %%%%%%
El_sig = Filter('filtdegree',2,"f_cutoff",100e9,"fs",fdac*kover,"filterType",filtertypes.butterworth,"active",true).process(El_sig);
El_sig = Amplifier("amp_mode","ideal_no_noise","gain_mode","gain","amplification_db",15).process(El_sig);
% INTERFERENCE SIGNAL
%%%%% Symbol Generation %%%%%%
[Digi_sig_i,Symbols_i,Bits_i] = PAMsource("fsym",fsym,"M",M,"order",18,"useprbs",0,"fs_out",M8199.fdac,"applyclipping",1,"clipfactor",1.3,"applypulseform",1,"pulseformer",Pform,"randkey",1).process();
%%%%% AWG %%%%%%
El_sig_i = M8199.process(Digi_sig_i);
El_sig_i = El_sig_i.*0.7222;
El_sig_i.signal = awgn(El_sig_i.signal,20,'measured',2);
%%%%% Lowpass before Modulator %%%%%%
El_sig_i = Filter('filtdegree',2,"f_cutoff",100e9,"fs",fdac*kover,"filterType",filtertypes.butterworth,"active",true).process(El_sig_i);
El_sig_i = Amplifier("amp_mode","ideal_no_noise","gain_mode","gain","amplification_db",15).process(El_sig_i);
for laser_linewidth = wh.parameter.laser_linewidth.values
for pn_key = wh.parameter.pn_key.values
for vbias_rel = wh.parameter.vbias_rel.values
% MAIN SIGNAL
%%%%% MODULATE E/O CONVERSION %%%%%%
u_pi = 2.9;
vbias = -vbias_rel*u_pi;
[Opt_sig] = EML("mode",eml_mode.im_cosinus,"power",3,"fsimu",El_sig.fs,"lambda",1290,"bias",vbias,"u_pi",u_pi,"linewidth",laser_linewidth,"randomkey",pn_key).process(El_sig);
Optfilter = Filter('filtdegree',6,"f_cutoff",fsym.*0.7,"fs",fdac*kover,"filterType",filtertypes.gaussian,"active",true);
Opt_sig = Optfilter.process(Opt_sig);
% INTERFERENCE SIGNAL
%%%%% MODULATE E/O CONVERSION %%%%%%
u_pi = 2.9;
vbias = -vbias_rel*u_pi;
[Opt_sig_i] = EML("mode",eml_mode.im_cosinus,"power",3,"fsimu",El_sig.fs,"lambda",1290,"bias",vbias,"u_pi",u_pi,"linewidth",laser_linewidth,"randomkey",pn_key+1).process(El_sig_i);
Opt_sig_i = Optfilter.process(Opt_sig_i);
j_ = wh.parameter.sir.length;
i_ = wh.parameter.rop.length;
ber=zeros(j_,i_);
patten=zeros(j_,i_);
for j = 1:j_
sir = wh.parameter.sir.values(j);
%%%%% Interference Signal Fiber Prop %%%%%%
Opt_sig_i = Fiber("fsimu",Opt_sig_i.fs,"fiber_length",link_length/1000,"alpha",0.3,"D",0,"lambda0",1310,"gamma",0,"Dslope",0.07).process(Opt_sig_i);
Opt_sig_i = Amplifier("amp_mode","ideal_no_noise","gain_mode","output_power","amplification_db",Opt_sig.power-sir).process(Opt_sig_i);
%%%%% ADD Interference and Main Signal %%%%%%
Opt_sig = Opt_sig_i + Opt_sig;
%%%%% Interference Signal Fiber Prop %%%%%%
Opt_sig = Fiber("fsimu",Opt_sig.fs,"fiber_length",link_length/1000,"alpha",0.3,"D",0,"lambda0",1310,"gamma",0,"Dslope",0.07).process(Opt_sig);
% % MPI Channel
% Opt = channel_model_mpi(Opt_sig,link_length,mpi_path,sir);
% Receiver ROP curve
for i = 1:i_
rop=wh.parameter.rop.values(i);
% Set ROP
Rx_sig = Amplifier("amp_mode","ideal_no_noise","gain_mode","output_power","amplification_db",rop).process(Opt_sig);
patten(j,i) = Rx_sig.power;
%%%%%% Square Law %%%%%%
Rx_sig = Photodiode("fsimu",fdac*kover,"dark_current",2e-08,"responsivity",1,"temperature",20).process(Rx_sig);
%%%%%% Lowpass PhDiode %%%%%%
Rx_sig = Filter('filtdegree',2,"f_cutoff",70e9,"fs",fdac*kover,"filterType",filtertypes.gaussian,"active",true).process(Rx_sig);
% Rx_sig.spectrum("displayname","Received Signal after PhD","fignum",201);
%%%%%% Scope %%%%%%
fadc = 256e9;
Lp_scpe = Filter('filtdegree',4,"f_cutoff",63e9,"fs",fadc,"filterType",filtertypes.butterworth,"active",true);
Scpe_sig = Scope("fsimu",fdac*kover,"fadc",fadc,...
"delay",0,"fixed_delay",0,"filtertype",filtertypes.butterworth,...
"samplingdelay",0,"rand_samplingdelay",0,"freq_offset",0,"samp_jitter",0,...
"adcresolution",16,"quantbuffer",0.1,'block_dc',1,'lpf_active',1,'H_lpf',Lp_scpe).process(Rx_sig);
Scpe_sig.plot("displayname","SIgnal after Scope","fignum",999);
%%%%%% Sample to 2x fsym %%%%%%
Scpe_sig = Scpe_sig.resample("fs_in",fadc,"fs_out",2*fsym);
%%%%%% Sync Rx signal with reference %%%%%%
[Scpe_sig,D,cuts] = Scpe_sig.tsynch("reference",Symbols,"fs_ref",fsym);
%%%%% EQUALIZE %%%%%%
% Eq = FFE("epochs_tr",5,"epochs_dd",5,"len_tr",4096*2,"mu_dd",1e-4,"mu_tr",0,"order",25,"sps",2,"decide",0);
% Eq = FFE_DFE("epochs_tr",5,"epochs_dd",5,"len_tr",4096*2,"ffe_mu_dd",1e-4,"dfe_mu_dd",5e-4,"ffe_mu_tr",0,"dfe_mu_tr",0,"ffe_order",25,"dfe_order",2,"sps",2,"decide",1);
% Eq = EQ("Ne",[25,3,3],"Nb",[0,0,0],"training_length",4096,"training_loops",4,"dd_loops",4,"K",2,"DCmu",0,"DDmu",[0.0004 0.0004 0.0004 0.0004 ],"DFEmu",0.005,"FFEmu",0,"plotfinal",1);
Eq = VNLE("epochs_tr",7,"epochs_dd",7,"len_tr",4096,"mu_dd",[0.0004 0.0005 0.0006],"mu_tr",0,"order",[25,3,3],"sps",2,"decide",0);
[EQ_sig] = Eq.process(Scpe_sig,Symbols);
% EQ_sig.normalize("mode","rms").plot('fignum',23,'displayname','before eq')
%%%%% DEMAP %%%%%%
Rx_bits = PAMmapper(M,0).demap(EQ_sig);
%%%% Look at Pam levels %%%%%
if 1
a = PAMmapper(M,0).separate_pamlevels(EQ_sig);
figure(14);hold on;scatter(1:EQ_sig.length,a,1,'.');
end
% BER
[~,errors_bm,ber(j,i),errors] = calc_ber(Rx_bits.signal,Bits.signal,"skip_front",100,"skip_end",150,"returnErrorLocation",1);
cnt = cnt+1;
disp(['BER: ',sprintf('%.1E',ber(j,i)),' - - ROP: ',num2str(Rx_sig.power),'dBm - - PAM-',num2str(M),' - - ',num2str(fsym*1e-9),' GBd']);
end
end
for j = 1:j_
sir = wh.parameter.sir.values(j);
for i = 1:i_
rop=wh.parameter.rop.values(i);
wh.addValueToStorage(ber(j,i),'ber',M,datarate,sir,laser_linewidth,pn_key,vbias_rel,rop,clipfactor,rrcalpha);
wh.addValueToStorage(patten(j,i),'rop',M,datarate,sir,laser_linewidth,pn_key,vbias_rel,rop,clipfactor,rrcalpha);
wh.addValueToStorage(er,'er',M,datarate,sir,laser_linewidth,pn_key,vbias_rel,rop,clipfactor,rrcalpha);
end
end
end
toc
disp(['Simulated: ',num2str(cnt/endcnt*100),' %']);
save(['C:\Users\Silas\Documents\MATLAB\imdd_simulation\projects\MPI_Juni\',name,'.mat'],"wh");
end
end
end
end
end

45
projects/MPI_August/rx_model.m Normal file
View File

@@ -0,0 +1,45 @@
function rx_bits = rx_model(Rx,Ref,Phdiod,Lp_phdiod,Scpe,Eq,Pmap)
%%%%% Local Parameter %%%%%%%%
fsym = Ref.fs;
%%%%%% Square Law %%%%%%
Rx_sig = Phdiod.process(Rx);
%%%%%% Lowpass PhDiode %%%%%%
Rx_sig = Lp_phdiod.process(Rx_sig);
% Rx_sig.spectrum("displayname","Received Signal after PhD","fignum",201);
%%%%%% Scope %%%%%%
Scpe_sig = Scpe.process(Rx_sig);
Scpe_sig.plot("displayname","SIgnal after Scope","fignum",1999);
% Scpe_sig.spectrum("displayname",'after scope','fignum',123);
%%%%%% Sample to 2x fsym %%%%%%
Scpe_sig = Scpe_sig.resample("fs_in",Scpe.fadc,"fs_out",2*fsym);
% Scpe_sig.plot('fignum',12345,'displayname','bla')
%%%%%% Sync Rx signal with reference %%%%%%
[Scpe_sig,D,cuts] = Scpe_sig.tsynch("reference",Ref,"fs_ref",fsym);
%%%%% EQUALIZE %%%%%%
[EQ_sig] = Eq.process(Scpe_sig,Ref);
% EQ_sig.normalize("mode","rms").plot('fignum',23,'displayname','before eq')
%%%%% DEMAP %%%%%%
rx_bits = Pmap.demap(EQ_sig);
%%%% Look at Pam levels %%%%%
if 1
a = Pmap.separate_pamlevels(EQ_sig);
figure(14);hold on;scatter(1:EQ_sig.length,a,1,'.');
end
end

66
projects/MPI_August/tx_model.m Normal file
View File

@@ -0,0 +1,66 @@
function [el_sig,bits,symbol_seq] = tx_model(fsym,Pmap,Pform,Awg,options)
arguments
fsym
Pmap
Pform
Awg
options.clipfactor
end
%%%%% Local Parameter %%%%%%%%
%%%%% PRBS Generation in correct shape for Modulation Format %%%%%%
O = 17; %order of prbs
N = 2^(O-1); %length of prbs
[~,seed] = prbs(O,1); %initialize first seed of prbs
bitpattern=[];
for i = 1:log2(Pmap.M)
[bitpattern(:,i),seed] = prbs(O,N,seed);
end
if Pmap.M == 6
bitpattern = reshape(bitpattern,[],1);
bitpattern = bitpattern(1:end-mod(length(bitpattern),5));
end
bits = Informationsignal(bitpattern);
%%%%% Map to PAM %%%%%%
symbol_seq = Pmap.map(bits);
symbol_seq.fs = fsym;
%%%%% Pulseforming %%%%%%
if 1
X = Pform.process(symbol_seq);
else
X = symbol_seq;
end
%%%%% Resample to f DAC %%%%%%
X = X.resample("fs_in",X.fs,"fs_out",Awg.fdac,"n",10,"beta",5);
%%%%% Clip to PAM range %%%%%%
if 1
min_ = min(symbol_seq.signal) * options.clipfactor ;
max_ = max(symbol_seq.signal) * options.clipfactor ;
X.signal = clip(X.signal,min_,max_);
end
%%%%%Info about AWG input %%%%%%
pwr_ = X.power; % in dbm into 50 ohm
papr_ = papr(X.signal);
vpk_ = max(abs(X.signal));
vswing_ = max(X.signal)-min(X.signal);
awg_string = ['Digital AWG Input: Pout: ',num2str(round(pwr_,2)),' dBm; PAPR: ',num2str(round(papr_,2)),'; Vpk: ',num2str(round(vpk_,2)),'; Vswing: ',num2str(round(vswing_,2)),''];
% isp(awg_string);
%%%%% AWG %%%%%%
el_sig = Awg.process(X);
el_sig= el_sig.*0.7222;
end