Чертане на функции

Plot[(x^2)+Sin[4x]+ 4Cos[3x], {x,-5,5}](*  изчертаваме функция   *)

вкарваме графиката в манипулатор и поставяме поле за свободно въвеждане:

Manipulate[
Plot[(x^2)+Sin[4x]+ 4Cos[3x]+f, {x,-5,5}],
{{f,(x^2),"Добавена функция"}}
]

добавяме цветови контролер:

Manipulate[
Plot[(x^2)+Sin[4x]+ 4Cos[3x]+f, {x,-5,5},
PlotStyle->col
],
{{f,(x^2),"Добавена функция"}},
{col,Red}
]

Задание 1 за самостоятелна работа....

Добавяме контролер тип Check Box:

Manipulate[
Plot[(x^2)+Sin[4x]+ 4Cos[3x]+f, {x,-5,5},
PlotStyle->col,
Axes->cb
],
{{f,(x^2),"Добавена функция"}},
{col,Red},
{cb,{True, False}}
]

Какво е това 2D Slider?

Slider[]

Slider2D[]

Slider2D[{0,0}]

Slider2D[{0.5,0.5}]

Slider2D[{15,2},{{10,1},{20,5}}]

Използване на 2D Слайдер като контролер в манипулатора:

Manipulate[
Plot[(x^2)+Sin[4x]+ 4Cos[3x], {x,-5,5},
PlotLabel->TableForm[{sl}]
],
{sl,{10,1},{20,5}}
]

sl={10,1};
TableForm[{{"x = ",sl[[1]]},{"y = ",sl[[2]]}}]

Manipulate[
Plot[(x^2)+Sin[4x]+ 4Cos[3x], {x,-5,5},
PlotLabel->TableForm[{{"x = ",sl[[1]]},{"y = ",sl[[2]]}}]
],
{sl,{10,1},{20,5}}
]