level 3
请问有没有什么指令可以把mma默认的手写形式转化成一行数学表达式的形式，其中用/表示分数，用sqrt表示根式，并且自动补全字母变量之间的乘号*和必须的括号？（类似matlab和一些不支持符号计算软件的那种的输入方式？）
2019年05月08日 06点05分
1
level 14
InputForm？
2019年05月08日 12点05分
2
这样确实基本满足了，不过要往其他软件转移的话要改大小写，把方括号改成圆括号
2019年05月08日 12点05分
@_ImmanuelKant 其它软件还有好多函数没有呢，不可能都满足的
2019年05月08日 12点05分
Clear[r] 1/Sqrt[x^2 + y^2] /. Sqrt[x^2 + y^2] -> r 我简化了下，发现这个式子并不能被替换为1/r，这是怎么回事啊。我是个初学者，想暂时用这个软件做简化计算的工具，可是前几天遇到这个变量替换的问题让我头疼，如果我不能解决这问题的话，复杂式子的机械代换，草稿推导看来还得靠手动
2019年05月08日 13点05分
@_ImmanuelKant 因为它会变成(x^2 + y^2)^(-1/2)，详细看这篇https://tieba.baidu.com/p/5728734141
2019年05月08日 13点05分
level 3
(x (-a + Sqrt[x^2 + y^2]) ((c x)/Sqrt[x^2 + y^2] +
b Sin[\[Alpha]]))/((-a + b) Sqrt[
x^2 + y^2] (y Cos[\[Alpha]] - x Sin[\[Alpha]])) + (
x (-a + Sqrt[x^2 + y^2]) Sin[\[Alpha]] (c Sqrt[x^2 + y^2] -
b (y Cos[\[Alpha]] - x Sin[\[Alpha]])))/((-a + b) Sqrt[
x^2 + y^2] (y Cos[\[Alpha]] - x Sin[\[Alpha]])^2) + (
x^2 (c Sqrt[x^2 + y^2] -
b (y Cos[\[Alpha]] - x Sin[\[Alpha]])))/((-a + b) (x^2 +
y^2) (y Cos[\[Alpha]] - x Sin[\[Alpha]])) - (
x^2 (-a + Sqrt[x^2 + y^2]) (c Sqrt[x^2 + y^2] -
b (y Cos[\[Alpha]] - x Sin[\[Alpha]])))/((-a + b) (x^2 + y^2)^(
3/2) (y Cos[\[Alpha]] - x Sin[\[Alpha]])) + ((-a + Sqrt[
x^2 + y^2]) (c Sqrt[x^2 + y^2] -
b (y Cos[\[Alpha]] - x Sin[\[Alpha]])))/((-a + b) Sqrt[
x^2 + y^2] (y Cos[\[Alpha]] - x Sin[\[Alpha]]))
2019年05月08日 14点05分
3
b Sin[\[Alpha]]))/((-a + b) Sqrt[
x^2 + y^2] (y Cos[\[Alpha]] - x Sin[\[Alpha]])) + (
x (-a + Sqrt[x^2 + y^2]) Sin[\[Alpha]] (c Sqrt[x^2 + y^2] -
b (y Cos[\[Alpha]] - x Sin[\[Alpha]])))/((-a + b) Sqrt[
x^2 + y^2] (y Cos[\[Alpha]] - x Sin[\[Alpha]])^2) + (
x^2 (c Sqrt[x^2 + y^2] -
b (y Cos[\[Alpha]] - x Sin[\[Alpha]])))/((-a + b) (x^2 +
y^2) (y Cos[\[Alpha]] - x Sin[\[Alpha]])) - (
x^2 (-a + Sqrt[x^2 + y^2]) (c Sqrt[x^2 + y^2] -
b (y Cos[\[Alpha]] - x Sin[\[Alpha]])))/((-a + b) (x^2 + y^2)^(
3/2) (y Cos[\[Alpha]] - x Sin[\[Alpha]])) + ((-a + Sqrt[
x^2 + y^2]) (c Sqrt[x^2 + y^2] -
b (y Cos[\[Alpha]] - x Sin[\[Alpha]])))/((-a + b) Sqrt[
x^2 + y^2] (y Cos[\[Alpha]] - x Sin[\[Alpha]]))
level 3
Clear[f, r];
f := (x*(-a + Sqrt[x^2 + y^2])*(c*Sqrt[x^2 + y^2] -
b*(y*Cos[\[Alpha]] - x*Sin[\[Alpha]])))/((-a + b)*
Sqrt[x^2 + y^2]*(y*Cos[\[Alpha]] - x*Sin[\[Alpha]]));
r := Sqrt[x^2 + y^2];
Refine[D[f, x] /. {x^2 + y^2 -> r^2}, r > 0]
2019年05月08日 15点05分
4
f := (x*(-a + Sqrt[x^2 + y^2])*(c*Sqrt[x^2 + y^2] -
b*(y*Cos[\[Alpha]] - x*Sin[\[Alpha]])))/((-a + b)*
Sqrt[x^2 + y^2]*(y*Cos[\[Alpha]] - x*Sin[\[Alpha]]));
r := Sqrt[x^2 + y^2];
Refine[D[f, x] /. {x^2 + y^2 -> r^2}, r > 0]
level 3
Clear[f, r];
f := (x*(-a + Sqrt[x^2 + y^2])*(c*Sqrt[x^2 + y^2] -
b*(y*Cos[\[Alpha]] - x*Sin[\[Alpha]])))/((-a + b)*
Sqrt[x^2 + y^2]*(y*Cos[\[Alpha]] - x*Sin[\[Alpha]]));
r := Sqrt[x^2 + y^2];
df = D[f, x];
Clear[f, r];
Refine[df /. {x^2 + y^2 -> r^2}, r > 0]
2019年05月08日 15点05分
5
f := (x*(-a + Sqrt[x^2 + y^2])*(c*Sqrt[x^2 + y^2] -
b*(y*Cos[\[Alpha]] - x*Sin[\[Alpha]])))/((-a + b)*
Sqrt[x^2 + y^2]*(y*Cos[\[Alpha]] - x*Sin[\[Alpha]]));
r := Sqrt[x^2 + y^2];
df = D[f, x];
Clear[f, r];
Refine[df /. {x^2 + y^2 -> r^2}, r > 0]