إرشادات 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]}]