4楼: Originally posted by xzczd at 2015-01-07 15:20:05
……仔细一看发现版本10好像还是有点Bug。（虚线没出来……）而且考虑到楼主可能暂时不想装既没出中文版Bug也还比较多的版本10也可能不想用好卡好卡的Wolfram Cloud，这里给出一个版本9的变通方法：

contour :=  ...

ContourPlot[{1.5 x^2 + 2 x y - 1.5 y^2}/5, {x, -10,10}, {y, -10, 10}, ContourStyle -> {Red}, Frame -> False,Axes -> True, ContourShading -> None,PlotLegends -> {"\[Psi](x,y)"}]
ContourPlot[{x^2 - 3 x y - y^2}/5, {x, -10,10}, {y, -10, 10}, ContourStyle -> {Dashed}, Frame -> False,Axes -> True, ContourShading -> None,PlotLegends -> { "\[Phi](x,y)"}]
Show[%%,%]

contour[expr_, color_] :=
ContourPlot[expr, {x, -10, 10}, {y, -10, 10}, ContourStyle -> color,
  ContourShading -> None]

Show@MapThread[
   contour, {{1.5 x^2 + 2 x y - 1.5 y^2, x^2 - 3 x y - y^2}/5, {Red,
     Dashed}}] /.
Graphics[a__] :>
  Legended[Graphics[a],
   Placed[LineLegend[{Red, Dashed}, {"\[Psi](x,y)", "\[Phi](x,y)"}],
    After]]