Return to atan.bc CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.lib / libm

Power 6/32 Unix version 1.21

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.