view bcrc @ 0:6d5c73fe5744

Go over to mercurial from CVS.
author kent <kent@cr.ie.u-ryukyu.ac.jp>
date Sat, 15 Nov 2008 00:32:22 +0900
parents
children 2eceeda82a9f
line wrap: on
line source

define atan(a){
	return a(a)
}
define log_e(a){
	return l(a)
}
define log(a,b){
	return l(b)/l(a)
}
define sin(a){
	return s(a)
}
define cos(a){
	return c(a)
}
define exp(a){
	return e(a)
}
define pow(a,b){
	return e(b*l(a))
}
define fact(n){
	if(n>1) {
		return n*fact(n-1);
	}else{
		return 1;
	}
}

pi = 4*atan(1);