Function Mathematica：简化函数表示法

我有一些任意函数的计算。在输出中，Mathematica始终显示函数参数。我想通过在输出中隐藏参数来稍微整理一下符号。我该怎么做？或者更好，有没有一种方法可以在代码中只编写一次函数参数？记住这是一个任意函数

例如，它是这样的：

f[x,y] + (f[x,y])^2 = ...

f + f^2 = ...

我更喜欢这样：

f[x,y] + (f[x,y])^2 = ...

f + f^2 = ...

---

谢谢

你是说只是为了展示？可能是一个简单的

/。

Clear[x, y, f]
expr = f[x, y] + (f[x, y])^2 == 34;
expr /. f[__] -> f

给予

您甚至可以修改

$PrePrint

来自动执行此操作

Clear[x,y,f]
$PrePrint=#/.f[__]->f&;
expr=f[x,y]+(f[x,y])^2==34

Out[6]= f+f^2==34

expr
Out[7]= f+f^2==34

要想把它拿回来，你必须

$PrePrint=.
expr

Out[10]= f[x,y]+f[x,y]^2==34

---

我自己在实际编程中没有勇气这么做，但它是用来尝试的。

你的意思是仅仅为了显示？可能是一个简单的

/。

Clear[x, y, f]
expr = f[x, y] + (f[x, y])^2 == 34;
expr /. f[__] -> f

给予

您甚至可以修改

$PrePrint

来自动执行此操作

Clear[x,y,f]
$PrePrint=#/.f[__]->f&;
expr=f[x,y]+(f[x,y])^2==34

Out[6]= f+f^2==34

expr
Out[7]= f+f^2==34

要想把它拿回来，你必须

$PrePrint=.
expr

Out[10]= f[x,y]+f[x,y]^2==34

---

我没有足够的勇气在实际编程中亲自做这件事，但它是可以尝试的。

如何根据第一个建议创建一个函数来完成这项工作？所以它会替换表达式中出现的所有函数？我对数学一无所知。在这里尝试过，但没有成功。如何根据第一个建议创建一个函数来完成这项工作？所以它会替换表达式中出现的所有函数？我对数学一无所知。在这里尝试过，但没有成功。