distance.c

[[ Complex Matrices : Language c]]

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

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

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

double pbu[3][1*C4]=
{
  0,1, 1,1,
  1,1, 1,1,
  3,1, 0,1,
};mzF mu={3,1*C4,&pbu[0][0]};

double pbv[3][1*C4]=
{
  1,1,-1,1,
  2,1, 0,1,
  0,1, 4,1,
};mzF mv={3,1*C4,&pbv[0][0]};

/*-------------------------------- PROGRAM ---------------------------------- */
  clrscrn();

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

  Distance = distanceP2_zF(&mu,&mv);      /* It is the square of the distance.*/
  printf(" d(u,v) =  =  (");
  p_rl_zF(Distance);
  printf(")**(1/2)\n\n");

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

 return 0;
}