d782d43951
required inclusion of a matrix package. - modified counter error handling to send a Stop when the _BAD_BUSY error is received. - added an environment interface to the general controller stuff in choco.* Also added setting a parameter directly at the controller object. - Added a driver for the ETH High Temperature Furnace to be used at SANS.
48 lines
1.0 KiB
C
48 lines
1.0 KiB
C
/*
|
||
*-----------------------------------------------------------------------------
|
||
* file: matsubx.c
|
||
* desc: find submatrix
|
||
* by: ko shu pui, patrick
|
||
* date: 24 may 92 v0.4
|
||
* revi:
|
||
* ref:
|
||
* [1] Mary L.Boas, "Mathematical Methods in the Physical Sciene,"
|
||
* John Wiley & Sons, 2nd Ed., 1983. Chap 3.
|
||
*
|
||
*-----------------------------------------------------------------------------
|
||
*/
|
||
#include <stdio.h>
|
||
#include "matrix.h"
|
||
|
||
/*
|
||
*-----------------------------------------------------------------------------
|
||
* funct: mat_submat
|
||
* desct: return a submatrix S of A
|
||
* given: A = main matrix,
|
||
* i,j = row and column of A to be deleted to obtained S
|
||
* retrn: S
|
||
*-----------------------------------------------------------------------------
|
||
*/
|
||
MATRIX mat_submat( A, i, j )
|
||
MATRIX A;
|
||
int i,j;
|
||
{
|
||
int m, m1, p, p1;
|
||
MATRIX S;
|
||
|
||
S = mat_creat(MatRow(A)-1, MatCol(A)-1, UNDEFINED);
|
||
|
||
for (m=m1=0; m<MatRow(A); m++)
|
||
{
|
||
if (m==i) continue;
|
||
for (p=p1=0; p<MatCol(A); p++)
|
||
{
|
||
if (p==j) continue;
|
||
S[m1][p1] = A[m][p];
|
||
p1++;
|
||
}
|
||
m1++;
|
||
}
|
||
|
||
return (S);
|
||
} |