公告:1)网站程序升级:Q2A升级到1.8.6,Wordpress升级到5.7.2
2)修复了头像加载慢与提交问题反应慢等问题
2021-06-16

欢迎来到 Mathematica 问答社区

提问时请贴上文本代码

语法高亮:在编辑器中点击

被禁止的话题:广告破解

请阅读:《提问的智慧》

备用域名:mma.ooo

支持LaTex数学公式
行内公式标识符:\$ 或“$\backslash ($”+“$\backslash )$”,
行间公式标识符:\$\$ 或 “$\backslash [$”+“$\backslash ]$”

社区建议QQ群:365716997

分类

0 投票
1.7k 浏览

已知三倍角公式结果:Sin[3A]=3Sin[A]-4Sin[A]^3;Cos[3A]=4Cos[A]^3-3Cos[A]

(Cos[\[Theta]] + I Sin[\[Theta]])^3 // Expand

如何使用Collect等函数把结果分类合并为

(4Cos[A]^3-3Cos[A])+(3Sin[A]-4Sin[A]^3)I 的输出样式,我Collect[(Cos[\[Theta]] + I Sin[\[Theta]])^3 // Expand, ___*I]这样处理连含I项都合并不到一起,更别说再把正弦换成对应的余弦合并化简了,我最终想对个(Cos[\[Theta]] + I Sin[\[Theta]])^15 // Expand实现上述效果

分类:函数 | 用户: 包子 (36 分)
开那么多马甲有意思吗?
...我错了 主要大家不太喜欢以前的那个账号,就换了个,以后不穿马甲了

2 个回答

+2 投票
 
已采纳
(Cos[\[Theta]] + I Sin[\[Theta]])^3 // ComplexExpand

建议对志高这种乱开马甲的行为采取措施

 

Collect失败是因为I在MMA内部被表示成Complex[_,_]的形式,所以替换回来就行,比如可以这样

(Expand[(Cos[\[Theta]] + I Sin[\[Theta]])^3] /. Complex[re_, im_] :> re + ii im // Collect[#, ii] &) /. ii -> I

 

至于Sin换Cos,这么简单的规则替换。。。。。

ComplexExpand[(Cos[\[Theta]] + I Sin[\[Theta]])^10] /. Sin[\[Theta]]^ k_?EvenQ :> (1 - Cos[\[Theta]]^2)^(k/2) // ComplexExpand

 

用户: 无影东瓜 (1.2k 分)
采纳于 用户:包子
要是你用Collect化简 你会怎么做
还有如何把Sin函数全部换为Cos表达再合并化简结果
比如(Cos[\[Theta]] + I Sin[\[Theta]])^10 // ComplexExpand的实部
Cos[\[Theta]]^10 - 45 Cos[\[Theta]]^8 Sin[\[Theta]]^2 +
 210 Cos[\[Theta]]^6 Sin[\[Theta]]^4 -
 210 Cos[\[Theta]]^4 Sin[\[Theta]]^6 +
 45 Cos[\[Theta]]^2 Sin[\[Theta]]^8 - Sin[\[Theta]]^10
+2 投票
Collect[Expand[(Cos[\[Theta]] + I Sin[\[Theta]])^3] /. 
Complex[0, b_] :> b i, i]
(Cos[x]^10 - 45 Cos[x]^8 Sin[x]^2 + 
Sin[x]^4) /. {Power[Sin[x], a_] /; EvenQ[a] -> 
Power[(1 - Cos[x]^2), a/2]}

大致可以这样 用i替换I,曲线解决

用户: mma-2-2-2 (1.3k 分)
...