Лекция 2
Manipulate - типове контролери

Plot[Sin[x]+Cos[6x], {x,-5,5}]

Manipulate[Plot[Sin[x]+Cos[k x], {x,-5,5}],{k,1,7,1}]

Manipulate[Plot[Sin[x]+Cos[k x], {x,-5,5}],{k,1,7}]

DynamicModule[{k=2.906799697875976`},Plot[Sin[x]+Cos[k x],{x,-5,5}]]

DynamicModule[{k=7},Plot[Sin[x]+Cos[k x],{x,-5,5}]]

Slider[]

Manipulate[Plot[Sin[n x]+(x^p)Cos[k x]+a, {x,-5,5}, PlotRange->{-12,12}, Axes->log, Background->color],
{{k,5,"Коефициент в косинуса"},1,7} (* slider *),
{{a,7,"Коефициент на изместване"},{0,2,5,7,10,-2,-5,-7,-10}, ControlType->RadioButtonBar} (* RadioButtonBar *),
{{log,True,"Показване на осите"},{True,False}}(*CheckBox*),
{n,{1,2,3}} (* бутони за избор *),
{p, {0,1,2,3,4,5,6,7,8}} (* падащо меню *),
{color,Red}]