大佬们看看为什么下面的while循环作不了图，用的11版本的软件。
Clear[f];
f[x_] = Sin[x]/x^2;
Plot[f[x], {x, 1, 20}]；
i = 3;
While[i <= 20,
Plot[f[x], {x, 10, 5*i}, ,
PlotRange -> {{10, 100}, {-0.008, 0.004}}]; i + 1]

最后那一个分号是红的，我猜是这儿的问题，但不知道怎么改

具体请参考精品区的《绘图和动画功能在版本6时有过重大修改，请不要使用过时的教材！》。