<< Notation`

Symbolize[ParsedBoxWrapper[\(lx \_ _\)]](*这行用相应的面板输入会比较好看，具体看看帮助*)

Solve[{-6*lx^2*(x - Subscript[lx, 1])^2 +
    12*lx*(x - Subscript[lx, 1])^2*Subscript[lx, 1] - 4*x^3*Subscript[lx, 2] +
         12*lx*(x - Subscript[lx, 1])^2*Subscript[lx, 2] +
    4*Subscript[lx, 1]^3*Subscript[lx, 2] + 2*lx^2*Subscript[lx, 2]^2 -
         4*lx*Subscript[lx, 1]*Subscript[lx, 2]^2 +
    6*Subscript[lx, 1]^2*Subscript[lx, 2]^2 - 4*lx*Subscript[lx, 2]^3 +
         4*Subscript[lx, 1]*Subscript[lx, 2]^3 + Subscript[lx, 2]^4 == 0,
  0 < Subscript[lx, 1] < x < Subscript[lx, 1] + Subscript[lx, 2] < lx}, x, Reals]

2楼: Originally posted by xzczd at 2016-01-08 00:25:38
……下标害的。对现有代码而言最简单的改法是：

<< Notation`

Symbolize(*这行用相应的面板输入会比较好看，具体看看帮助*)

Solve


至于为什么下标不好，解释起来字太多这里就用中文不重复了，有 ...

3楼: Originally posted by 青沙山 at 2016-01-08 10:42:56
谢谢，小白表示仍然不懂呢！

如下图：


第一行看不懂，能给个图吗？

若不用下标，请问还有什么方式表示一个参数序列呢？
尤其是我想对这个参数序列求和，如下例中定义的函数：


fx := -q ...

fx[x_, i_] := (-qx)*f[x] + Sum[ru[u]*f[x - Sum[lv[v], {v, 1, u}]]^0,
       {u, 1, i}]

4楼: Originally posted by xzczd at 2016-01-08 12:27:06
……好吧我忘了这茬了。总之你执行我给的代码前，先按Ctrl+Shift+N把代码转成StandardForm。

至于后一个，直接用中括号啊：

fx := (-qx)*f + Sum[ru*f[x - Sum]^0,
       {u, 1, i}]...

5楼: Originally posted by 青沙山 at 2016-01-08 20:05:53
谢谢你！

Solve解出来有3个解，Reduce解出1个解，解出来的表达式好长！
好像Solve出来的结果仍然没有排除不符合条件的解……
学了3周Mathematica，依然搞不定我要的结果……
总之，非常感谢！...

6楼: Originally posted by xzczd at 2016-01-08 21:42:50
我觉得你这个方程弄解析解意义很有限，你仔细看看Solve给出的解，它是以高阶多项式的根的形式给出的，并且阶数已经大于4了，这基本说明它根本没有通常意义上的解析解。...

7楼: Originally posted by 青沙山 at 2016-01-08 23:07:09
最近一直在弄这个，果然还是算不出来
这个带参数lx1,lx2的方程解出来x的值还要代入别的表达式中，然后通过相关方程组求参数lx1,lx2的近似解，应该如何处理？不断循环赋值求近似解吗？...