mathematica运行好一天了还算不出来!!求大神解救
mathematica吧
全部回复
仅看楼主
level 2
狂竹0
楼主
Solve[r == Abs[3*Cos[Pi*n1] + n1*Sin[Pi*n1]*1 I - (Sin[Pi*n1]*4 I)/n1]^2/ Abs[5*Cos[n1*Pi] + n1*Sin[n1*Pi]*1 I + (Sin[n1*Pi]*4 I)/n1]^2, n1, Method -> Reduce]
2022年10月21日 03点10分
1
1