printing - 用 DO 绘制垂直线

Question

我尝试将此代码的结果绘制为垂直线，每个垂直线位于 FindRoot 例程的解决方案的位置（类似：http ://www.astrobio.net/albums/xsolar/ach.sized.jpg ）。

    omega[a_] := 2 \[Pi] /a^(3/2);
Do[
Print[FindRoot[omega[a]/omega[5.2]==j/i+1, {a, 1}]],
{j,1,7,1},{i,1,7,1}]

有人能帮助我吗？

Answer 1

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

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}}]