Manipulateで使える指標付きのコントロールを作る
Manipulate内でコントロールが網羅する範囲を指定することができる．
DynamicModule[{n = 5, data = Table[RandomReal[], {20}]}, Column[{Slider[Dynamic[n], {1, 20, 1}], Dynamic[Grid[Table[With[{i = i}, {Slider[Dynamic[data[[i]]]], Dynamic[data[[i]]]}], {i, n}]]]}]]