view bcrc @ 3:8812f32e6124

09/05/25
author kent <kent@cr.ie.u-ryukyu.ac.jp>
date Mon, 25 May 2009 11:42:07 +0900
parents 6d5c73fe5744
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);