繁體
|
簡體
Sclub交友聊天~加入聊天室當版主
(檢舉)
分享
新浪微博
QQ空间
人人网
腾讯微博
Facebook
Google+
Plurk
Twitter
Line
快速注册
登录
论坛
搜索
帮助
原始风格
brown
purple
green
red
orange
gray
pink
violet
blue
greyish-green
jeans
greenwall
私人消息 (0)
公共消息 (0)
系统消息 (0)
好友消息 (0)
帖子消息 (0)
应用通知 (0)
应用邀请 (0)
悠闲数学娱乐论坛(第2版)
»
TeX / LaTeX
» 分形
返回列表
发帖
kuing
发短消息
加为好友
kuing
当前离线
UID
1
帖子
8832
主题
619
精华
0
积分
66354
威望
113
阅读权限
200
性别
男
来自
广东广州
在线时间
21788 小时
注册时间
2013-6-13
最后登录
2024-3-9
1
#
跳转到
»
倒序看帖
打印
字体大小:
t
T
发表于 2015-2-2 21:29
|
只看该作者
分形
转自
http://latex-community.org/compo ... 5-latex-tricks-viii
\documentclass[a4paper]{article}
\newcount \Re \newcount \Im
\newcount \Zr \newcount \Zi
\newcount \Zrr \newcount \Zii \newcount \Ind
\newcommand{\MandIter}{%
\divide \Zr by 16 \divide \Zi by 16
\Zrr=\Zr \multiply \Zrr by \Zrr %
\divide \Zrr by 256
\Zii=\Zi \multiply \Zii by \Zii %
\divide \Zii by 256
\multiply \Zi by \Zr \divide \Zi by 256
\multiply \Zi by 2 \advance \Zi by \Im
\Zr=\Zrr \advance \Zr by -\Zii \advance %
\Zr by \Re
\let\next=\MandIter
\count4=\Zrr \advance \count4 by \Zii
\ifnum \count4>262144 \let\next=\relax \fi
\ifnum \Ind=15 \let\next=\relax \else %
\advance \Ind by 1 \fi
\next
}
\newcommand{\MandLoop}{%
\Re=\count0
\multiply \Re by 196608 \divide \Re by \count2 %
\advance \Re by -131072
\Im=\count1
\multiply \Im by 150000 \divide \Im by \count3 %
\advance \Im by -75000
\Zr=\Re \Zi=\Im \Ind=0
\MandIter
\ifcase \Ind
.\or .\or :\or -\or +\or =\or *\or i\or I%
\or H\or O\or X\or M\or \#\or @\or .%
\fi
\let\next=\MandLoop
\advance \count0 by 1
\ifnum \count0>\count2
\newline
\count0=0
\advance \count1 by 1
\ifnum \count1>\count3
\let\next=\relax
\fi
\fi \next
}
\newcommand{\Mandel}[2]{
\count0=0 \count1=0 \count2=#1 \count3=#2
\MandLoop
}
% Document
% --------
\setlength{\parindent}{0pt}
\setlength{\oddsidemargin}{0pt}
\setlength{\topmargin}{0pt}
\begin {document}
\ttfamily
\setlength{\baselineskip}{0pt}
{\small
\Mandel{100}{60}
}
\end {document}
复制代码
编译得到
收藏
分享
分享到:
QQ空间
腾讯微博
腾讯朋友
$\href{https://kuingggg.github.io/}{\text{About Me}}$
返回列表
回复
发帖
[收藏此主题]
[关注此主题的新回复]
[通过 QQ、MSN 分享给朋友]