| 查看: 1743 | 回复: 8 | ||
379631818铁杆木虫 (著名写手)
|
[求助]
请教mathematica中求解问题 已有1人参与
|
|
程序如图（附件也上传了），用的是mathematica 9版本 用FindRoot求解时，为什么改变初值，也得不到正确的结果呀 运行后结果严重不正确，求高人出手指点，谢谢  未命名.JPG |
回复此楼» 猜你喜欢
今天系统多次维护，明天很可能放榜！
已经有5人回复
-
欢迎发来filecode的Mz6后的代码验证其规律
已经有74人回复
-
岩土工程学报什么时候才能终审完呐
已经有4人回复
-
时间戳又变了8-15
已经有25人回复
-
2027广东省杰青
已经有6人回复
-
快农历七夕节了，轻松一下，男人悄悄话，女施主请不要进来。
已经有3人回复
-
哪位老哥知道今年的国自然具体哪一天放榜？
已经有9人回复
-
咱们一起用铁证分析2026国家社科基金中标与否
已经有26人回复
-
我的国基提前知道中了，可是同事的操作让我实在接受不了，怎么会有这样的人
已经有16人回复
-
有时候，自然基金真的不能太认真 （我的申报经验）
已经有12人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 一个很不错的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人回复
cooooldog
铁杆木虫 (著名写手)
ส็็็
- 应助: 237 (大学生)
- 金币: 6101.9
- 散金: 1114
- 红花: 39
- 帖子: 1380
- 在线: 553.8小时
- 虫号: 506699
- 注册: 2008-02-18
- 专业: 模式识别
2楼2014-07-28 12:50:15
379631818
铁杆木虫 (著名写手)
- 应助: 12 (小学生)
- 金币: 9526.9
- 散金: 80
- 红花: 7
- 帖子: 1548
- 在线: 568.8小时
- 虫号: 555522
- 注册: 2008-05-09
- 专业: 凝聚态物性 II ：电子结构
3楼2014-07-28 13:07:55
cooooldog
铁杆木虫 (著名写手)
ส็็็
- 应助: 237 (大学生)
- 金币: 6101.9
- 散金: 1114
- 红花: 39
- 帖子: 1380
- 在线: 553.8小时
- 虫号: 506699
- 注册: 2008-02-18
- 专业: 模式识别
4楼2014-07-28 15:06:45
cooooldog
铁杆木虫 (著名写手)
ส็็็
- 应助: 237 (大学生)
- 金币: 6101.9
- 散金: 1114
- 红花: 39
- 帖子: 1380
- 在线: 553.8小时
- 虫号: 506699
- 注册: 2008-02-18
- 专业: 模式识别
我把公式写出来看了下
5楼2014-07-28 15:54:01
cooooldog
铁杆木虫 (著名写手)
ส็็็
- 应助: 237 (大学生)
- 金币: 6101.9
- 散金: 1114
- 红花: 39
- 帖子: 1380
- 在线: 553.8小时
- 虫号: 506699
- 注册: 2008-02-18
- 专业: 模式识别
6楼2014-07-28 16:13:24
379631818
铁杆木虫 (著名写手)
- 应助: 12 (小学生)
- 金币: 9526.9
- 散金: 80
- 红花: 7
- 帖子: 1548
- 在线: 568.8小时
- 虫号: 555522
- 注册: 2008-05-09
- 专业: 凝聚态物性 II ：电子结构
7楼2014-07-28 16:20:53
cooooldog
铁杆木虫 (著名写手)
ส็็็
- 应助: 237 (大学生)
- 金币: 6101.9
- 散金: 1114
- 红花: 39
- 帖子: 1380
- 在线: 553.8小时
- 虫号: 506699
- 注册: 2008-02-18
- 专业: 模式识别
8楼2014-07-28 16:35:43
cooooldog
铁杆木虫 (著名写手)
ส็็็
- 应助: 237 (大学生)
- 金币: 6101.9
- 散金: 1114
- 红花: 39
- 帖子: 1380
- 在线: 553.8小时
- 虫号: 506699
- 注册: 2008-02-18
- 专业: 模式识别
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★
379631818: 金币+10, ★★★很有帮助, 加一半分给您了，虽然问题并没有完全解决 2014-08-01 17:39:03
379631818: 金币+10, ★★★很有帮助, 加一半分给您了，虽然问题并没有完全解决 2014-08-01 17:39:03
|
看上去没有什么问题 虚部为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]  |
9楼2014-07-29 07:45:33
25