yiinitz.h

[[ Complex Matrices : Language c]]

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

/* ------------------------------------- FUNCTION --------------------------  */
/* Do    :                                                                    */
/*                                                                            */
/* -------------------------------------------------------------------------- */
complexF initD_zF(
double r_n,
double r_d,
double i_n,
double i_d)
{
complexF zt;

      zt.r.n = r_n;
      zt.r.d = r_d;
      zt.i.n = i_n;
      zt.i.d = i_d;

	return (zt);
}

/* ------------------------------------- FUNCTION --------------------------  */
/* Do    :                                                                    */
/*                                                                            */
/* -------------------------------------------------------------------------- */
complexF initF_zF(
fraction fr,
fraction fi
)
{
complexF zt;

      zt.r = fr;
      zt.i = fi;

	return (zt);
}


/* ------------------------------ FUNCTION ---------------------------------- */
fraction Re_zF(
complexF z)
{
  return(mini_F(z.r));
}

/* ------------------------------ FUNCTION ---------------------------------- */
fraction Im_zF(
complexF z)
{
  return(mini_F(z.i));
}