24小时热门版块排行榜    

CyRhmU.jpeg
查看: 3131  |  回复: 11

walk1997

金虫 (著名写手)


小木虫: 金币+0.5, 给个红包,谢谢回帖
这样的问题 最好还是找下师兄或者老师呀
第一个方程没有唯一解 看数值解情况 大概象是个T的周期函数,
下面是代码 求出T(t) 和k(t) 取了0<T<10的第一个解
另外  epsilon_2 > epsilon_1
画图速度比较慢 建议自己打点输出结果 然后用ListPlot
---------------------------------------------------
\[Epsilon]1 = 2;
\[Epsilon]2 = 1;
\[Mu]0 = 3;
tf[\[Tau]_?NumericQ] :=
t /. NSolve[{\[Epsilon]1*BesselJ[1, t]/(
       t*BesselJ[0, t]) + \[Epsilon]2*BesselJ[1, \[Tau]]/(
       t*BesselJ[0, \[Tau]]) == 0, 0 < t < 100}, t]
tf[1.0]
Differences[%]
ParametricPlot[{tf[\[Tau]][[1]],
  Sqrt[(\[Tau]^2 +
      tf[\[Tau]][[1]]^2)/(\[Mu]0*(\[Epsilon]1 - \[Epsilon]2))]}, {\
\[Tau], 0, 1}]
-------------------------------------------------
11楼2014-01-14 10:50:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

walk1997

金虫 (著名写手)


小木虫: 金币+0.5, 给个红包,谢谢回帖
引用回帖:
11楼: Originally posted by walk1997 at 2014-01-14 10:50:50
这样的问题 最好还是找下师兄或者老师呀
第一个方程没有唯一解 看数值解情况 大概象是个T的周期函数,
下面是代码 求出T(t) 和k(t) 取了0<T<10的第一个解
另外  epsilon_2 > epsilon_1
画图速度比较慢 ...

更正下
求出 求出T(\tao) 和k(\tao)
12楼2014-01-14 10:53:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 岁月轻狂LV 的主题更新
普通表情 高级回复(可上传附件)
信息提示
请填处理意见