ハウツー 2 ステップを1つのセッション内で順に実行します。各ステップはエンジンで実行済みで、以下の出力は実際に生成されたものです。
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]}]