mul.c

[[ Complex Matrices : Language c]]

/*         .c                       freeware                   [e-mail]
*/
/* --------------------------------- INCLUDES ------------------------------- */
#include "y_ahfile.h"

/* --------------------------------- MAIN ----------------------------------- */
int main(void)
{
double pbA[3][3*C4]=
{
  1,1, 2,1,   3,1, 4,1,   5,1, 6,1,
  1,2, 1,2,   3,2, 4,2,   5,2, 6,2,
  1,3, 1,3,   1,3, 1,3,   1,3, 6,3,
};mzF mA={3,3*C4,&pbA[0][0]};

double pbB[3][3*C4]=
{
  9,1, 6,1,   -9,1, -6,1,  9,1, -6,1,
  8,1, 5,1,   -8,1, -5,1,  9,1, -6,1,
  7,1, 4,1,   -7,1, -4,1,  9,1, -6,1,
};mzF mB={3,3*C4,&pbB[0][0]};

double pbAB[3][3*C4];mzF mAB={3,3*C4,&pbAB[0][0]};
/*-------------------------------- PROGRAM ---------------------------------- */
  clrscrn();

  printf("\n A");
  p_mizF(&mA);
  printf("\n B");
  p_mizF(&mB);

  mul_mzF(&mA,&mB,&mAB);
  printf("\n AB");
  p_mizF(&mAB);

 printf("\nPress return to continue.\n");
 getchar();

 return 0;
}