求助大佬!
mathematica吧
全部回复
仅看楼主
level 3
雨默默地_ 楼主
这个问题卡了我很久了,上次在吧里问了下,自己又重新算了几次,限于本人水平有限,答案也不怎么看得懂,也不知道自己算的对不对。本来想自学mathematica来做,但是没有一点基础,实在是有点困难。没有办法,直接求教大佬们,我这个式子能搞定吗?
2018年01月09日 11点01分 1
level 3
雨默默地_ 楼主
第一步:Solve[
Numerator@
Simplify[
TrigExpand[
Tan[\[Alpha]] (H*H +
2 lH*Tan[\[Beta]])*(Sin[\[Alpha]] Cos[\[Phi] - \[Alpha] + \
\[Omega] + \[Sigma]] Cos[2 \[Alpha] - \[Omega] - \[Phi]] -
Cos[\[Alpha] - \[Omega]] Sin[\[Alpha] - \[Phi]] Cos[
2 \[Alpha] - \[Phi] - \[Omega] - \[Sigma]]) -
l*l*Tan[\[Beta]] Cos[\[Omega] + \[Sigma]] Cos[\[Omega]] Sin[\
\[Alpha]]*Sin[\[Alpha]] Tan[\[Alpha]] +
l*l*Tan[\[Beta]]*
Tan[\[Beta]] Cos[\[Omega] + \[Sigma]] Cos[\[Omega]] Sin[\
\[Alpha]]*Sin[\[Alpha]] -
l*l*Tan[\[Beta]]*
Tan[\[Beta]] Cos[\[Omega]] Sin[\[Alpha] - \[Phi]] Cos[\[Phi] \
- \[Alpha] + \[Omega] + \[Sigma]] Tan[\[Alpha]] /. \[Alpha] ->
ArcTan[x]]] == 0, x]
第二步:ArcTan[%]
第三步:\[Alpha] = %
(Cos[\[Alpha] - \[Epsilon]] Sin[\[Alpha] - \[Phi]]*(\[Gamma]G +
2 \[Gamma]l*
Tan[\[Beta]H]))/(2 Cos[\[Epsilon]] Sin[\[Alpha]] Cos[\[Phi] - \
\[Alpha] + \[Omega] + \[Sigma]]) - (\[Gamma]l*l*
Tan[\[Beta]] Sin[\[Alpha] - \[Phi]])/(2 Cos[\[Phi] - \[Alpha] + \
\[Omega] + \[Sigma]]) + (\[Gamma]l*l*Tan[\[Beta]]*
Tan[\[Beta]] Sin[\[Alpha] - \[Phi]])/(2 Tan[\[Alpha]] Cos[\[Phi] \
- \[Alpha] + \[Omega] + \[Sigma]])
最后得到的结果是这样。然后,然后我就不知道该怎么办了……也不知道对不对。。。
2018年01月09日 11点01分 2
level 3
雨默默地_ 楼主
@xzcyr @孺子剑牛不群 虚心请教两个哥佬官[委屈]
2018年01月09日 11点01分 3
那就先把上次的答案看懂再说。这个问题的难点在换元,这在上回的帖里已经解释得很清楚了。它在编程上几乎没有门槛,你连学习这么一点点Mathematica基础的努力都不愿付出,我们凭什么要帮你?
2018年02月03日 08点02分
level 12
是不是先检查一下l和H是两个变量,或者是有一个叫lH的变量?
2018年01月22日 12点01分 4
l、h都是参数 只有α是变量
2018年01月23日 07点01分
1