☰

在 Latex 中创建图表-容易学习吗？

tag-icon • tag-icon tikz-pgf pgfplots plot wolfram-mathematica
在 Latex 中创建图表-容易学习吗？

我目前正在从事我的暑期项目，为此我使用 Mathematica 创建了以下图表：

在此处输入图片描述

现在我对结果不是 100% 满意，我的一位教授推荐了 PGF 和 TikZ。问题是我对 PGF 和 TikZ 一无所知，而且我必须在 1.5 个月内提交我的项目。

那么，我应该尝试学习如何beautiful使用 PGF 和 TikZ 创建图（即是否可以在一周左右的时间内学会它？）还是应该坚持使用我的 Mathematica 图？还有其他选择吗？

编辑：
根据一些人的要求，这里是 Mathematica 代码：

max = 102000;
psi[x0_, y0_] := Module[{x = x0, y = y0, n = 2, c = 0}, 
  Do[If[Max[First[Transpose[FactorInteger[n]]]] <= y, c++]; n++;, {x}]; c]
data = Parallelize[Table[{n, psi[n, Ceiling[Sqrt[n]]]/n*100}, {n, 2, max, 1000}]];
p1 = Plot[{PrimePi[Sqrt[n]]/PrimePi[n]*100}, {n, 2, max}, PlotRange -> {{0, max}, {0, 55}},
   PlotStyle -> {Gray, Thick}, Epilog -> {Inset[Style["\[Pi](\!\(\*SqrtBox[\(n\)]\))/\[Pi](n)",
   FontSize -> 13, Bold], {40000, 7}], Inset[Style["\[Psi](n,\!\(\*SqrtBox[\(n\)]\))/n",
   FontSize -> 13, Bold], {max/2, 43}]}];
p2 = ListLinePlot[data, PlotRange -> {{0, max}, {0, 100}}, PlotStyle -> {Thick, Gray}];
p3 = Plot[{30}, {n, 2, max}, PlotRange -> {{0, max}, {0, 100}}, PlotStyle -> {Gray, Dashed}];
Show[p1, p2, p3, AxesLabel -> Table[Text[Style[{"n", "%"}[[i]], FontSize -> 13, Bold, Italic]],
   {i, 1, 2}], Ticks -> {Table[1/10*(max - 2000)*k, {k, 0, 9, 3}], Table[10 k, {k, 1, 10}]}]

相关内容