| 查看: 964 | 回复: 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客户端 |
回复此楼» 猜你喜欢
所感
已经有3人回复
-
要不要辞职读博？
已经有7人回复
-
不自信的我
已经有11人回复
-
北核录用
已经有3人回复
-
实验室接单子
已经有3人回复
-
磺酰氟产物，毕不了业了！
已经有8人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有10人回复
-
26申博（荧光探针方向，有机合成）
已经有4人回复
-
论文终于录用啦！满足毕业条件了
已经有26人回复
-
2026年机械制造与材料应用国际会议 （ICMMMA 2026）
已经有4人回复
smallotter
木虫 (正式写手)
- 应助: 13 (小学生)
- 金币: 7053.4
- 红花: 6
- 帖子: 997
- 在线: 113.7小时
- 虫号: 3216513
- 注册: 2014-05-18
- 性别: GG
- 专业: 配位化学
2楼2021-07-23 04:32:20
smallotter
木虫 (正式写手)
- 应助: 13 (小学生)
- 金币: 7053.4
- 红花: 6
- 帖子: 997
- 在线: 113.7小时
- 虫号: 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