yrndzf.h

[[ Complex Matrices : Language c]]

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

/* ------------------------------ FUNCTION --------------------------- rnd_F() */
/*Call :   time_t t;                                                          */
/*       complexF z;                                                          */
/*                                                                            */
/*        srand(time(&t));                                                    */
/*           z = rnd_F(9,9);                                                   */
/* -------------------------------------------------------------------------- */
complexF rnd_zF(
int maxn,
int maxd)
{
complexF z;

    z.r.n  = rnd_I (maxn);    z.r.d  = rndp_I(maxd);
    z.i.n  = rnd_I (maxn);    z.i.d  = rndp_I(maxd);

    z.r = mini_F(z.r);
    z.i = mini_F(z.i);

 return(z);
}

/* ------------------------------ FUNCTION --------------------------- rnd_F() */
/*Call :   time_t t;                                                          */
/*       complexF z;                                                          */
/*                                                                            */
/*        srand(time(&t));                                                    */
/*           z = rnd_F(9,9);                                                   */
/* -------------------------------------------------------------------------- */
complexF rnd0_zF(
int maxn,
int maxd)
{
complexF z;

    z.r.n  = rnd0_I (maxn);    z.r.d  = rndp_I(maxd);
    z.i.n  = rnd0_I (maxn);    z.i.d  = rndp_I(maxd);

    z.r = mini_F(z.r);
    z.i = mini_F(z.i);

 return(z);
}


/* ------------------------------ FUNCTION --------------------------- rnd_F() */
/*Call :   time_t t;                                                          */
/*       complexF z;                                                          */
/*                                                                            */
/*        srand(time(&t));                                                    */
/*           z = rnd_F(9,9);                                                   */
/* -------------------------------------------------------------------------- */
complexF rnd_zI(
int maxn
)
{
complexF z;

    z.r.n  = rnd_I (maxn);    z.r.d  = 1;
    z.i.n  = rnd_I (maxn);    z.i.d  = 1;

 return(z);
}