Mathematica 动态绘制矩阵数据

我正在尝试使用 Mathematica 7 动态绘制矩阵中包含的数据。数据像这样包含在其中，通过化学模型获得。

[year  H    He     Li     C     ...  C8H14+,Grain- ]
[0     0    0.03   0.009  1E-3  ...  0             ]
[100   .1   0.03   0.009  1E-3  ...  0             ]
[200   .2   0.03   0.009  1E-3  ...  0             ]
[300   .2   0.03   0.009  1E-3  ...  0             ]
[...   ...  ...   ...     ...   ...  ...           ]
[1E6   .5   0.03   0.003  1E-8  ...  1E-25         ]

事实是，矩阵尺寸为 2001*1476（2000 个步骤和第一行用于名称，1475 个化合物 + 1 列用于年份），非常重。 我正在尝试用浓度/年图绘制任何化合物。这有效

Manipulate[
  ListLogLogPlot[data[[All, {1, i}]], PlotLabel -> data[[1, i]] ], 
  {{i, 2, "Compound"}, 2, compounds, 1}
]

where data是矩阵，并且化合物设置模型化化合物数量的变量（此处为 1475）。“化合物”是滑块的标签。 问题是，滑块移动速度太快，几厘米即可浏览 1400 多个项目。 我尝试做一个下拉菜单

MenuView[
  Table[
    ListLogLogPlot[data[[All, {1, i}]],PlotLabel -> data[[1, i]]], {i, 2, compounds}
  ]
]

它也可以工作，但这是一个处理器杀手进程（在执行 16 个内核的 Xeon 16 核服务器上需要 10 多分钟），因为 Mathematica 会在显示任何图表之前尝试绘制所有图表。此外，下拉列表没有名称，只是一系列数字（1 代表氢，1475 代表 C8H14N+,Grain-），尽管该图有名称。

我正在寻找一种仅根据需要绘制图表的方法，并在下拉列表中显示名称（如果需要，默认为 H）。或者我可以输入化合物名称的字段。这似乎是可能的动态的[ ]命令，但我无法使其正常工作。

Thanks

迈克的建议是一个很好的建议，但如果您不想费力地将其放入数据库中，请使用ContinuousAction->False option.

testdata = 
  Join[{Table[ToString[series[i-1]], {i, 1475}]}, 
   RandomReal[{1., 100.}, {2000, 1476}]];

Manipulate[
 ListLogLogPlot[testdata[[All, {1, i}]], 
  PlotLabel -> testdata[[1, i]]], {{i, 2, "Compound"}, 2, 1475, 1}, 
 ContinuousAction -> False]

要获取弹出菜单，请使用{i,listofvalues}控制器规范的语法。

Manipulate[
 ListLogLogPlot[testdata[[All, {1, i}]], 
  PlotLabel -> testdata[[1, i]]], {i, Range[2, 1475]}, 
 ContinuousAction -> False]

这在我的系统上运行得非常快。 （两年前的 MacBook Pro）

更高级的版本：

spec = Thread[Range[2, 1476] -> Table[ToString[series[i]], {i, 1475}]];

Manipulate[
 ListLogLogPlot[testdata[[All, {1, i}]], 
  PlotLabel -> testdata[[1, i]]], {{i, 2, "Compound"}, spec}, 
 ContinuousAction -> False]

如果您只想逐步浏览图像，请单击滑块控制器旁边的小加号以获得更详细的控制。