26 lines
1016 B
Mathematica
26 lines
1016 B
Mathematica
|
%%***********************<EFBFBD><EFBFBD><EFBFBD>Ľ<EFBFBD>FCME<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>㷨<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*************************%%
|
|||
|
|
%%=============================<EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><EFBFBD>===================================%%
|
|||
|
|
% data <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƶ<EFBFBD><EFBFBD><EFBFBD>ź<EFBFBD>
|
|||
|
|
% Pf <EFBFBD>龯<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
% J <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ĸ<EFBFBD><EFBFBD>ŵ㼯<EFBFBD><EFBFBD>
|
|||
|
|
%%========================================================================%%
|
|||
|
|
function J = FCME_pro(data_Freuq,Pf)
|
|||
|
|
T = sqrt(-1*(4/pi)*log(Pf)); %%<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
th = 3.432; %%<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ
|
|||
|
|
L = length(data_Freuq);
|
|||
|
|
fi = [];
|
|||
|
|
[y_sort,index] = sort(abs(data_Freuq),'ascend');
|
|||
|
|
%%<EFBFBD><EFBFBD>ÿ<EFBFBD><EFBFBD>Ƶ<EFBFBD><EFBFBD><EFBFBD>ķ<EFBFBD>ֵ
|
|||
|
|
fi = abs(data_Freuq);
|
|||
|
|
I = index(1:round(L/2)); %%<EFBFBD><EFBFBD><EFBFBD>ż<EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
E = mean(fi(I));
|
|||
|
|
Aaim = T*th*E; %%<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
J = [];
|
|||
|
|
%%<EFBFBD>Ƚ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ø<EFBFBD><EFBFBD>ż<EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
for mm = 1:L
|
|||
|
|
if fi(mm) > Aaim
|
|||
|
|
J = [J,mm];
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
end
|