Tag Info

New answers tagged

2

Perhaps: f[aa_, oo_, pp_] := CreateDialog[ Column[{Manipulate[ Plot[(aa = amp) Sin[(oo = omega) t - (pp = phi)], {t, 0, 10}], {amp, 0, 1}, {omega, 1, 10}, {phi, 0, 2 Pi}], DefaultButton["Close", DialogReturn[]]}], Modal -> True]; Dynamic[{a, o, p}] f[Unevaluated@a, Unevaluated@o, Unevaluated@p]


1

You can set options in ExpressionCell: CreateDialog[ ExpressionCell[ Plot3D[Sin[x + y^2], {x, -3, 3}, {y, -2, 2}, SphericalRegion -> True], Selectable -> True, Deployed -> False]]



Top 50 recent answers are included