Application of the identity matrix II. v05
Submitted By:
xhunga
Rating:
(
Rate It)
/* gjid03.c freeware [[Email Removed]]
*/
/* --------------------------------- INCLUDES ------------------------------- */
#include "xa_hfile.h"
/* --------------------------------- MAIN ----------------------------------- */
main()
{
double pb[3][4*TWOCOL]=
{
4,5, -6,1, -9,1, 5,1,
3,2, -3,2, 2,1, -4,1,
-2,1, 7,1, -3,2, 2,1,
};
matrix m={3,4*TWOCOL,&pb[0][0]};
double pbT [3][4*TWOCOL]; matrix mT ={3,4*TWOCOL,&pbT [0][0]};
double pbID [3][3*TWOCOL]; matrix mID ={3,3*TWOCOL,&pbID [0][0]};
/*-------------------------------- PROGRAM ---------------------------------- */
copymF(&m,&mT);
printf("\n");
printf(" The matrix mA \n");
printmF(&m);
getchar();
printf(" Find mID in one step \n");
idF4(&mID,&m);
printmF(&mID);
getchar();
printf(" mID * mA \n");
multmF(&mID,&mT,&m);
printmF(&m);
printf("\n Press return to continue");
getchar();
return 0;
}
