|
本帖最后由 天山草 于 2021-11-10 09:25 编辑
如何将用卡丹公式求出的三个根简化成三角函数形式? 下面是 mathematica 的化简代码。
此代码是【数学研发】网站上的 zeroieme 大侠提供的。
代码下载:
- (Power[-17 - I Sqrt[8499], (3)^-1] + Power[-17 + I Sqrt[8499], (
- 3)^-1])/(9 Power[2, (3)^-1]) // ComplexExpand //
- Simplify@# & //(*三角函数捕抓段*){#,
- Level[#, \[Infinity]] // {Cases[#, Cos[_]], Cases[#, Sin[_]]} & //
- Flatten // #[[All, 1]] & // Union //
- MapIndexed[#1 ->
- Subscript[\[Theta], #2[[1]]] &, #] &} &(*三角函数捕抓段*)// \
- {#[[1]] /. #[[2]] // TrigFactor,
- Reverse /@ #[[2]]} & // #[[1]] /. #[[2]] &
复制代码 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|