Printing 用DO绘制垂直线

我尝试将此代码的结果绘制为垂直线，每个垂直线位于FindRoot例程的解决方案的位置，如下所示：

---

有人能帮帮我吗？

我在猜测，因为你的问题不够清楚：

omega[a_] := 2 Pi/a^(3/2);
ListPlot[Flatten[
  Table[{a /. FindRoot[omega[a]/omega[5.2] == j/i + 1, {a, 1}], i + j}, 
              {j, 1, 7, 1}, {i, 1, 7, 1}], 1], 
 Filling -> Axis,  PlotRange -> {{0, 6}, {0, 15}}]

---

但是每个轴都有什么？我必须绘制一个数据集，并在绘图中添加相同宽度的线条。就像我在描述中发布的链接一样。我必须绘制一个数据集，并在绘图中添加相同宽度的线条。就像我在描述中发布的链接。与@belisarius的图相似，但所有点都位于同一水平，例如y=8。谢谢：我找到了解决方案：用costant值更改i+j，例如8。@federico下次写下完整的规范：Suerte！

omega[a_] := 2 Pi/a^(3/2);
ListPlot[Flatten[
  Table[{a /. FindRoot[omega[a]/omega[5.2] == j/i + 1, {a, 1}], i + j}, 
              {j, 1, 7, 1}, {i, 1, 7, 1}], 1], 
 Filling -> Axis,  PlotRange -> {{0, 6}, {0, 15}}]