方程：4.35156*4.83054*Log 返回小木虫查看更多
图看到了吗
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}] ] ]，
https://z3.ax1x.com/2021/07/24/Wyv68P.jpg
返回小木虫查看更多
京公网安备 11010802022153号
图看到了吗
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}] ] ]，
https://z3.ax1x.com/2021/07/24/Wyv68P.jpg