Esempio n. 1
0
/*
obj prod_eval0(list l, obj (*func)(obj, obj)){
	obj lt,rt,rr;
	assert(!! l);
	lt = eval(fpp(l));
	rr = lt;
	for(; l; ){
		rt = eval(fpp(l));
		rr = call_fn(func, lt, rt);
		release(lt);
		release(rt);
		lt = rr;
	}
	return rr;
}
*/
obj prod_eval(list l, obj (*func)(obj, obj)){
	assert(!! l);
	obj rr = eval(fpp(l));
	for(; l; ){
		push(rr);
		push(eval(fpp(l)));
		rr = call_fn(func, sp1, sp0);
		release(pop(&is));
		release(pop(&is));
	}
	return rr;
}
Esempio n. 2
0
inline obj evalCond(obj exp){
	list l = ul(exp);
	push(eval(fpp(l)));
	push(eval(fpp(l)));
	int c = uint(fpp(l));
	obj rr = compare(c, sp1, sp0);
	release(sp1);
	sp1 = rr;
	for(; l;){
		push(eval(fpp(l)));
		c = uint(fpp(l));
		sp2 = and1(sp2, compare(c, sp1, sp0)); // and1 releases both
		release(sp1);
		sp1 = sp0;
		pop(&is);	// should be nil
	}
	release(pop(&is));
	return pop(&is);
}
Esempio n. 3
0
obj exec(obj v){
	obj rr=nil;
	if(type(v)!=LIST && type(v)!=tExec) return eval(v);
	for(list l = ul(v); l; ){
		if(rr) release(rr);
		rr = eval(fpp(l));
		if(rr && type(rr)==tSigRet) break;
		if(rr && type(rr)==tBreak) break;
	}
	return rr;
}
Esempio n. 4
0
int main(){
	enum{
		NP   = 128,
		NC   = 8,
		NC3  = NC*NC*NC,
		PFMM = 7,
		ICUT = 2,
	};
	typedef Cell_FMM<PFMM>	Cell_t;

	static Particle ptcl[NP];
	static Cell_t   cell[NC][NC][NC];
	const double clen = 1.0 / NC;

	for(int k=0; k<NC; k++){
		for(int j=0; j<NC; j++){
			for(int i=0; i<NC; i++){
				cell[k][j][i].set(ivec3(i,j,k), clen);
			}
		}
	}

	Particle::gen_rand_dist(NP, ptcl);
	double msum = 0.0;
	for(int i=0; i<NP; i++){
		msum += ptcl[i].mass;
	}
	// printf("msum = %e\n", msum);
	for(int i=0; i<NP; i++){
		const ivec3 idx = cell_nearest(ptcl[i].pos, clen);
		assert(0 <= idx.x && idx.x < NC);
		assert(0 <= idx.y && idx.y < NC);
		assert(0 <= idx.z && idx.z < NC);
		cell[idx.z][idx.y][idx.x].plist.push_back(&ptcl[i]);
	}

	for(int k=0; k<NC; k++) for(int j=0; j<NC; j++) for(int i=0; i<NC; i++){
		cell[k][j][i].sanity_check();
	}

	puts("Eval PP");
	PP_interact_OBC<PFMM, ICUT, NC, NC, NC>  (cell);

	puts("Gen Green");
	static GreenFunction_OBC<PFMM, NC, NC, NC> gf;
	gf.gen_gf_r(ICUT, 1./NC);
	gf.gen_gf_k();

	puts("Eval PM");
	Cell_t *cell1d = cell[0][0];
	for(int i=0; i<NC3; i++){
		cell1d[i].do_P2M();
	}

	M2L_convolution_OBC<PFMM, NC, NC, NC> (gf, cell);

	for(int i=0; i<NC3; i++){
		cell1d[i].do_L2P();
	}

	dvec3 fpp(0.0), fpm(0.0);
	for(int i=0; i<NP; i++){
		fpp += ptcl[i].mass * ptcl[i].acc_direct;
		fpm += ptcl[i].mass * ptcl[i].acc_app;
	}
	printf("PP ftot : (%e, %e, %e)\n", fpp.x, fpp.y, fpp.z);
	printf("PM ftot : (%e, %e, %e)\n", fpm.x, fpm.y, fpm.z);

	for(int i=0; i<NP; i++){
		ptcl[i].move_accp();
	}

	puts("eval dirct force");
#pragma omp parallel for
	for(int i=0; i<NP; i++){
		Particle &pi = ptcl[i];
		for(int j=0; j<NP; j++){
			const Particle pj = ptcl[j];
			if(j == i) continue;
			const dvec3  dr  = pj.pos - pi.pos;
			const double r2  = dr*dr;
			const double ri2 = 1.0 / r2;
			const double ri  = sqrt(ri2);
			const double ri3 = ri * ri2;
			pi.phi_direct += pj.mass * ri;
			pi.acc_direct += (pj.mass * ri3) * dr;
		}
	}

#if 1
	std::vector<double> err(NP);
	for(int i=0; i<NP; i++) err[i] = ptcl[i].adiff_rel();
	std::sort(err.begin(), err.end());
	print_err(err, "adiffr", ICUT, PFMM);

	for(int i=0; i<NP; i++) err[i] = ptcl[i].pdiff_rel();
	std::sort(err.begin(), err.end());
	print_err(err, "pdiffr", ICUT, PFMM);
#endif

	return 0;
}
Esempio n. 5
0
inline list evalList(list l){
	push(List2v((list)nil));
	for(;l;) ul(sp0) = cons(eval(fpp(l)), ul(sp0));
	obj rr = pop(&is);
	return reverse(strip2list(rr));
}