【求助】根式相乘化简不完全
mathematica吧
全部回复
仅看楼主
level 1
如图,最后的结果是两个根式相乘,但是化简不了呀,不知道为什么,求助各位前辈,感谢!
另外,怎么求那个O[L]²的具体表达式呢
2021年03月15日 02点03分 1
level 1
代码如下:
Series[ Subscript[u, 1]*
Cosh[Sqrt[(R + I*\[Omega]*L)/(I*\[Omega]*c)] *L] -
Subscript[i, 1]*Sqrt[(R + I*\[Omega]*L)*(I*\[Omega]*c)]*
Sinh[Sqrt[(R + I*\[Omega]*L)/(I*\[Omega]*c)] L], {L, 0, 1}]
FullSimplify[
Subscript[u, 1] -
Sqrt[-((I R)/(c \[Omega]))] Sqrt[I c R \[Omega]] Subscript[i, 1] L]
2021年03月15日 02点03分 2
level 1
代码在二楼 谢谢前辈!
2021年03月15日 02点03分 3
level 9
Mma不知道你的c和w的具体范围(多种情况),加上一个限制就好了
Simplify[expr,assum]
在假设条件下进行化简.
2021年03月15日 05点03分 4
您好,我加了范围还是不行,请您指教,感谢!
2021年03月15日 06点03分
代码在下一楼
2021年03月15日 06点03分
level 1
-x Subscript[i, 1] Sqrt[(
I \[Omega] Subscript[L, 0] + Subscript[R, 0])/(
I \[Omega] Subscript[c, 0] + Subscript[G, 0])]
Sqrt[(I \[Omega] Subscript[c, 0] + Subscript[G,
0]) (I \[Omega] Subscript[L, 0] + Subscript[R,
0])] + Subscript[u, 1]
2021年03月15日 06点03分 5
没发全?建议加代码和截图
2021年03月15日 06点03分
1