24小时热门版块排行榜    

CyRhmU.jpeg
查看: 3134  |  回复: 11
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

岁月轻狂LV

新虫 (初入文坛)

[交流] Mathematica关于绘制隐函数方程组的问题,跪求,快疯了已有4人参与

就是如图所示(我上传了,不知道有没有成功)的两个隐函数,第一个里有T和\[Tau] 两个变量,而第二个方程里是k与T和\[Tau] 的关系式,我现在想把T和k的关系以图表的形式呈现,实在不知道怎么做。。谢谢各位大神了
Mathematica关于绘制隐函数方程组的问题,跪求,快疯了
方程.png
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

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的回帖
查看全部 12 个回答

jerkwin

专家顾问 (正式写手)


小木虫: 金币+0.5, 给个红包,谢谢回帖
把tau代入, 对T求解k即可
2楼2013-10-23 01:44:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jerkwin

专家顾问 (正式写手)


小木虫: 金币+0.5, 给个红包,谢谢回帖
3楼2013-10-23 01:51:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

岁月轻狂LV

新虫 (初入文坛)

引用回帖:
2楼: Originally posted by jerkwin at 2013-10-23 01:44:31
把tau代入, 对T求解k即可

师兄,不好意思啊,那个网站没打开,我还是没太明白什么意思,怎么带入tau呢?,谢谢师兄
4楼2013-10-23 11:24:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复(可上传附件)
信息提示
请填处理意见