Інструкція 2 кроків, що виконуються по порядку в одній сесії. Кожен крок було виконано на рушії, і вивід нижче — те, що він дав.
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]}]