公告:1)网站程序升级:Q2A升级到1.8.6,Wordpress升级到5.7.2
2)修复了头像加载慢与提交问题反应慢等问题
2021-06-16

欢迎来到 Mathematica 问答社区

提问时请贴上文本代码

语法高亮:在编辑器中点击

被禁止的话题:广告破解

请阅读:《提问的智慧》

备用域名:mma.ooo

支持LaTex数学公式
行内公式标识符:\$ 或“$\backslash ($”+“$\backslash )$”,
行间公式标识符:\$\$ 或 “$\backslash [$”+“$\backslash ]$”

社区建议QQ群:365716997

分类

+1 投票
518 浏览
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的值提取出来组成另一个列表,请问该怎么处理?

对于这种数值解方程得出的结果该怎么提取数据?

 

分类:列表操作 | 用户: keanhy (361 分)
y1 = y /. list[[All, 1]],不晓得你是不是这个意思
能把规则去掉吗,我只想要类似这样的数据
y1={0., 0.0209541, 0.0624121, 0.111464, 0.164617, 0.220958}
可以了,刚理解错了。。。
谢谢!

登录 或者 注册 后回答这个问题。

...