How do I use Table and Do loop iterators inside Manipulate? Is there a way to use Iterators inside a Manipulate function?
Do[
ToExpression[
"CombinedCartesianPlot\[NumberSign]" <> ToString[Mass] <>
"\[NumberSign]" <> ToString[Radius], StandardForm,
Function[sym,
sym = Manipulate[Show[
{If[a == 1,
ToExpression[
"CartesianPlotWith\[NumberSign]" <> ToString[Mass] <>
"\[NumberSign]" <> ToString[Radius]], Nothing],
If[a == 1,
ToExpression[
"CartesianPlotWithout\[NumberSign]" <> ToString[Mass] <>
"\[NumberSign]" <> ToString[Radius]], Nothing]},
PlotLabel ->
"Positions of With and Without Photophoresis of a particle \
with #InsertRadiusHere#",
Frame -> True], {{a, 1, "With"}, {1, 0}}, {{b, 1,
"Without"}, {1, 0}}, ControlPlacement -> Top,
FrameMargins -> 0, TrackedSymbols :> {a, b}],
HoldAll]
],
{Mass, 1, 6}, {Radius, 1, 6}
]
The Do Loop Iterators (Mass & Radius) would not be evaluated and are labeled Red instead.