Question

编写一个程序Mathematica

用Mathematica 编写一个程序 满足我给的条件的点的轨迹 条件任意 比如 到定点距离的差 不变的点的轨迹 当然要比这个复杂 可以是积 或者 平方啥的

Answer 1

pt = {2, 2};
ContourPlot[ Sqrt[(x - pt[[1]])^2 + (y - pt[[2]])^2] == 2, {x, 0, 4}, {y, 0, 4}]

pt是定点的坐标
Sqrt[(x - pt[[1]])^2 + (y - pt[[2]])^2] == 2是条件，pt[[1]]表示定点的x坐标，pt[[2]]表示定点的y坐标，这个条件的意思是到定点的距离为2。更复杂的条件可以通过更改这个部分实现
{x, 0, 4}, {y, 0, 4}是作图范围

追问

可是我执行无法执行

Answer 2

例子很多，简单有趣的：
奇妙的3与德梅齐里亚克砝码问题与Mathematica编程
https://wenku.baidu.com/view/e9e09f1cd7bbfd0a79563c1ec5da50e2534dd154.html