cnj.c

来自「[[ Complex Matrices : Language c]]」· C语言 代码 · 共 32 行

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

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

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

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

  cnj_mzF(&mA,&mConjA);
  printf("\n Conjugate(A)\n");
  p_mizF(&mConjA);

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

 return 0;
}