view release on metacpan or  search on metacpan

Random.xs  view on Meta::CPAN

pgnmul (n,ncat)
	long  n
	long  ncat

long
gvpriw (index)
	long  index

double
gennch (df,xnonc)
	double  df
	double  xnonc

double
gennf (dfn,dfd,xnonc)
	double  dfn
	double  dfd
	double  xnonc

double
gennor (av,sd)
	double  av
	double  sd

void
pgnprm (n)
	long  n
	PROTOTYPE: $

double
genunf (low,high)
	double  low
	double  high

long
ignpoi (mu)
	double  mu

long
ignuin (low,high)
	long  low
	long  high

long
ignnbn (n,p)
	long  n
	double  p

long
ignbin (n,pp)
	long  n
	double  pp

void
phrtsd (phrase)
	char *  phrase
	PROTOTYPE: $
	PREINIT:
	long  newseed1;
	long  newseed2;
	PPCODE:
	phrtsd(phrase,&newseed1,&newseed2);
	EXTEND(sp, 2);
	PUSHs(sv_2mortal(newSViv(newseed1)));
	PUSHs(sv_2mortal(newSViv(newseed2)));

void
random_get_seed ()
	PROTOTYPE:
	PREINIT:
	long  newseed1;
	long  newseed2;
	PPCODE:
	getsd(&newseed1,&newseed2);
	EXTEND(sp, 2);
	PUSHs(sv_2mortal(newSViv(newseed1)));
	PUSHs(sv_2mortal(newSViv(newseed2)));

void
salfph (phrase)
	char *  phrase
	PROTOTYPE: $

void
setall (iseed1,iseed2)
	long  iseed1
	long  iseed2
	PROTOTYPE: $$


void
random_advance_state (k)
    long  k
    CODE:
    if ( k < 0 )
        croak("incorrect value for k; must be >=0");
    advnst(k);

void
random_init_generator (isdtyp)
    long  isdtyp
    CODE:
    if ( isdtyp != -1 && isdtyp != 0 && isdtyp != 1)
        croak("incorrect value for isdtyp; must be -1, 0, or 1");
    initgn(isdtyp);

void
random_set_antithetic (qvalue)
    long  qvalue
    CODE:
    setant(qvalue);

long
random_get_generator_num ()
    PREINIT:
      long old_g;
    CODE:
      gscgn(0, &old_g);
      RETVAL = old_g;
    OUTPUT:
      RETVAL

long
random_set_generator_num ( g)
      long g
    PREINIT:
      long old_g;
    CODE:
      if ( g < 1 || g > 32 )
        croak("incorrect value for 'g'; must be 1 <= g <= 32");
      gscgn(0, &old_g);
      RETVAL = old_g;
      gscgn(1, &g);