Clear["Global`*"]
W[x_] := x^(-4) + 2 x^2 - 3 + (x^(-4) - 1)^2
f[x_, y_, z_] :=
1/2 ((1/((1 + z)^3*x^3) - x^(-3) + 1)^(-1/3) - 1)*x^3*y^2
g[x_, t_] := -1/3 t (x^3 - 1)
xlist = Range[1, 1.5, 0.1];
Table[NSolve[
f[x, y, 0.1] + g[x, 2] +
NIntegrate[\[Lambda]^2*D[W[t], t]/(1 - t^3), {\[Lambda], 1,
x}, {t, ((0.1 + 1)^3*(\[Lambda]^3 - 1) + 1)^(1/3), \[Lambda]}],
y], {x, xlist}]
结果为一个列表:
{{{y -> 0.}, {y -> 0.}}, {{y -> -2.05048}, {y ->
2.05048}}, {{y -> -3.03445}, {y ->
3.03445}}, {{y -> -3.91118}, {y ->
3.91118}}, {{y -> -4.75495}, {y ->
4.75495}}, {{y -> -5.58941}, {y -> 5.58941}}}
我想让结果里的y1的值提取出来组成一个列表,y2的值提取出来组成另一个列表,请问该怎么处理?
对于这种数值解方程得出的结果该怎么提取数据?