Mathematica でグラフを描いてみる |
a = 1; t0 = 0; T = 1; gMalthus = Plot[ Evaluate[Table[x0 Exp[t - t0], {x0, 0, 1.6, 0.2}]], {t, t0, T}, PlotLegends -> "Expressions", AxesLabel -> Automatic] Export["malthus.pdf", gMalthus](Evaluate[] は省略できるが、そうすると曲線の色がみな同じになる。) |
ゼミで gnuplot で描いた人がいた。 gnuplot> に対して
plot [0:2] 0.2*exp(x) replot [0:2] 0.4*exp(x) replot [0:2] 0.6*exp(x) replot [0:2] 0.8*exp(x) replot [0:2] 1*exp(x) replot [0:2] 1.2*exp(x) replot [0:2] 1.4*exp(x) replot [0:2] 1.6*exp(x) replot [0:2] 1.8*exp(x) replot [0:2] 2*exp(x) |
plot [0:2] 0.2*exp(x) replot for [i=2:10] 0.2*i*exp(x) |
(2022/4/16追記) 解決策を見つけた。 title に sprintf() で作った文字列を指定する。
plot [0:2] for [i=1:10] 0.2*i*exp(x) title sprintf("%.1f*exp(x)", i*0.2) |