Linear Algebra and the C Language/a01r

__NOTOC__ Install this file in your working directory. /* ------------------------------------ */ /* Save as : vgc_m.h */ /* ------------------------------------ */ double **c_withR0_mR( double **A, double **B ) { int r; int c; for (r=R0; r<A[R_SIZE][C0]; r++) for (c=C1; c<A[C_SIZE][C0]; c++) B[r][c] = A[r][c]; return(B); } /* ------------------------------------ */ double **c_c_withR0_mR( double **A, int cA, double **B, int cB ) { int r; for(r=R0; r<A[R_SIZE][C0]; r++) B[r][cB] = A[r][cA]; return(B); } /* ------------------------------------ */ double **c_r1r2_mR( double **A, int r1, int r2) { int c; for ( c=C1; c<A[C_SIZE][C0]; c++) A[r2][c] = A[r1][c]; return(A); } /* ------------------------------------ cld01.c cld02.c pcld.zip ------------------------------------ */ void c_c1_cL_mR( double **A ) { int r; int c = A[C_SIZE][C0]-C1; for(r=R1; r<A[R_SIZE][C0]; r++) A[r][c] = A[r][C1]; } /* ------------------------------------ */ double **c_nr_mR( double **A, int r_n, double **B ) { int r; int c; for (r=R1; r<=r_n; r++) for (c=C1; c<A[C_SIZE][C0]; c++) B[r][c] = A[r][c]; return(B); } /* ------------------------------------ */ /* ------------------------------------ */