N=(9.40387∗0.06414∗p^0.68974)/(1+0.06414∗p^0.68974 )
我需要求解的方程如上，我想要的效果是我已知N的值是大于0小于或等于3.17
我想要得到N为0到3.17若干均匀分布的数值（20个左右就行）对应的p值
我的思路是把N定义为一个表，然后得到的p也是一个表，但是我对mathematica实在太陌生了，有没有知道怎么操作的人物指点一下

N = {0.05, 0.10, 0.15, 0.20, 0.25, 0.30, 0.35, 0.40, 0.45, 0.50, 0.60,
0.65, 0.70, 0.75, 0.80, 0.85, 0.90, 0.95, 1.00, 1.05, 1.10, 1.15,
1.20, 1.25, 1.30, 1.35, 1.40, 1.45, 1.50, 1.55, 1.60, 1.65, 1.70,
1.75, 1.80, 1.85, 1.90, 1.95, 2.00, 2.05, 2.10, 2.15, 2.20, 2.25,
2.30, 2.35, 2.40, 2.45, 2.50, 2.55, 2.60, 2.65, 2.70, 2.75, 2.80,
2.85, 2.90, 2.95, 3.00, 3.05, 3.10, 3.15}
NSolve[{N == (9.40387*0.06414*p^0.68974) (1 +
0.06414*p*0.68974)}, {p}]

代码见上一楼，我觉得，我的编程思路就是错的，请各位大神指教

Table[Solve[n == (9.40387*0.06414*p^0.68974)/(1 + 0.06414 *p^0.68974),
p],
{n, 0, 3.17, 3.17/20}]
终于有题我会的了

多说一句，mathematica里尽量不要拿大写字母定义变量，比如N，这是个系统自带函数的名称。

@0笑叹浮生若梦0
我照你的代码试了试，能输出一串p的值，但我们无法找到与之一一对应的输入的n值

那就用这个
Table[{n,
p /. Flatten@
Solve[n == (9.40387*0.06414*p^0.68974)/(1 + 0.06414*p^0.68974),
p]}, {n, 0, 3.17, 3.17/20}]

我发现，我需要作到的是，控制同一个变量n，使两个方程相等。
例子是：n == (9.40387*0.06414*p1^0.68974)/(1 + 0.06414*p1^0.68974)==(4.98903*0.04155*p2^0.80321)/(1 + 0.04155*p2^0.80321)
我试着按照楼上大神的方法，能得到我需要的若干个n对应的p1、p2的值@0笑叹浮生若梦0
Clear[n, p1, p2]
Table[{n,
p1 /. Flatten@
Solve[n == (9.40387*0.06414*p1^0.68974)/(1 + 0.06414*p1^0.68974),
p1]}, {n, 0, 3.17, 3.17/20}]
Table[{n,
p2 /. Flatten@
Solve[n == (4.98903*0.04155*p2^0.80321)/(1 + 0.04155*p2^0.80321),
p2]}, {n, 0, 3.17, 3.17/20}]
照此方法，得到的两组数的n都是一样的，的确是我想要的效果。
有没有什么办法，让n、p1、p2三个数显示得更加密切一点能在一个括号里显示呢？
我试着瞎编数据：
Clear[n, p1, p2]
Table[{n, p1,
p2 /. Flatten@
Solve[n == (9.40387*0.06414*p1^0.68974)/(1 +
0.06414*p1^0.68974) == (4.98903*0.04155*p2^0.80321)/(1 +
0.04155*p2^0.80321), {p1, p2}]}, {n, 0, 3.17, 3.17/20}]
结果中，只有p2的值出现了，p1，还是p1

为什么p1没数据,因为这个表格里面人家p1本来就没有被任何式子赋值
Table[{n,
p1 /. Flatten@
Solve[n == (9.40387*0.06414*p1^0.68974)/(1 + 0.06414*p1^0.68974),
p1],p2 /. Flatten@
Solve[n == (4.98903*0.04155*p2^0.80321)/(1 + 0.04155*p2^0.80321),
p2]}, {n, 0, 3.17, 3.17/20}]
这种方法存在一个问题:就是如果方程组存在多个解的话生成的列表长度不固定(或者直接报错?)
不过看样子你这个方程仅有唯一解
如果担心这一问题的话可以考虑使用First选择第一个解:
Table[{n,
p1 /. Flatten@
First@Solve[
n == (9.40387*0.06414*p1^0.68974)/(1 + 0.06414*p1^0.68974), p1],
p2 /. Flatten@
First@Solve[
n == (4.98903*0.04155*p2^0.80321)/(1 + 0.04155*p2^0.80321),
p2]}, {n, 0, 3.17, 3.17/20}]

……你不先用ContourPlot画画图再说吗？

@0笑叹浮生若梦0
大哥，麻烦再帮我看一个问题
我想试着带入稍微复杂一些的公式求解两个p值
n = ((5.97958*0.11764*p1^0.31638)/(1 +
0.11764*p1^0.31638) + (5.97958*0.11765*p1^0.31629)/(1 +
0.11765*p1^0.31629))
n = ((4.62168*0.27959*p2^0.33664)/(1 +
0.27959*p2^0.33664) + (4.62168*0.27959*p2^0.33662)/(1 +
0.27959*p2^0.33662))
输入代码如下：
Table[{n,
p1 /. Flatten@
Solve[n == ((5.97958*0.11764*p1^0.31638)/(1 +
0.11764*p1^0.31638) + (5.97958*0.11765*p1^0.31629)/(1 +
0.11765*p1^0.31629)), p1],
p2 /. Flatten@
Solve[n == ((4.62168*0.27959*p2^0.33664)/(1 +
0.27959*p2^0.33664) + (4.62168*0.27959*p2^0.33662)/(1 +
0.27959*p2^0.33662)), p2]}, {n, 0, 4.0, 4.0/30}]
直接按enter+shift无法运行，在软件操作界面运行后，软件始终停留在如下所示的状态，一直在running
我觉得，是代码存在漏洞，还是电脑运算有问题。
当我用带入没有那么复杂的公式的时候，运行很正常：
Table[{n,
p1 /. Flatten@
Solve[n == (5.97958*0.11764*p1^0.31638)/(1 + 0.11764*p1^0.31638),
p1], p2 /.
Flatten@Solve[
n == (4.62168*0.27959*p2^0.33664)/(1 + 0.27959*p2^0.33664),
p2]}, {n, 0, 2.0, 2.0/30}]

为什么没人告诉楼主这个题从一开始就应该用FindRoot呢
Table[FindRoot[{n
==((5.97958*0.11764*p1^0.31638)/(1+0.11764*p1^0.31638)+(5.97958*0.11765*p1^0.31629)/(1+0.11765*p1^0.31629))
==((4.62168*0.27959*p2^0.33664)/(1+0.27959*p2^0.33664)+(4.62168*0.27959*p2^0.33662)/(1+0.27959*p2^0.33662))
==h},{{n,h},{p1,0},{p2,0}}],{h,0,3.17,3.17/20}]