How can I create a new window with a Manipulate expression?
Currently I'm using:
Manipulate[
{ODE, ViewPD, IC},
Column[{Row[{Style["ODE: ", Italic] }]}],
{{ODE, x^2 + r, "x[t]="}, ControlType -> InputField},
Grid[{{"Phase Diagram: "}}],
{{ViewPD, False, "Show PD:"}, {True, False}, ControlType -> RadioButtonBar},
{{IC, "{{r,x}}", "Initial Conditions:"}, InputField},
Grid[{{"Vector Field: "}}],
{{ViewPD, False, "Show PD:"}, {True, False}, ControlType -> RadioButtonBar},
{{IC, "{{r,x}}", "Initial Conditions:"}, InputField},
Grid[{{"Poincare Sections: "}}],
{{ViewPD, False, "Show PD:"}, {True, False}, ControlType -> RadioButtonBar},
{{IC, "{{r,x}}", "Initial Conditions:"}, InputField},
ControlPlacement -> Left]
The result is displayed in the notebook containing the Manipulate expression. Now I need the result to be displayed in a new window.
