31 lines
777 B
Mathematica
31 lines
777 B
Mathematica
|
clc;clear;close all
|
||
|
|
|
||
|
|
cd('/data/work/thfu/TailCorr/script_m');
|
||
|
|
|
||
|
|
a = 13740916;
|
||
|
|
b = -1047703;
|
||
|
|
y(1) = 0;
|
||
|
|
|
||
|
|
sel_double = 0;
|
||
|
|
|
||
|
|
switch sel_double
|
||
|
|
case 0
|
||
|
|
iir_in = int64(importdata("/home/thfu/work/TailCorr/v02/sim/in") -32768);
|
||
|
|
iir_out = int64(importdata("/home/thfu/work/TailCorr/v02/sim/out") -32768);
|
||
|
|
case 1
|
||
|
|
iir_in = double(importdata("/home/thfu/work/TailCorr/v02/sim/in") -32768);
|
||
|
|
iir_out = double(importdata("/home/thfu/work/TailCorr/v02/sim/out") -32768);
|
||
|
|
end
|
||
|
|
|
||
|
|
Script_out = MyIIR(a,b,iir_in,y(1),sel_double)';
|
||
|
|
y_revised = iir_in + Script_out;
|
||
|
|
tau = finddelay(y_revised,iir_out);
|
||
|
|
|
||
|
|
Script_outPhi = cat(1,zeros(1,tau)',Script_out(1:end-tau,1));
|
||
|
|
|
||
|
|
n = 1:length(iir_in);
|
||
|
|
diff = iir_out(n)-Script_outPhi(n);
|
||
|
|
|
||
|
|
diff_plot(iir_out, Script_outPhi)
|
||
|
|
tau
|