| 查看: 1016 | 回复: 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客户端 |
回复此楼» 猜你喜欢
材料与化工，291，求调剂
已经有13人回复
-
PDF在线压缩软件
已经有4人回复
-
A区一本交叉课题组，低分调剂，招收机械电子信息通信等交叉方向
已经有68人回复
-
接受26届调剂生
已经有21人回复
-
307求调剂
已经有4人回复
-
收调剂
已经有3人回复
-
315食品工程求调剂
已经有6人回复
-
研究生招生
已经有6人回复
-
0817一志愿苏州大学280复试调剂
已经有8人回复
-
求调剂 一志愿苏州大学，0856化工323分 | 本科应化 | 有专利/竞赛/科研助手经历 |
已经有9人回复
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
