Linear Algebra and the C Language/a014z

__NOTOC__ Install this file in your working directory. /* ------------------------------------ */ /* Save as : vrm_sym.h */ /* ------------------------------------ */ double **rsymmetric_mR( double **A, int n) { int r; int c; double x; isquare_mR(A,"rsymmetric_mR();","(A)"); for ( r=R1; r<A[R_SIZE][C0]; r++) for ( c=C1; c<A[C_SIZE][C0]; c++) { x = r_I (n); A[r][c] = x; A[c][r] = x; } return(A); } /* ------------------------------------ */ /* ------------------------------------ */ double **mul_sDA_mR( double s, double **A, double **sA ) { int r; c_mR(A,sA); for(r=R1; r<A[R_SIZE][C0]; r++) sA[r][r] = abs(s * A[r][r]); return(sA); } /* ------------------------------------ */ double **rPsymmetric_mR( double **A, int n) { int r; int c; double x; double **B = i_mR(rsize_R(A),csize_R(A)); isquare_mR(A,"rPsymmetric_mR();","(A)"); for ( r=R1; r<A[R_SIZE][C0]; r++) for ( c=C1; c<A[C_SIZE][C0]; c++) { x = r_I (n); B[r][c] = x; B[c][r] = x; } mul_sDA_mR(111.,B,A); f_mR(B); return(A); } /* ------------------------------------ */ /* ------------------------------------ */