可以的,可以用Table的第五种用法,Table[expr,{i,{i1,i2,...}}].或者事先定义i的列表,如
j=Range[5];Table[i^2,{i,j}]
对于你这个,
xblist = Join[Range[1, 1.5, 0.01], Range[1.6, 4.0, 0.1]];
ylist = Table[NIntegrate[D[W[x], x]/(1 - x^3)/a1, {x,
((\[Delta] + 1)^3*(xb^3 - 1) + 1)^(1/3), xb}], {\[Delta],0.5, 1, 0.5},
{xb, xblist}];
ListLinePlot[Transpose[{xblist, ylist[[2]]}], Mesh -> All,AxesLabel -> {xb, p2}]
