ypz.h

[[ Complex Matrices : Language c]]

/* .h                          free ware                   [e-mail]  */

/* ------------------------------------- FUNCTION --------------------------  */
/* Do    :                                                                    */
/*                                                                            */
/* -------------------------------------------------------------------------- */
void p_zF(
complexF z)
{
  printf("(%.0f/%.0f, %.0f/%.0f)",
            z.r.n,
            z.r.d,
            z.i.n,
            z.i.d);
}

/* ------------------------------------- FUNCTION --------------------------  */
/* Do    :                                                                    */
/*                                                                            */
/* -------------------------------------------------------------------------- */
void p_izF(
complexF z)
{
  printf(" %.0f/%.0f %+.0f/%.0f*I ",
            z.r.n,
            z.r.d,
            z.i.n,
            z.i.d);
}


/* ------------------------------------- FUNCTION --------------------------  */
/* Do    :                                                                    */
/*                                                                            */
/* -------------------------------------------------------------------------- */
void p_zI(
complexF z)
{
  printf("(%.0f, %.0f)",
            z.r.n,
            z.i.n);
}

/* ------------------------------------- FUNCTION --------------------------  */
/* Do    :                                                                    */
/*                                                                            */
/* -------------------------------------------------------------------------- */
void p_izI(
complexF z)
{
  printf(" %.0f %+.0f*I ",
            z.r.n,
            z.i.n);
}

/* ------------------------------------- FUNCTION --------------------------  */
/* Do    :                                                                    */
/*                                                                            */
/* -------------------------------------------------------------------------- */
void p_rl_zF(
complexF z)
{
  printf("%.0f/%.0f", z.r.n, z.r.d);
}

/* ------------------------------------- FUNCTION --------------------------  */
/* Do    :                                                                    */
/*                                                                            */
/* -------------------------------------------------------------------------- */
void p_im_zF(
complexF z)
{
  printf("%.0f/%.0f", z.i.n, z.i.d);
}

/* ------------------------------------- FUNCTION --------------------------  */
/* Do    :                                                                    */
/*                                                                            */
/* -------------------------------------------------------------------------- */
void p_rl_zI(
complexF z)
{
  printf("%.0f", z.r.n);
}

/* ------------------------------------- FUNCTION --------------------------  */
/* Do    :                                                                    */
/*                                                                            */
/* -------------------------------------------------------------------------- */
void p_im_zI(
complexF z)
{
  printf("%.0f", z.i.d);
}