关于图例函数PlotLegends的问题

Question

Clear[k, t, a];
k = 1;
a = {0, 1, 2, 3, 4, 5};
ParametricPlot[{Log[10, Sqrt[k (t^6 - 1) + t^8 - t^2 - #*t^5]],
    Sqrt[k (t^-2 - t^-8) + 1 - t^-6 - #*t^-3]} & /@ a, {t, 1, 10},
 AspectRatio -> 1/2, PlotRange -> {{0, 5}, {0, 1.2}}]

 

输出的图像如下图，可是这个时候每条线的颜色都一样，PlotLegends函数没有用，如何解决每条线的标注问题呢？

补充

解决的方法就是使用Evaluate函数，因为参看ParametricPlot可能存在的问题，使用 ParametricPlot 函数画出来的图像是按照一个整体处理的，画出来的所有曲线都被看成了整体，所以此时使用PlotLegends函数没有用，而添加Evaluate函数就能解决这个问题。

Clear[k, t, a];
k = 1;
a = {0, 1, 2, 3, 4, 5};
ParametricPlot[
 Evaluate[{Log[10, Sqrt[k (t^6 - 1) + t^8 - t^2 - #*t^5]], 
     Sqrt[k (t^-2 - t^-8) + 1 - t^-6 - #*t^-3]} & /@ a, {t, 1, 10}], 
 AspectRatio -> 1/2, PlotRange -> {{-1, 4}, {0, 1.2}}, 
 AxesOrigin -> {-1, 0}, 
 PlotLegends -> 
  Placed[{"s/G=0", "s/G=1", "s/G=2", "s/G=3", "s/G=4", "s/G=5"}, 
   Right]]

 

Comments

请参考ParametricPlot的帮助文档的“可能存在的问题”。

---

明白了，问题解决，谢谢苹果老师^_^

---

既然自己解决了，建议最好把解决方法贴出来，对别人会有帮助。

---

好的，因为看了苹果老师的回复之后发现解决方法非常简单，之前没有注意到这个细节，只要参看ParametricPlot界面下“可能存在的问题”就能马上明白，所以之前就没有把解决方案贴出来，O(∩_∩)O以后会把解决问题后的方案贴出来的

Answer 1

用Evaluate先把绘图函数计算出来就好了：

Clear[k, t, a];
k = 1;
a = {0, 1, 2, 3, 4, 5}
ParametricPlot[
 Evaluate[{Log[10, Sqrt[k (t^6 - 1) + t^8 - t^2 - #*t^5]], 
     Sqrt[k (t^-2 - t^-8) + 1 - t^-6 - #*t^-3]} & /@ a], {t, 1, 10}, 
 AspectRatio -> 1/2, PlotRange -> {{0, 5}, {0, 1.2}}]