xpmaple.h

来自「基本矩阵运算 : + - *, power, transpose, trace,」· C头文件 代码 · 共 33 行

/* xpmaple.h                    freeware                   [e-mail]  */


/* ------------------------------------- FUNCTION --------------------------  */
/* Do    :                                                                    */
/*                                                                            */


/* -------------------------------------------------------------------------- */
void p_mpl(
PmF mA)
{
 int i;
 int j;

 printf(" := matrix(%d,%d,[", mA->rows, mA->cols/C2);

 for (   i = 0 ; i < mA->rows ;     i++)
  {
   printf("\n");
   for ( j = 0 ; j < mA->cols ; j++,j++)
    {
     printf("%6.0f/%-.0f,",*(mA->pb+i *mA->cols+j  ),
                             *(mA->pb+i *mA->cols+j+1));
    }
  }
  printf("\b \n");
  printf("]):");
  printf("\n");
}