在Mathematica动态列表中选择另一个动态

Question

建立在Belisarius在"Manipulate custom Tabular"提出的解决方案上。

• 考虑下面的函数来创建自定义表格表示：

  DataSampleXX[data_, linesNumber_, columnsList_, color1_, color2_, color3_] := 
  
  Grid[ 
  Join[ 
      {columnsList}, {Map[Rotate[Text[#], 90 Degree] &, 
       data[[1, columnsList]]]}, data[[2 ;; linesNumber, columnsList]]], 
  Background -> {{{{color1, color2}}, {1 -> color3}}}, 
  Dividers -> {All, {1 -> True, 2 -> True, 3 -> True, 0 -> True}}, 
  ItemSize -> {1 -> Automatic, Automatic}, 
  Alignment -> Top, 
  Frame  -> True, 
  FrameStyle -> Thickness[2], 
  ItemStyle -> {Automatic, 
  Automatic, {{1, 1}, 
  {1, Length[data]}} -> Directive[FontSize -> 15, Black, Bold]} 
  ]; 
  

• ，后面的数据：

  soData = {{"col1", "col2", "col3", "col4", "col5", "col6", "col7", 
        "col8", "col9", "col10"}, Range[1, 10], Range[11, 20], 
        Range[21, 30], Range[31, 40]} 
  
  
  With[ 
      {columnsList = {1, 3}, 
       data = soData, 
       linesNumber = 3, 
       color1 = LightBlue, 
       color2 = LightRed, 
       color3 = LightGray}, 
       DataSampleXX[data, linesNumber, columnsList, color1, color2, color3]] 
  

• 我想集成下面的Dynamic来提供DataSampleXX函数的columnsList参数。

  Manipulate[Sort@Join[Sequence @@ {a, b}], 
        Evaluate[Sequence @@ MapThread[{{#1, {}, ""}, #2, 
        ControlType -> TogglerBar} &, {{a, b}, 
        Partition[Rule @@@ Transpose[{Range[10], soData[[1]]}], 5]}]], 
        ControlPlacement -> Top] 
  

• 这将使我动态选择列（VS一系列在我刚才的问题列）使用DataSampleXX显示，但我又不能老是图了解如何合并这两种机制。

Answer 1

你想做什么需要一些技巧。

例如：

Maipulate[ f[ Array[ a, exp], ...], ...] 

和类似的构建体不工作（并且在文档被解释），因为a[_]不在表达显式的，从而使得它有一个可变数目的控制困难。我找到了解决办法是：

Manipulate[ f[#,...], ... ] & @ Array[a, exp] 

另一个问题是构建

Control@(.#.) &/@ _controls_ 

不允许本身二维分区，所以我们必须使用这两种控制@语法选项（控制@和{...}），这是没有记录。

其他令人讨厌的东西你可以在下面的代码中找到。

所以：

soData = {{"col01", "col02", "col03", "col04", "col05", "col06", 
      "col07", "col08", "col09", "col10"}, 
      Range[1, 10], Range[11, 20], Range[21, 30], Range[31, 40]}; 
perRow = 5; 
colsel = (# -> Graphics[{#, Disk[]}, ImageSize -> 15]) &/@ColorData[1, "ColorList"]; 
s[x_] := Style[x, Black, Bold, 12]; 
ct = ControlType -> PopupMenu; 

Manipulate[ 
    DataSampleXX[soData, linesNumber, Sort@Join[Sequence @@ #], color1, 
                   color2, color3], 
    Row[ 
    {Column[ 
     {Control@{{linesNumber, 2, s@"Lines"}, 
     Range[2, Length@soData[[All, 1]] - 1], ct}}], 
     Spacer[20], 
    Column[ 
     {Control@{{color1, colsel[[1, 1]], s@"Color 1"}, colsel, ct}, 
     Control@{{color2, colsel[[2, 1]], s@"Color 2"}, colsel, ct}, 
     Control@{{color3, colsel[[3, 1]], s@"Color 3"}, colsel, ct}}]}], 
    Evaluate[ 
    Sequence @@ 
    MapThread[{{#1, {}, ""}, #2, ControlType -> TogglerBar} &, 
     {#, Partition[Rule @@@ Transpose[{Range[10], soData[[1]]}], perRow]}]]] &@ 
Array[a, Length[soData[[1]]]/perRow]