针对你提到的需求，我们可以通过ListLinePlot的几个关键参数来精准控制轴的刻度和显示范围，下面是具体的实现方案：

1. 调整X轴刻度间隔（5000-10000，每1000一个刻度） #

我们可以使用Ticks参数手动指定X轴的刻度位置。对于你的需求，直接用Range[5000, 10000, 1000]就能生成间隔为1000的刻度序列。如果需要同时明确刻度标签（比如保持数值原样显示），也可以写成Transpose[{Range[5000, 10000, 1000], Range[5000, 10000, 1000]}]，不过前者已经足够满足需求。

2. 修改Y轴刻度区间 #

有两种常用方式调整Y轴的范围和刻度：

• 固定显示范围：用PlotRange参数直接指定Y轴的显示区间，比如PlotRange -> {y最小值, y最大值}，让图表只聚焦在这个范围内的内容；
• 自定义刻度：用Ticks参数的第二个元素定义Y轴的刻度位置，比如Ticks -> {x刻度列表, y刻度列表}，其中y刻度列表可以是你想要的任意间隔序列（比如Range[0.005, 0.015, 0.0025]）。

完整代码示例 #

f[x_] := {x, Sqrt[2/(3 x)]};
data = f /@ {2, 10, 100, 10^4, 10^7};

ListLinePlot[data,
  PlotRange -> {{5000, 10000}, Automatic},  (* 锁定X轴范围为5000-10000，Y轴自动适配数据 *)
  Ticks -> {Range[5000, 10000, 1000], Range[0.005, 0.015, 0.0025]},  (* X轴每1000一个刻度，Y轴自定义刻度间隔 *)
  PlotLegends -> {"x=2", "x=10", "x=100", "x=10^4", "x=10^7"},  (* 可选：添加图例区分不同曲线 *)
  AxesLabel -> {"X", "Y"}  (* 可选：添加轴标签提升可读性 *)
]

代码细节说明 #

• 如果不需要固定Y轴范围，PlotRange的第二个参数用Automatic即可，Mathematica会自动计算适配数据的最优范围；要是你想强制显示特定区间，直接替换成{yMin, yMax}就行。
• 要是只需要调整X轴刻度，Y轴保持默认，可以把Ticks写成Ticks -> {Range[5000, 10000, 1000], Automatic}。
• 另外，考虑到x超过10^7时曲线近乎水平，如果你想更清晰地对比全区间的曲线，也可以尝试给X轴加对数刻度（LogScale -> {True, False}），不过这和你当前需要的线性刻度间隔需求无关，仅供拓展参考。

内容的提问来源于stack exchange，提问作者Bir Nepali