?? svdvar.c
字號:
void svdvar(v,ma,w,cvm)
float **v,w[],**cvm;
int ma;
{
int k,j,i;
float sum,*wti,*vector();
void free_vector();
wti=vector(1,ma);
for (i=1;i<=ma;i++) {
wti[i]=0.0;
if (w[i]) wti[i]=1.0/(w[i]*w[i]);
}
for (i=1;i<=ma;i++) {
for (j=1;j<=i;j++) {
for (sum=0.0,k=1;k<=ma;k++) sum += v[i][k]*v[j][k]*wti[k];
cvm[j][i]=cvm[i][j]=sum;
}
}
free_vector(wti,1,ma);
}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -