norm3.c

[[ Complex Matrices : Language c]]

/* .c                         freeware                 [e-mail]
*/

/* --------------------------------- INCLUDES ------------------------------- */
#include "y_ahfile.h"

/* --------------------------------- MAIN ----------------------------------- */
int main(void)
{
complexF Norm;

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

  printf("\n u :\n");
  p_mizF(&mu);

  Norm = normP2_zF(&mu);

  printf("\n  ||u||  = ("); p_izF(Norm); printf(")**(1/2)\n\n");

 printf("\n Press Return to continue");
 getchar();

 return 0;
}