text 曼德尔布罗

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了text 曼德尔布罗相关的知识,希望对你有一定的参考价值。

int w0, x, y, c, i, dx, dy, xn, yn, xn1, yn1, t, t2, xmin, ymin, xp, yp;
w0 = openWin(512, 256);
ymin = 0 - 256;
xmin = 0 - 512;
for (y = 256; y > ymin; y--) {
	for (x = xmin; x < 256; x++) {
		xn = 0;
		yn = 0;
		xn1 = 0;
		yn1 = 0;
		for (i = 0; i < 200; i++) {
			t = xn*xn;
			if (t >= 0) { t += 128; t /= 256; } else { t -= 128; t /= 256; }
			xn1 = t;
			t = yn*yn;
			if (t >= 0) { t += 128; t /= 256; } else { t -= 128; t /= 256; }
			xn1 -= t; xn1 += x;

			t = xn*yn; t *= 2;
			if (t >= 0) { t += 128; t /= 256; } else { t -= 128; t /= 256; }
			yn1 = t + y;

			t = xn1*xn1;
			if (t >= 0) { t += 128; t /= 256; } else { t -= 128; t /= 256; }
			t2 = yn1*yn1;
			if (t2 >= 0) { t2 += 128; t2 /= 256; } else { t2 -= 128; t2 /= 256; }
			t+=t2;

			if (t > 1024) {
				xp = x + 512; xp /= 2;
				yp = y + 256; yp /= 2;
				c = rgb(255, 0, 0);
				setPix(w0, xp, yp, c);
				i = 200; // break; だとエラーになる
			} else {
				xn = xn1;
				yn = yn1;
			}
		}
		
	}
}

time;
end;

以上是关于text 曼德尔布罗的主要内容,如果未能解决你的问题,请参考以下文章

将颜色层添加到 mandelbrot 集

放大 Java 中的 Mandelbrot 集分形

递归的逻辑——递归与分形

无心剑中译帕布罗·聂鲁达《今夜我能写》

无心剑中译帕布罗·聂鲁达《今夜我能写》

即使窗口隐藏在托盘中,也使用热键。德尔福可以吗?