double dmtrace(M1,M2,n)/* returns trace of M1*M2, M1 and M2 matrices */ register double *M1,*M2; register int n; { register int i; register double trace; double dot(); trace=0; for(i=0;i trace+=dot(M1,1,M2,n,n); return(trace); }
虫虫下载站 半导体技术网 电子研发网 源码地带 电源技术网 单片机技术网 医疗电子技术 嵌入式系统与单片机