用DO绘制垂直线

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

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

有人可以帮我吗？

来源

2013-03-13 federico

但是......什么进入每个轴？ – 2013-03-13 23:55:04

我必须绘制一个数据集并在图中添加相同宽度的线条。就像我在说明中发布的链接一样。 – federico 2013-03-14 19:21:09

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

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

Mathematica graphics

来源

2013-03-14 00:04:58

我必须绘制一个数据集并在图中添加相同宽度的线条。就像我在说明中发布的链接一样。就像@belisarius的情节一样，但都指向同一层次，例如y = 8。谢谢：D – federico 2013-03-14 19:23:23

我找到解决办法：改变i + j白色costant值例如8. – federico 2013-03-14 19:27:52

@federico下次写下完整的规范:) Suerte！ – 2013-03-15 08:58:38

用DO绘制垂直线

回答

相关问题