- 注册时间
- 2021-11-19
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 8641
- 在线时间
- 小时
|
楼主 |
发表于 2023-3-22 15:10:10
|
显示全部楼层
本帖最后由 nyy 于 2023-3-22 15:28 编辑
nyy 发表于 2023-3-22 12:01
得到的表达式
\[\text{SinA}^4+\text{SinB}^4+\text{SinC}^4-2 \text{SinA}^2 \text{SinB}^2-2 \text{Si ...
我尝试分解一下:
Cos[x - y - z] Cos[x + y - z] Cos[x - y + z] Cos[x + y + z]
结果得到
\[\text{cx}^4+\text{cy}^4+\text{cz}^4-2 \text{cx}^2 \text{cy}^2-2 \text{cx}^2 \text{cz}^2-2 \text{cy}^2 \text{cz}^2+4 \text{cx}^2 \text{cy}^2 \text{cz}^2\]
与上面的比,还算比较对称!
cx表示Cos[x]
如果用正弦来表示,那么
\[\left(\text{sx}^2-2 \text{sx} \text{sy} \text{sz}+\text{sy}^2+\text{sz}^2-1\right) \left(\text{sx}^2+2 \text{sx} \text{sy} \text{sz}+\text{sy}^2+\text{sz}^2-1\right)\]
参考代码:
- Clear["Global`*"];(*Clear all variables*)
- ff=Cos[x+y+z]Cos[-x+y+z]Cos[x-y+z]Cos[x+y-z]
- f=ff//TrigExpand
- f1=f/.{
- Cos[x]->cx,
- Cos[y]->cy,
- Cos[z]->cz,
- Sin[x]->sx,
- Sin[y]->sy,
- Sin[z]->sz
- }
- rule2={
- Cos[x]->Sqrt[1-sx^2],
- Cos[y]->Sqrt[1-sy^2],
- Cos[z]->Sqrt[1-sz^2],
- Sin[x]->sx,
- Sin[y]->sy,
- Sin[z]->sz
- }
- f2=f/.rule2//Expand//Factor
- rule3={
- Sin[x]->Sqrt[1-cx^2],
- Sin[y]->Sqrt[1-cy^2],
- Sin[z]->Sqrt[1-cz^2],
- Cos[x]->cx,
- Cos[y]->cy,
- Cos[z]->cz
- }
- f3=f/.rule3//Expand//Factor
复制代码 |
|