分形

kuing

转自 latex-community.org/component/content/article … 95-latex-tricks-viii

1. \documentclass[a4paper]{article}
3. \newcount \Re \newcount \Im
4. \newcount \Zr \newcount \Zi
5. \newcount \Zrr \newcount \Zii \newcount \Ind
6. \newcommand{\MandIter}{%
7.   \divide \Zr by 16 \divide \Zi by 16
8.   \Zrr=\Zr \multiply \Zrr by \Zrr %
9.   \divide \Zrr by 256
10.   \Zii=\Zi \multiply \Zii by \Zii %
11.   \divide \Zii by 256
12.   \multiply \Zi by \Zr \divide \Zi by 256
13.   \multiply \Zi by 2 \advance \Zi by \Im
14.   \Zr=\Zrr \advance \Zr by -\Zii \advance %
15.   \Zr by \Re
16.   \let\next=\MandIter
17.   \count4=\Zrr \advance \count4 by \Zii
18.   \ifnum \count4>262144 \let\next=\relax \fi
19.   \ifnum \Ind=15 \let\next=\relax \else %
20.   \advance \Ind by 1 \fi
21.   \next
22. }
23. \newcommand{\MandLoop}{%
24.   \Re=\count0
25.   \multiply \Re by 196608 \divide \Re by \count2 %
26.   \advance \Re by -131072
27.   \Im=\count1
28.   \multiply \Im by 150000 \divide \Im by \count3 %
29.   \advance \Im by -75000
30.   \Zr=\Re \Zi=\Im \Ind=0
31.   \MandIter
32.   \ifcase \Ind
33.     .\or .\or :\or -\or +\or =\or *\or i\or I%
34.     \or H\or O\or X\or M\or \#\or @\or .%
35.   \fi
36.   \let\next=\MandLoop
37.   \advance \count0 by 1
38.   \ifnum \count0>\count2
39.     \newline
40.     \count0=0
41.     \advance \count1 by 1
42.     \ifnum \count1>\count3
43.       \let\next=\relax
44.     \fi
45.   \fi \next
46. }
47. \newcommand{\Mandel}[2]{
48.   \count0=0 \count1=0 \count2=#1 \count3=#2
49.   \MandLoop
50. }
52. %  Document
53. %  --------
55. \setlength{\parindent}{0pt}
56. \setlength{\oddsidemargin}{0pt}
57. \setlength{\topmargin}{0pt}
59. \begin {document}
60. \ttfamily
61. \setlength{\baselineskip}{0pt}
62. {\small
63. \Mandel{100}{60}
64. }
65. \end {document}

Copy the Code

编译得到