- 注册时间
- 2011-3-28
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 13453
- 在线时间
- 小时
|
发表于 2018-7-15 15:50:03
|
显示全部楼层
- {a,b,c,d,e}//Partition[#,2,1,2]&//Solve[#[[1]]+1/#[[2]]==x,#[[1]]]&/@#&//Flatten//Fold[Function[{\[Alpha],i},(\[Alpha][[1;;i-1]]/.\[Alpha][[i]])~Join~\[Alpha][[i;;-1]]],#,{5,4,3,2}]&//Factor//Table[{\[Phi][[1]],#/.\[Phi][[1]]//Simplify},{\[Phi],Solve[#[[1,1]]==#[[1,2]],x]}]&
复制代码
\begin{array}{cc}
x\to \frac{1}{2} \left(-1-\sqrt{5}\right) & \left\{e\to e,a\to -\frac{2}{2 e+\sqrt{5}+1},b\to -\frac{2 e+\sqrt{5}+1}{\left(1+\sqrt{5}\right) (e+1)},c\to -\frac{\left(1+\sqrt{5}\right) (e+1)}{\sqrt{5} e+e+2},d\to -\frac{\sqrt{5} e+e+2}{2 e}\right\} \\
x\to \frac{1}{2} \left(1-\sqrt{5}\right) & \left\{e\to e,a\to -\frac{2}{2 e+\sqrt{5}-1},b\to -\frac{2 e+\sqrt{5}-1}{\left(-1+\sqrt{5}\right) (e-1)},c\to \frac{\left(-1+\sqrt{5}\right) (e-1)}{\left(-1+\sqrt{5}\right) e+2},d\to \frac{-\sqrt{5} e+e-2}{2 e}\right\} \\
x\to \frac{1}{2} \left(-1+\sqrt{5}\right) & \left\{e\to e,a\to \frac{2}{-2 e+\sqrt{5}-1},b\to \frac{2 e-\sqrt{5}+1}{\left(-1+\sqrt{5}\right) (e+1)},c\to -\frac{\left(-1+\sqrt{5}\right) (e+1)}{\left(-1+\sqrt{5}\right) e-2},d\to -\frac{-\sqrt{5} e+e+2}{2 e}\right\} \\
x\to \frac{1}{2} \left(1+\sqrt{5}\right) & \left\{e\to e,a\to \frac{2}{-2 e+\sqrt{5}+1},b\to -\frac{-2 e+\sqrt{5}+1}{\left(1+\sqrt{5}\right) (e-1)},c\to \frac{\left(1+\sqrt{5}\right) (e-1)}{\sqrt{5} e+e-2},d\to \frac{\sqrt{5} e+e-2}{2 e}\right\} \\
x\to \frac{e^2+1}{e} & \{e\to e,a\to e,b\to e,c\to e,d\to e\} \\
\end{array}
舍去最后一解 |
|