一个方程：
3.31496*1.61663*Log[1 + 0.38739*(p*0.1/x)^(1/1.61663)] == 2.00025*1.48924*Log[1 + 0.2585*(p*0.9/(1 - x))^(1/1.48924)
我想求的是p的范围0到100之间均匀分布的各个值对应的x的批量解。
尝试办法如下：
SystemOpen@
Export["c.xls",
Table[FindRoot[
3.31496*1.61663*Log[1 + 0.38739*(p*0.1/x)^(1/1.61663)] ==
2.00025*1.48924*Log[1 + 0.2585*(p*0.9/(1 - x))^(1/1.48924)], {x,
0.1}], {p, 4, 100, 4}]]
输出文件中会出现p为100以内25个均匀分布的值对应的x值
效果如图所示：
请问有没有什么办法改进一下mathematica里的代码，使输出的xls文件中第一列第一行显示p，第二列第一行显示x
然后第一二列后续显示的各个p极其对映的x具体的数值。
谢谢各位大神
3.31496*1.61663*Log[1 + 0.38739*(p*0.1/x)^(1/1.61663)] == 2.00025*1.48924*Log[1 + 0.2585*(p*0.9/(1 - x))^(1/1.48924)
我想求的是p的范围0到100之间均匀分布的各个值对应的x的批量解。
尝试办法如下：
SystemOpen@
Export["c.xls",
Table[FindRoot[
3.31496*1.61663*Log[1 + 0.38739*(p*0.1/x)^(1/1.61663)] ==
2.00025*1.48924*Log[1 + 0.2585*(p*0.9/(1 - x))^(1/1.48924)], {x,
0.1}], {p, 4, 100, 4}]]
输出文件中会出现p为100以内25个均匀分布的值对应的x值
效果如图所示：
请问有没有什么办法改进一下mathematica里的代码，使输出的xls文件中第一列第一行显示p，第二列第一行显示x
然后第一二列后续显示的各个p极其对映的x具体的数值。
谢谢各位大神
