7楼: Originally posted by NicoleLas at 2015-01-07 16:28:58
bug?
  运行你的代码画出三幅图，两个单独的和一个整体的；运行楼主的代码画出符合好要求的图。...

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]]