Return to atand.bc CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / cci / libM

BSD 4.3tahoe

define m() {

	for (t = 0; t < 256; t++) {
		j=x(t);
		x[t];
	}

	for (t = 0; t < 64; t++) {
		j=y(t);
		y[t];
	}
}


define x(t) {

	if (t < 128) {
		x[t] = a(0.5 + t/256.0 + 1.0/512.0);
		return;
	}

	x[t] = a(t/128.0 + 1.0/256.0);
}


define y(t) {

	y[t] = a(t/128.0);
}

scale = 40
j=m()
quit

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.