免費論壇 繁體 | 簡體
Sclub交友聊天~加入聊天室當版主
分享
返回列表 发帖

分形

转自 http://latex-community.org/compo ... 5-latex-tricks-viii
  1. \documentclass[a4paper]{article}

  2. \newcount \Re \newcount \Im
  3. \newcount \Zr \newcount \Zi
  4. \newcount \Zrr \newcount \Zii \newcount \Ind
  5. \newcommand{\MandIter}{%
  6.   \divide \Zr by 16 \divide \Zi by 16
  7.   \Zrr=\Zr \multiply \Zrr by \Zrr %
  8.   \divide \Zrr by 256
  9.   \Zii=\Zi \multiply \Zii by \Zii %
  10.   \divide \Zii by 256
  11.   \multiply \Zi by \Zr \divide \Zi by 256
  12.   \multiply \Zi by 2 \advance \Zi by \Im
  13.   \Zr=\Zrr \advance \Zr by -\Zii \advance %
  14.   \Zr by \Re
  15.   \let\next=\MandIter
  16.   \count4=\Zrr \advance \count4 by \Zii
  17.   \ifnum \count4>262144 \let\next=\relax \fi
  18.   \ifnum \Ind=15 \let\next=\relax \else %
  19.   \advance \Ind by 1 \fi
  20.   \next
  21. }
  22. \newcommand{\MandLoop}{%
  23.   \Re=\count0
  24.   \multiply \Re by 196608 \divide \Re by \count2 %
  25.   \advance \Re by -131072
  26.   \Im=\count1
  27.   \multiply \Im by 150000 \divide \Im by \count3 %
  28.   \advance \Im by -75000
  29.   \Zr=\Re \Zi=\Im \Ind=0
  30.   \MandIter
  31.   \ifcase \Ind
  32.     .\or .\or :\or -\or +\or =\or *\or i\or I%
  33.     \or H\or O\or X\or M\or \#\or @\or .%
  34.   \fi
  35.   \let\next=\MandLoop
  36.   \advance \count0 by 1
  37.   \ifnum \count0>\count2
  38.     \newline
  39.     \count0=0
  40.     \advance \count1 by 1
  41.     \ifnum \count1>\count3
  42.       \let\next=\relax
  43.     \fi
  44.   \fi \next
  45. }
  46. \newcommand{\Mandel}[2]{
  47.   \count0=0 \count1=0 \count2=#1 \count3=#2
  48.   \MandLoop
  49. }

  50. %  Document
  51. %  --------

  52. \setlength{\parindent}{0pt}
  53. \setlength{\oddsidemargin}{0pt}
  54. \setlength{\topmargin}{0pt}

  55. \begin {document}
  56. \ttfamily
  57. \setlength{\baselineskip}{0pt}
  58. {\small
  59. \Mandel{100}{60}
  60. }
  61. \end {document}
复制代码
编译得到
分享到: QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
$\href{https://kuingggg.github.io/}{\text{About Me}}$

返回列表 回复 发帖