吧务
level 15
xzcyr
楼主
具体说来，这，是所谓的“截图”：
而这，才是
我们所希望的代码
文本：
\[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，远离截图！
想要进一步提高求助成功的概率，可以参考以下帖子：
https://tieba.baidu.com/p/2676255684
https://tieba.baidu.com/p/2026341423
最后，求码帖，通删。
2019年05月14日 03点05分
1
而这，才是我们所希望的代码
文本：
\[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，远离截图！
想要进一步提高求助成功的概率，可以参考以下帖子：
https://tieba.baidu.com/p/2676255684
https://tieba.baidu.com/p/2026341423
最后，求码帖，通删。
