| 查看: 560 | 回复: 4 | ||
smallotter木虫 (正式写手)
|
[求助]
Mathematica计算一组方程的解以及数据的输出已有1人参与
|
|
方程：4.35156*4.83054*Log[1 + 0.4748*(p*0.01/x)^(1/4.83054)] == 1.63739*0.90643*Log[1 + 0.87271*(p*0.99/(1 - x))^(1/0.90643) p的取值范围为0到100，我想得到的是取其中若干值求得对应的x值。 我尝试输入如下代码： SystemOpen@ Export["d.xls", Table[FindRoot[4.35156*4.83054*Log[1+0.4748*(p*0.01/x)^(1/4.83054)]==1.63739*0.90643*Log[1+0.87271*(p*0.99/(1-x))^(1/0.90643)], {x,0.5}], {p,4,100,4}]] 得到的效果见图片 我取p从0到100的25个均匀分布的数，得到了其对应的x值，xls文件在excel中可以正常显示。 我想改进一下，使xls文件中第一列第一行显示的p，后续的行是p的25个值；第二列第一行显示x，后续的行是对应左边p解出来的x值。 发自小木虫IOS客户端 |
回复此楼» 猜你喜欢
with editor 两个月了，什么原因？
已经有5人回复
-
博士论文被抄袭
已经有35人回复
-
申博求助
已经有9人回复
-
前同事拿我以前未中的国自然标书申请今年的国自然，现在基金委发来调查函
已经有53人回复
-
召集青年编委
已经有8人回复
-
Chemical Engineering Journal投稿3周了，一直显示With editor状态。这是送审了吗？
已经有10人回复
-
0854－0855调剂
已经有10人回复
-
南京大学-广州大学联合招聘博士后 欢迎广大优秀人才！！！
已经有11人回复
-
Nature一直在编辑手里，考虑好几天了，是悬了吗
已经有7人回复
-
博士生招生！！
已经有5人回复
smallotter
木虫 (正式写手)
- 应助: 13 (小学生)
- 金币: 6757.4
- 红花: 6
- 帖子: 977
- 在线: 113.5小时
- 虫号: 3216513
- 注册: 2014-05-18
- 性别: GG
- 专业: 配位化学
2楼2021-07-23 04:32:20
smallotter
木虫 (正式写手)
- 应助: 13 (小学生)
- 金币: 6757.4
- 红花: 6
- 帖子: 977
- 在线: 113.5小时
- 虫号: 3216513
- 注册: 2014-05-18
- 性别: GG
- 专业: 配位化学
3楼2021-07-23 04:33:39
zyh700600
金虫 (小有名气)
- 应助: 47 (小学生)
- 金币: 9368.2
- 红花: 10
- 帖子: 266
- 在线: 137.1小时
- 虫号: 56711
- 注册: 2005-01-16
- 专业: 金融工程
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
smallotter: 金币+50, ★★★★★最佳答案, 太感谢了 2021-08-23 18:48:27
感谢参与，应助指数 +1
smallotter: 金币+50, ★★★★★最佳答案, 太感谢了 2021-08-23 18:48:27
|
sol = Table[FindRoot[4.35156*4.83054*Log[1+0.4748*(p*0.01/x)^(1/4.83054)]==1.63739*0.90643*Log[1+0.87271*(p*0.99/(1-x))^(1/0.90643)], {x,0.5}], {p,4,100,4}] xs = x/. sol xs1 = Flatten[{"x",xs}] p = Range[4, 100, 4] p1 = Flatten[{"p",p}] Export["d.xls", Transpose[Join[{p1}, {xs1}] ] ] |
4楼2021-07-23 13:47:45
zyh700600
金虫 (小有名气)
- 应助: 47 (小学生)
- 金币: 9368.2
- 红花: 10
- 帖子: 266
- 在线: 137.1小时
- 虫号: 56711
- 注册: 2005-01-16
- 专业: 金融工程
5楼2021-07-24 10:22:32
5