用Mathematica求分式零点和极点，并用 不同的符号画图将零点和极点表示出来

要用Mathematica求一个分式函数的零点和极点，并将它们表示在图像上，可以使用Solve和Reduce函数，以及Plot函数。

例如，要求函数f(x)=(x^2-4)/(x^2-5x+6)的零点和极点，并将它们表示在图像上，可以这样做：

1. 求零点和极点：

使用Solve函数，将分式f(x)=0，解出x的值：

zeros = Solve[(x^2-4)/(x^2-5x+6)==0, x]
poles = Reduce[(x^2-5x+6)!=0, x]

输出：

zeros: {{x -> -2}, {x -> 2}}
poles: x == 1 || x == 4

即f(x)的零点为-2和2，极点为1和4。

2. 画出图像：

使用Plot函数，画出f(x)的图像，并将零点和极点用不同的符号表示出来：

Plot[(x^2-4)/(x^2-5x+6), {x, -5, 5}, 
 Epilog -> {PointSize[Large], 
   Point[{{-2, 0}, {2, 0}, {1, (1^2-4)/(1^2-5*1+6)}, {4, (4^2-4)/(4^2-5*4+6)}}], 
   Text["Zero", {-2.2, 0.3}], Text["Zero", {2.2, 0.3}], 
   Text["Pole", {1.2, -2.5}], Text["Pole", {4.2, 2.5}]}]

输出：


即为分式函数f(x)的图像，其中蓝色的点表示零点，红色的点表示极点。