| 查看: 1147 | 回复: 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客户端 |
回复此楼» 猜你喜欢
不要再数国自然申请书的 filecode 的分隔符个数了
已经有21人回复
-
投英文期刊如何查重
已经有5人回复
-
伯胺上甲基求助
已经有7人回复
-
生命口面上会评结束了吗大家有知道结果吗？现在还没有结果正常不？
已经有8人回复
-
跨出版社商投稿
已经有5人回复
-
5个%2F，非固定段22个字母
已经有7人回复
-
生命口C13面上会评时间
已经有10人回复
-
生生命学部会评
已经有4人回复
-
H口，面上，时间戳7月7日。
已经有3人回复
-
小木虫没落了，除了祈祷帖子，几乎看不到有价值的帖子
已经有14人回复
smallotter
木虫 (正式写手)
- 应助: 13 (小学生)
- 金币: 7068.4
- 红花: 6
- 帖子: 1000
- 在线: 113.7小时
- 虫号: 3216513
- 注册: 2014-05-18
- 性别: GG
- 专业: 配位化学
2楼2021-07-23 04:32:20
smallotter
木虫 (正式写手)
- 应助: 13 (小学生)
- 金币: 7068.4
- 红花: 6
- 帖子: 1000
- 在线: 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