又来啦，我有一个程序，我想画t和q的图，为什么我把print

这段代码我帮你写好，你要好好研究，争取接近入门啊
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就行了。