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.
46 lines
1018 B
C
46 lines
1018 B
C
/*
|
|
*-----------------------------------------------------------------------------
|
|
* file: mattran.c
|
|
* desc: matrix mathematics
|
|
* by: ko shu pui, patrick
|
|
* date: v0.1 - 24 nov 91
|
|
* revi: v0.2 - 14 may 92
|
|
* 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_tran
|
|
* desct: transpose of a matrix
|
|
* given: A = matrix A to be transposed
|
|
* retrn: allocated matrix for A^t
|
|
* comen:
|
|
*-----------------------------------------------------------------------------
|
|
*/
|
|
MATRIX mat_tran( A )
|
|
MATRIX A;
|
|
{
|
|
int i, j;
|
|
MATRIX At;
|
|
|
|
if ((At = mat_creat( MatCol(A), MatRow(A), UNDEFINED )) == NULL)
|
|
return (NULL);
|
|
|
|
/*
|
|
* Transposing ...
|
|
*/
|
|
for (i=0; i<MatCol(A); i++)
|
|
for (j=0; j<MatRow(A); j++)
|
|
{
|
|
At[i][j] = A[j][i];
|
|
}
|
|
return (At);
|
|
}
|