%% 互相關函數，獲取到輸入塊block1 在block2中相關最高的位置及對應的相關函數結果

% 輸入參數
% Block1：需要匹配的塊，在Block2中檢索與該快相似性最高的塊；大小小于等于Block2
% Block2：大于等于Block1
% 其中Block1與Block2的正中心重合，即Block1的位置在Block2的正中心
% lateralstep：互相關過程中，橫向移動步進，單位為像素點的整數倍
% axialstep：互相關過程中，縱向移動步進，單位為像素點的整數倍
% halflateralnum：橫向塊移動次數的一半，負數向左，正數向右
% halfaxialnum：縱向塊移動次數的一半，負數向上，正數向下

% 輸出參數
% x：在Block2中，與Block1最相似的塊移動的橫向距離,單位為像素點
% y：在Block2中，與Block1最相似的塊移動的縱向距離，單位為像素點
% R12：Block1與Block2中最相似的塊之間的互相關結果（復數）
%% 對Block2是有要求的，BLock2是Block1步進的偶數倍，即要保證Block1在Block2中的移動是對稱的
function [x y R12] = ZPP_CrossCorrelation(Block1,Block2,lateralstep,axialstep,halflateralnum,halfaxialnum)

[m1 n1] = size(Block1);
[m2 n2] = size(Block2);
Ra = zeros(halfaxialnum*2+1,halflateralnum*2+1);

pro_data = Block1;
for i = 1 : halfaxialnum*2+1
for j = 1 : halflateralnum*2+1
clear temp;
clear post_data;

axial_num = (1:m1) + (i - 1)*axialstep;
lateral_num = (1:n1) + (j - 1)*lateralstep;
post_data = Block2(axial_num,lateral_num);
temp = pro_data.*conj(post_data);
Ra(i,j) = sum(temp(:));

% 加上相關系數，使用相關系數去解
temp1 = abs(Ra(i,j));
temp_2 = pro_data.^2;
temp2 = sum(temp_2(:));
temp_3 = post_data.^2;
temp3 = sum(temp_3(:));
temp4 = sqrt(temp2*temp3);
RA_Ctn(i,j) = temp1/temp4;

end
end
% [temp_y temp_x] = find(abs(Ra) == max(abs(Ra(:)))); % 找出最大值的點
[temp_y temp_x] = find(abs(RA_Ctn) == max(abs(RA_Ctn(:)))); % 找出最大值的點

x = (temp_x - 1 - halflateralnum) * lateralstep; % 橫向移動的間距為第幾列
y = (temp_y - 1 - halfaxialnum) * axialstep; % 縱向移動的間距為第幾行
R12 = Ra(temp_y,temp_x);

end