代码搜索结果
找到约 10,000 项符合
R 的代码
r_cosh.c
double r_cosh(x)
float *x;
{
double cosh();
return( cosh(*x) );
}
r_cos.c
double r_cos(x)
float *x;
{
double cos();
return( cos(*x) );
}
r_sin.c
double r_sin(x)
float *x;
{
double sin();
return( sin(*x) );
}
r_sinh.c
double r_sinh(x)
float *x;
{
double sinh();
return( sinh(*x) );
}
r_cnjg.c
#include "complex"
r_cnjg(r, z)
complex *r, *z;
{
r->real = z->real;
r->imag = - z->imag;
}
r_nint.c
double r_nint(x)
float *x;
{
return( (*x)>=0 ?
(long int) (*x + .5) : (long int) (*x - .5) );
}
r_sqrt.c
double r_sqrt(x)
float *x;
{
double sqrt();
return( sqrt(*x) );
}
r_sign.c
double r_sign(a,b)
float *a, *b;
{
float x;
x = (*a >= 0 ? *a : - *a);
return( *b >= 0 ? x : -x);
}
r_imag.c
#include "complex"
double r_imag(z)
complex *z;
{
return(z->imag);
}
r_mod.c
double r_mod(x,y)
float *x, *y;
{
return(*x - (*y) * ( (long int) (*x / *y)) );
}