zrndf.h

来自「[[ Complex Matrices : Language c]]」· C头文件 代码 · 共 62 行

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

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

    f.n  = rnd_I (maxn);
    f.d  = rndp_I(maxd);

 return(mini_F(f));
}

/* ------------------------------ FUNCTION --------------------------- rnd_F() */
/*Call :   time_t t;                                                          */
/*       fraction f;                                                          */
/*                                                                            */
/*        srand(time(&t));                                                    */
/*           f = rnd_F(9,9);                                                   */
/* -------------------------------------------------------------------------- */
fraction rnd0_F(
int maxn,
int maxd)
{
fraction f;

    f.n  = rnd0_I(maxn);
    f.d  = rndp_I(maxd);

 return(mini_F(f));
}


/* ------------------------------ FUNCTION --------------------------- rnd_F() */
/*Call :   time_t t;                                                          */
/*       fraction f;                                                          */
/*                                                                            */
/*        srand(time(&t));                                                    */
/*           f = rnd_F(9,9);                                                   */
/* -------------------------------------------------------------------------- */
fraction rnd_FI(
int maxn
)
{
fraction f;

    f.n  = rnd_I (maxn);
    f.d  = 1;

 return(f);
}