具体说来，这，是所谓的“截图”：
而这，才是我们所希望的代码文本：
\[Theta]e = Compile[{n, \[CapitalOmega], k}, Nest[# + \[CapitalOmega] - k Sin[2 \[Pi] #] &, 0, n]/n];
dat = Parallelize@Outer[\[Theta]e[500, #2, #] &, Range[0, 1, 1/500], Range[0, 1, 1/500]]; // AbsoluteTiming
ArrayPlot[dat, ColorFunction -> (Blend[{Black, Blue, Green, Yellow, Red}, #] &),
ColorFunctionScaling -> False, DataReversed -> True]
啥？你说直接贴文本不好看？好看有什么用？大多数情况下，答题者不执行一下你的代码，是没法发现你的错误所在的。你提问的时候贴一张图上来，你上传图片累，我们抄着更累，确切地说，多数时候根本没人愿意抄你的代码。
看似杂乱的代码文本，只要贴回软件中，就能恢复原状了，不信你试试？
善用Ctrl+C，Ctrl+V，远离截图！
想要进一步提高求助成功的概率，可以参考以下帖子：
http://tieba.baidu.com/p/2676255684
http://tieba.baidu.com/p/2026341423
最后，求码帖，通删。
而这，才是我们所希望的代码文本：
\[Theta]e = Compile[{n, \[CapitalOmega], k}, Nest[# + \[CapitalOmega] - k Sin[2 \[Pi] #] &, 0, n]/n];
dat = Parallelize@Outer[\[Theta]e[500, #2, #] &, Range[0, 1, 1/500], Range[0, 1, 1/500]]; // AbsoluteTiming
ArrayPlot[dat, ColorFunction -> (Blend[{Black, Blue, Green, Yellow, Red}, #] &),
ColorFunctionScaling -> False, DataReversed -> True]
啥？你说直接贴文本不好看？好看有什么用？大多数情况下，答题者不执行一下你的代码，是没法发现你的错误所在的。你提问的时候贴一张图上来，你上传图片累，我们抄着更累，确切地说，多数时候根本没人愿意抄你的代码。
看似杂乱的代码文本，只要贴回软件中，就能恢复原状了，不信你试试？
善用Ctrl+C，Ctrl+V，远离截图！
想要进一步提高求助成功的概率，可以参考以下帖子：
http://tieba.baidu.com/p/2676255684
http://tieba.baidu.com/p/2026341423
最后，求码帖，通删。
