我编写了一些代码来实现一种算法,该算法将q
实数向量作为输入,并作为输出返回一个复矩阵R
。下面的 Matlab 代码生成了一个显示输入向量q
和输出矩阵的图R
。
仅给定复数矩阵输出R
,我想获得输入向量q
。我可以使用最小二乘优化来做到这一点吗?由于代码中存在递归运行和 (rs_r
和rs_i
),因此输出矩阵的某一列的计算取决于前一列的计算。
也许可以设置非线性优化来q
从输出矩阵重构输入向量R
?
换一种方式来看,我使用了一种算法来计算矩阵R
。我想“反向”运行算法以q
从输出矩阵中获取输入向量R
。
如果无法从输出中重构起始值,从而将问题视为“黑匣子”,那么模型本身的数学是否可以用于优化?该程序评估以下等式:
Utilde(tau, omega) 是输出矩阵R
。tau(时间)变量包含响应矩阵 的列R
,而 omega(频率)变量包含响应矩阵 的行R
。积分作为从 tau = 0 到当前 tau 时间步长的递归运行总和执行。
以下是由下面发布的程序创建的图:
这是完整的程序代码:
N = 1001;
q = zeros(N, 1); % here is the input
q(1:200) = 55;
q(201:300) = 120;
q(301:400) = 70;
q(401:600) = 40;
q(601:800) = 100;
q(801:1001) = 70;
dt = 0.0042;
fs = 1 / dt;
wSize = 101;
Glim = 20;
ginv = 0;
R = get_response(N, q, dt, wSize, Glim, ginv); % R is output matrix
rows = wSize;
cols = N;
figure; plot(q); title('q value input as vector');
ylim([0 200]); xlim([0 1001])
figure; imagesc(abs(R)); title('Matrix output of algorithm')
colorbar
这是执行计算的函数:
function response = get_response(N, Q, dt, wSize, Glim, ginv)
fs = 1 / dt;
Npad = wSize - 1;
N1 = wSize + Npad;
N2 = floor(N1 / 2 + 1);
f = (fs/2)*linspace(0,1,N2);
omega = 2 * pi .* f';
omegah = 2 * pi * f(end);
sigma2 = exp(-(0.23*Glim + 1.63));
sign = 1;
if(ginv == 1)
sign = -1;
end
ratio = omega ./ omegah;
rs_r = zeros(N2, 1);
rs_i = zeros(N2, 1);
termr = zeros(N2, 1);
termi = zeros(N2, 1);
termr_sub1 = zeros(N2, 1);
termi_sub1 = zeros(N2, 1);
response = zeros(N2, N);
% cycle over cols of matrix
for ti = 1:N
term0 = omega ./ (2 .* Q(ti));
gamma = 1 / (pi * Q(ti));
% calculate for the real part
if(ti == 1)
Lambda = ones(N2, 1);
termr_sub1(1) = 0;
termr_sub1(2:end) = term0(2:end) .* (ratio(2:end).^-gamma);
else
termr(1) = 0;
termr(2:end) = term0(2:end) .* (ratio(2:end).^-gamma);
rs_r = rs_r - dt.*(termr + termr_sub1);
termr_sub1 = termr;
Beta = exp( -1 .* -0.5 .* rs_r );
Lambda = (Beta + sigma2) ./ (Beta.^2 + sigma2); % vector
end
% calculate for the complex part
if(ginv == 1)
termi(1) = 0;
termi(2:end) = (ratio(2:end).^(sign .* gamma) - 1) .* omega(2:end);
else
termi = (ratio.^(sign .* gamma) - 1) .* omega;
end
rs_i = rs_i - dt.*(termi + termi_sub1);
termi_sub1 = termi;
integrand = exp( 1i .* -0.5 .* rs_i );
if(ginv == 1)
response(:,ti) = Lambda .* integrand;
else
response(:,ti) = (1 ./ Lambda) .* integrand;
end
end % ti loop