代码搜索结果
找到约 10,000 项符合
R 的代码
r2.c
#include "r.h"
extern int hollerith;
char outbuf[80];
int outp = 0;
int cont = 0;
int contchar = '&';
char comment[320];
int comptr = 0;
int indent = 0;
outdon() {
outbuf[outp] = '\0';
if (outp
r0.c
#include "r.h"
int swlevel = -1;
int swexit[5];
int nextcase[5];
swcode() {
transfer = 0;
putcom("switch");
swlevel++;
if (swlevel >= 5)
error("Switches nested > 5");
swexit[swlevel] = yyval
r_abs.c
double r_abs(x)
float *x;
{
if(*x >= 0)
return(*x);
return(- *x);
}
r_tanh.c
double r_tanh(x)
float *x;
{
double tanh();
return( tanh(*x) );
}
r_asin.c
double r_asin(x)
float *x;
{
double asin();
return( asin(*x) );
}
r_log.c
double r_log(x)
float *x;
{
double log();
return( log(*x) );
}
r_atan.c
double r_atan(x)
float *x;
{
double atan();
return( atan(*x) );
}
r_exp.c
double r_exp(x)
float *x;
{
double exp();
return( exp(*x) );
}
r_tan.c
double r_tan(x)
float *x;
{
double tan();
return( tan(*x) );
}
r_int.c
double r_int(x)
float *x;
{
return( (long int) (*x) );
}