Hi everyone,
I just begin my Mathematica learning. I have a question about complex equation solving and data output. Details were showed below.
The equation is 6.429651.21663ln[1+0.00255(p0.1/x)^(1/1.21663)]+1.44638ln[1+0.26895p0.1/x]=4.498351.18924ln[1+0.00168(p0.9/(1-x))^(1/1.18924)]+0.85764ln[1+0.03736p0.9/(1-x)]
I know the range of p, and I need to get a set of solutions to the equation. The independent variable p is a positive number in the range of 0 to 100. I will select 25 numbers in this range and calculated the corresponding x. What's more, I wish the output data could be in the xls file which I could analysis it by other software.
Then I did the program showed in attachment.
I can see the results, however, I wish the out put xls could reflect the data more clearly and simple that one line could show the value p and another line could show the x. And each two corresponding values could be showed in the same row.
I wish you can give me some suggestions to rewrite the program more easily, especially the xls file output.
Thank you very much.