矩陣求逆一般使用Gauss-Jordan消去法。用C寫的，做成DLL使用很方便。 
    double * MatrixOpp(double A[],int m,int n) /*矩陣求逆*/ 
    { 
     int i,j,x,y,k; 
     double *SP=NULL,*AB=NULL,*B=NULL,X,*C; 
     SP=(double *)malloc(m*n*sizeof(double)); 
     AB=(double *)malloc(m*n*sizeof(double)); 
     B=(double *)malloc(m*n*sizeof(double)); 
     
     X=Surplus(A,m,n); 
     X=1/X; 
     
     for(i=0;i<m;i++) 
     for(j=0;j<n;j++) 
     {for(k=0;k<m*n;k++) 
     B[k]=A[k]; 
     {for(x=0;x<n;x++) 
     B[i*n+x]=0; 
     for(y=0;y<m;y++) 
     B[m*y+j]=0; 
     B[i*n+j]=1; 
     SP[i*n+j]=Surplus(B,m,n); 
     AB[i*n+j]=X*SP[i*n+j]; 
     } 
     } 
     C=MatrixInver(AB,m,n); 
     
     return C; 
    } 
     
    double * MatrixInver(double A[],int m,int n) /*矩陣轉置*/ 
    { 
     int i,j; 
     double *B=NULL; 
     B=(double *)malloc(m*n*sizeof(double)); 
     
     for(i=0;i<n;i++) 
     for(j=0;j<m;j++) 
     B[i*m+j]=A[j*n+i]; 
     
     return B; 
    } 
     
    double Surplus(double A[],int m,int n) /*求矩陣行列式*/ 
    { 
     
     int i,j,k,p,r; 
     double X,temp=1,temp1=1,s=0,s1=0; 
     
     if(n==2) 
     {for(i=0;i<m;i++) 
     for(j=0;j<n;j++) 
     if((i+j)%2) temp1*=A[i*n+j]; 
     else temp*=A[i*n+j]; 
     X=temp-temp1;} 
     else{ 
     for(k=0;k<n;k++) 
     {for(i=0,j=k;i<m,j<n;i++,j++) 
     temp*=A[i*n+j]; 
     if(m-i) 
     {for(p=m-i,r=m-1;p>0;p--,r--) 
     temp*=A[r*n+p-1];} 
     s+=temp; 
     temp=1; 
     } 
     
     for(k=n-1;k>=0;k--) 
     {for(i=0,j=k;i<m,j>=0;i++,j--) 
     temp1*=A[i*n+j]; 
     if(m-i) 
     {for(p=m-1,r=i;r<m;p--,r++) 
     temp1*=A[r*n+p];} 
     s1+=temp1; 
     temp1=1; 
     } 
     
     X=s-s1;} 
     return X; 
    } 
     
     
    encounter2001的意見： 
    二階三階沒問題。四階以上行列式求解有問題，四階行列式求解須根據求和式中的每項的逆序數來確定它正負號。 
     
    maxt的意見： 
    askye的程序高階有錯誤，驗證未通過，建議慎重使用。 

此問題由李海回答。 

附加關鍵字：編程, 源程序, programming, source code, C/C++, MFC, C++ Builder, Borland C++, Turbo C, C, BCB, 其他方面, 。