又来啦，我有一个程序，我想画t和q的图，为什么我把print改为plot不行啊
For[i=485,i<4800,i=i+10,
t=1/(1/480^3-1/4800^3) (1/2 (1/i^2-1/4800^2)+i/480^3-1/4800^2);
q=NIntegrate[(1/(5.07*10^6)) 1/(4/480^3 (ϕ-i)+(2/ϕ^2-2/i^2))^(1/2),{ϕ,i,t}];
Print[{t,q}]]

这段代码我帮你写好，你要好好研究，争取接近入门啊
Clear["`*"]
t[i_] := 1/(1/480^3 - 1/4800^3) (1/2 (1/i^2 - 1/4800^2) + i/480^3 - 1/4800^2);
q[i_, t_] := NIntegrate[(1/(5.07*10^6)) 1/(4/480^3 (\[Phi] - i) + (2/\[Phi]^2 - 2/i^2))^(1/2), {\[Phi], i, t}]
data = Table[{
#, q[i, #
]} &@t[i], {i, 485, 4799, 10}];
ListLinePlot@data
遇到不懂的符号就选中按F1就行了。