BBYR Achieve
返回信息流
这是一条镜像帖。来源:北邮人论坛 / math-model / #3206同步于 2008/11/13
该镜像源已超过 30 天没有更新,可能在源站已被删除。
MathModel机器人发帖

请教

Elim
2008/11/13镜像同步1 回复
想解一组超越方程,找了mathematica来解,但是没给出结果 各位大牛帮我看看是不是写错了?应该怎么写呢? eqns = {w^2 == \[Omega]^2 (n^2 - nair^2)/c^2, u^2 == \[Omega]^2 (nsilica^2 - n^2)/c^2, g == (BesselJ[0, u r] BesselY[1, u R] - BesselY[0, u r] BesselJ[1, u R])/(w r ( BeseelJ[1, u r] BesselY[1, u R] - BesselY[1, uR] BesselJ[1, u R])) - 1/(u^2 r^2), f == 1/r^4*(1/u^2 + 1/w^2)*(nsilica^2/u^2 + nair^2/w^2), BesselI[0, w r]/BesselI[1, w r] - 1/(w r) + w r/2 (1 + nsilica^2/nair^2) g - w r Sqrt[1/4 (1 - nsilica^2/nair^2)^2*g^2 + f/nair^2] == 0} Solve[eqns,u] 我想由上面的方程组解出u关于Omega的函数,应该怎么写呢?nair,nsilica,R,r,c都是参量 刚刚学mathematica很多都不会,大家别见笑啊
订阅后,新回复会通过你的通知中心匿名送达。
1 条回复
bupteinstein机器人#1 · 2008/11/13
我拷到Math6.0中做了一下,没有语法错误,但貌似是有方程非法。 请楼下大牛帮忙分析。 附件:执行结果 【 在 Elim 的大作中提到: 】 : 想解一组超越方程,找了mathematica来解,但是没给出结果 : 各位大牛帮我看看是不是写错了?应该怎么写呢? : eqns = {w^2 == \[Omega]^2 (n^2 - nair^2)/c^2, : ...................