| 查看: 944 | 回复: 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客户端 |
回复此楼» 猜你喜欢
请问哪里可以有青B申请的本子可以借鉴一下。
已经有4人回复
-
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗
已经有6人回复
-
孩子确诊有中度注意力缺陷
已经有14人回复
-
三甲基碘化亚砜的氧化反应
已经有4人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有5人回复
-
2025冷门绝学什么时候出结果
已经有3人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
-
AI论文写作工具：是科研加速器还是学术作弊器？
已经有3人回复
smallotter
木虫 (正式写手)
- 应助: 13 (小学生)
- 金币: 7048.4
- 红花: 6
- 帖子: 996
- 在线: 113.7小时
- 虫号: 3216513
- 注册: 2014-05-18
- 性别: GG
- 专业: 配位化学
2楼2021-07-23 04:32:20
smallotter
木虫 (正式写手)
- 应助: 13 (小学生)
- 金币: 7048.4
- 红花: 6
- 帖子: 996
- 在线: 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