mathematica中画一条垂直于x轴或y轴的平行线

函数：ContourPlot

示例代码

Clear["`*"];
a = 1;
c = -2;
ContourPlot[{x == a + c, y == 2*a + 3*c}, {x, -5, 5}, {y, -5, 5}, 
 Axes -> True, Frame -> False, PlotLegends -> {"1", "2"}]
ContourPlot[{x == a + c, x == 2*a + 3*c, y == a + c, 
  y == 2*a + 3*c}, {x, -5, 5}, {y, -5, 5}, Axes -> True, 
 Frame -> False, PlotLegends -> {"1", "2", "3", "4"}]

示例结果