求助，我在编程一个循环时，变量太多太混乱了，导致不知道怎么把

Clear["Global`*"]
ϕwall=515;
ϕvac=5155;
t[i_]:=(1/(1/ϕwall^3-1/ϕvac^3))*(1/2(1/i^2-1/ϕvac^2)+(i/ϕwall^3-1/ϕvac^2));
q[i_,j_]:=(1/(1/ϕwall^3-1/ϕvac^3))*(1/2(1/i^2-1/j^2)+(i/ϕwall^3-j/ϕvac^3));
Test[i_,q_,t_]:=Plus[NIntegrate[(1/(5.07*10^6)) 1/(4/ϕwall^3 (ϕ-i)+(2/ϕ^2-2/i^2))^(1/2),{ϕ,i,t}],NIntegrate[(1/(5.07*10^6)) 1/(4/ϕwall^3 (ϕ-i)+(2/ϕ^2-2/i^2))^(1/2),{ϕ,i,q}]]==0.01;
Table[i,{i,516,5154,1}];
Table[j,{j,516,5154,1}];
e[q_,j_]:=NIntegrate[-(1/(5.07*10^6)) 1/(4/ϕvac^3 (ϕ-j)+(2/ϕ^2-2/j^2))^(1/2),{ϕ,q,j}];
Data=Table[{t[i],e[q,j]},]
ListLogPlot@贴吧用户_000047D🐾