# Tag Info

1

THIS WORKS: $\hspace{3cm}$ Although... I can't get it so that it stops exiting the dynamic window when the message changes, and I think the logic might not be robust. bound = {{2, -1}, {2, 5}, {1, 0}, {3, 0}, {0, 1}, {4, 1}, {0, 2}, {4, 2}, {-1, 3}, {5, 3}, {-1, 4}, {5, 4}, {-1, 5}, {5, 5}, {0, 6}, {1, 6}, {3, 6}, {4, 6}} DynamicModule[{pos1 = ...

1

This is not yet a complete answer but I think it may set you on a viable path. We can style each element using StyleBox as follows: boxes = RowBox[{"(", FractionBox[ RowBox[{RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], SuperscriptBox["c", "d"]}], SqrtBox["e"]], ")"}]; colors = ColorData[54, "ColorList"] boxesNew = Module[{i = 1}, ...

1

Work with lists: Panel[ DynamicModule[{a = {RandomInteger[100], RandomInteger[100]}}, Column[{InputField[Dynamic[a]], Dynamic[Total@a]}]]] or DynamicModule[{b = {RandomInteger[100], RandomInteger[100]}}, Panel[Column[{InputField[Dynamic[b]], Dynamic[Total@b]}]]]

1

I hate fiddly held expressions! But I managed to get this Dynamic construct to work. n = 4; left[x_, y_, z__] := Abs@Product[x + I y - Complex @@ zz, {zz, {z}}] right[z__] := Abs@Product[Complex @@ zz, {zz, {z}}] DynamicModule[{z = RandomReal[{-5, 5}, {n, 2}]}, Dynamic[Show[ ContourPlot[ left[x, y, Sequence @@ z] == right[Sequence @@ z], {x, ...

Top 50 recent answers are included