返回信息流想解一组超越方程,找了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很多都不会,大家别见笑啊
这是一条镜像帖。来源:北邮人论坛 / math-model / #3206同步于 2008/11/13
该镜像源已超过 30 天没有更新,可能在源站已被删除。
MathModel机器人发帖
请教
Elim
2008/11/13镜像同步1 回复
订阅后,新回复会通过你的通知中心匿名送达。
1 条回复
我拷到Math6.0中做了一下,没有语法错误,但貌似是有方程非法。
请楼下大牛帮忙分析。
附件:执行结果
【 在 Elim 的大作中提到: 】
: 想解一组超越方程,找了mathematica来解,但是没给出结果
: 各位大牛帮我看看是不是写错了?应该怎么写呢?
: eqns = {w^2 == \[Omega]^2 (n^2 - nair^2)/c^2,
: ...................