How-to 2 steps, run in order in one session. Every step was executed against the engine and the output below is what it produced.
Plot[Sin[10x] + Sin[11x], {x, 0, 2π}]-Graphics-Manipulate[Plot[Sin[10x] + Sin[f x + θ], {x, 0, 2π}, PlotStyle -> color], {f, 10, 20}, {θ, 0, π}, {color, Blue}]Manipulate[Plot[Sin[10*x] + Sin[f*x + θ], {x, 0, 2*Pi}, PlotStyle -> color], {f, 10, 20}, {θ, 0, Pi}, {color, RGBColor[0, 0, 1]}]All recipes · Function reference · Use this from an MCP client