?? covsrt.m
字號:
function [covari] = covsrt(npc,ma,ia,mfit,covari)
%
% Expand in storage the covariance matrix covari, so as to take into
% account parameters that are being held fixed. (For the latter,
% return zero covariances).
% Initialisation
for i=mfit+1:ma
for j=1:i
covari(i,j)=0;
covari(j,i)=0;
end
end
% Calcul
k=mfit;
for j=ma:-1:1
if(ia(j)~=0)
for i=1:ma
swap=covari(i,k);
covari(i,k)=covari(i,j);
covari(i,j)=swap;
end
for i=1:ma
swap=covari(k,i);
covari(k,i)=covari(j,i);
covari(j,i)=swap;
end
k=k-1;
end
end
return
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -