24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

379631818

铁杆木虫 (著名写手)

应助: 12 (小学生)
金币: 9526.9
散金: 80
红花: 7
帖子: 1548
在线: 568.8小时
虫号: 555522
注册: 2008-05-09
专业: 凝聚态物性 II ：电子结构

[求助] 请教mathematica中求解问题已有1人参与

程序如图（附件也上传了），用的是mathematica 9版本

用FindRoot求解时，为什么改变初值，也得不到正确的结果呀

运行后结果严重不正确，求高人出手指点，谢谢

未命名.JPG

回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

一个很不错的mathematica教程已经有507人回复
Mathematica关于绘制隐函数方程组的问题，跪求，快疯了已经有11人回复
mathematica中的问题已经有5人回复
Mathematica问题求助已经有7人回复
Mathematica里的compile怎么使用已经有27人回复
紧急求助：mathematica中的数据如何保存为mat格式已经有8人回复
急切求助！一个mathematica求解一个简单一元非线性方程的问题已经有4人回复
Mathematica 简单四元一次方程组，求解问题~ 已经有9人回复
FFT算法的一个问题请教已经有18人回复
求一个mathmetica的程序已经有10人回复
请教一个Mathematica积分的问题（重金求解）已经有6人回复
mathematica请教计算结果问题已经有4人回复
【求助】用mathematica 5.0求解一个非线性方程组失败，特发帖求助！已经有5人回复
【求助】请问MATHEMATICA输出数据格式问题已经有5人回复
【求助】mathematica化简问题【已完结】已经有15人回复
【求助】【求助】mathematica中的一种数值积分问题已经有5人回复
【求助】Mathematica怎么对不等式解的最小值集合作图？已经有8人回复
【求助】请教COmsol求解问题已经有10人回复
【求助】请教Mathematica程序问题已经有9人回复
【求助】再次关于Mathematica画图颜色问题（急用）已经有3人回复
【求助】紧急求助有关MATHEMATICA的问题已经有9人回复

1楼 2014-07-28 12:42:26

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

cooooldog

铁杆木虫 (著名写手)

ส็็็

应助: 237 (大学生)
金币: 6101.9
散金: 1114
红花: 39
帖子: 1380
在线: 553.8小时
虫号: 506699
注册: 2008-02-18
专业: 模式识别

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
379631818: 金币+10, ★★★很有帮助, 加一半分给您了，虽然问题并没有完全解决 2014-08-01 17:39:03

引用回帖:

7楼: Originally posted by 379631818 at 2014-07-28 16:20:53
fumfa是一个行列式的通式，在用FindRoot求解时，根据给出的时间t，求出对应的Os，目的是作出t-Os的图...

看上去没有什么问题
虚部为0

先定义
f[\[CapitalOmega]s_, t_] :=
fumfa[2.0, 1.0, \[CapitalOmega]s, 2.0, 3.5, t, 4]

然后用不带冒号的方式定义:
g[x] = Assuming[Element[x && t, Reals], Simplify[f[x, t]]]

求解并忽略警告或提示信息:
ylist=Re[x]/.Table[Assuming[Element[x, Reals], FindRoot[g[x], {x, 4.0}]], {t, 0.1, 4.0, 0.2}]
xlist =Table[{t}, {t, 0.1, 4.0, 0.2}]

画图
ListPlot[Transpose@{xlist, ylist}, PlotStyle -> Red,
PlotRange -> {{0, 5}, {-2, 15}}, AxesOrigin -> {0, -2}, Axes -> True,
Frame -> All]