Mocninná funkce y = a.(((b.x + c))^n) + d

Následující aplet umožňuje názorně pochopit konstrukci grafu mocninné funkce dané předpisem y = a.(((b.x + c))^n) + d. Pomocí posuvníků lze měnit parametry funkce (tj. koeficienty a, b, c, d a n).
Volitelně lze zobrazit:
	- pomocné osy kartézského systému souřadnic;
	- předpis dané funkce;
	- definiční obor a obor hodnot.
Aplet je rozdělen na dvě části - na část, v níž je zobrazen graf dané funkce pro n ∈ ℤ, a na část, v níž je zobrazen graf funkce pro n ∈ ⟨0; 1⟩. V obou částech jsou (při daném nastavení) zobrazeny i "speciální případy" mocninné funkce - tj. lineární funkce a konstantní funkce. Toto zobrazení je ponecháno z didaktických důvodů, aby bylo zřejmé, proč se mocinná funkce pro některé hodnoty (resp. kombinace hodnot) výše uvedených koeficientů nedefinuje.

Tlačítkem Ulož obrázek se uloží právě zobrazené "bílé" okno do aktuální složky (složka, v níž je uložen tento notebook) pod jménem, které je uloženo v proměnné jmenosouboru1 resp. jmenosouboru2. K tomuto jménu souboru je při opakovaném ukládání grafu přidáváno pořadové číslo.
Pozor! Při každém spuštění tohoto apletu se začínají soubory číslovat opět od jedné! Tak může dojít k přepsání minule uložených obrázků.

© Jaroslav Reichl, 2008

Příprava pro vykreslení grafu

ClearAll["Global`*"];
jmenosouboru1="fce_mocninna1_.jpg";
jmenosouboru2="fce_mocninna2_.jpg";
cesta=NotebookDirectory[];
pocetulozeni=0;
x1=-10;x2=-x1;
y1=-10;y2=-y1;

n0=2;nmin=-10;nmax=10;deltan=1;
a0=1;amin=-5;amax=5;deltaa=0.1;
b0=1;bmin=-10;bmax=10;deltab=0.1;
c0=0;cmin=-5;cmax=5;deltac=0.1;
d0=0;dmin=-5;dmax=5;deltad=0.1;

n20=0.5;n2min=0.1;n2max=1;deltan2=0.1;

tloustka=0.005;
velikostpisma=20;

barva=Black;
barvagrafu=Red;
barvaa=Darker[Red];
barvab=Blue;
barvac=Darker[Green,0.3];
barvad=Magenta;
barvan=Purple;

MocninnaFce=TabView[
{"Mocninná funkce y = a.(b.x + c)^n + d; n ∈ ℤ"->
Manipulate[Deploy[
funkce[x_]:=a (((b x+c))^n)+d;

If[b≠0,
{pomocnaosax=Line[{{x1,d},{x2,d}}],
pomocnaosay=Line[{{-(c/b),y1},{-(c/b),y2}}]},
""];

(*Hledání předpisu funkce.*)
predpisfunkce="f: y = ";
If[a≠0&&(b≠0∨c≠0),
{If[a<0,
predpisfunkce=StringJoin[predpisfunkce,ToString[Style["- ",barva],StandardForm]],
""],
If[Abs[a]≠1,
predpisfunkce=StringJoin[predpisfunkce,ToString[Style[ToString[Abs[a]],barvaa],StandardForm]," "],
""],
If[b≠0∨c≠0,
{predpisfunkce=StringJoin[predpisfunkce,ToString[Style["(",barva],StandardForm]],
If[b≠0,
{If[b<0,
predpisfunkce=StringJoin[predpisfunkce,ToString[Style["-",barva],StandardForm]],
""],
If[Abs[b]≠1 ,
predpisfunkce=StringJoin[predpisfunkce,ToString[Style[ToString[Abs[b]],barvab],StandardForm]],
""],
predpisfunkce=StringJoin[predpisfunkce,ToString[Style["x",barva],StandardForm]]}],
If[c≠0,
{If[c>0,
If[b≠0,
predpisfunkce=StringJoin[predpisfunkce,ToString[Style[" + ",barva],StandardForm]]],
predpisfunkce=StringJoin[predpisfunkce,ToString[Style[" - ",barva],StandardForm]]],
predpisfunkce=StringJoin[predpisfunkce,ToString[Style[ToString[Abs[c]],barvac],StandardForm]," "]}],
predpisfunkce=StringJoin[predpisfunkce,ToString[Style[ToString[Superscript[")",ToString[Style[ToString[n],barvan],StandardForm]],StandardForm],barva],StandardForm]]}],
If[d≠0,
{If[d>0,
predpisfunkce=StringJoin[predpisfunkce," + "],
predpisfunkce=StringJoin[predpisfunkce," - "]],
predpisfunkce=StringJoin[predpisfunkce,ToString[Style[ToString[Abs[d]],barvad],StandardForm]]},
""]},
If[d<0,
predpisfunkce=StringJoin[predpisfunkce,"-",ToString[Style[ToString[Abs[d]],barvad],StandardForm]],
predpisfunkce=StringJoin[predpisfunkce,ToString[Style[ToString[Abs[d]],barvad],StandardForm]]]];
(*Hledání předpisu funkce.*)

(*Definiční obor a obor hodnot.*)
If[n>1,
{defobor=
StringJoin[ToString[Style[ToString[Subscript["D",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = ℝ"],
If[a≠0&&(b≠0∨c≠0),
If[Mod[n,2]==0,
{If[d≥0,
znamenko="",
znamenko="-"],
If[b≠0,
If[a>0,
oborhodnot=StringJoin[ToString[Style[ToString[Subscript["H",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = ⟨",znamenko,ToString[Style[ToString[Abs[d]],barvad],StandardForm],"; ∞)"],
oborhodnot=StringJoin[ToString[Style[ToString[Subscript["H",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = (-∞; ",znamenko,ToString[Style[ToString[Abs[d]],barvad],StandardForm],"⟩"]],
oborhodnot=StringJoin[ToString[Style[ToString[Subscript["H",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = {",ToString[Round[a(((b+c))^n)+d,0.1]],"}"]]},
oborhodnot=StringJoin[ToString[Style[ToString[Subscript["H",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = ℝ"]],
oborhodnot=StringJoin[ToString[Style[ToString[Subscript["H",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = {",ToString[Round[a(((b+c))^n)+d,0.1]],"}"]]},
If[n>0,
{defobor=
StringJoin[ToString[Style[ToString[Subscript["D",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = ℝ"],
If[b≠0,
oborhodnot=StringJoin[ToString[Style[ToString[Subscript["H",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = ℝ"],
oborhodnot=StringJoin[ToString[Style[ToString[Subscript["H",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = {",ToString[Round[a(((b+c))^n)+d,0.1]],"}"]]},
{If[n<0,
If[a≠0,
If[b≠0,
{If[b c>0,
znamenko="-",
znamenko=""],
defobor=StringJoin[ToString[Style[ToString[Subscript["D",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = ℝ ∖ {",znamenko,ToString[DisplayForm[FractionBox[ToString[Style[ToString[Abs[c]],barvac],StandardForm],ToString[Style[ToString[Abs[b]],barvab],StandardForm]]],StandardForm],"}"],
If[d≥0,
znamenko="",
znamenko="-"],
If[Mod[Abs[n],2]==0,
If[a>0,
oborhodnot=StringJoin[ToString[Style[ToString[Subscript["H",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = (",znamenko,ToString[Style[ToString[Abs[d]],barvad],StandardForm],"; ∞)"],
If[a<0,
oborhodnot=StringJoin[ToString[Style[ToString[Subscript["H",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = (-∞; ",znamenko,ToString[Style[ToString[Abs[d]],barvad],StandardForm],")"],
{defobor=
StringJoin[ToString[Style[ToString[Subscript["D",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = ℝ"],
oborhodnot=StringJoin[ToString[Style[ToString[Subscript["H",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = {",ToString[Abs[d]],"}"]}]],
oborhodnot=StringJoin[ToString[Style[ToString[Subscript["H",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = ℝ ∖ {",znamenko,ToString[Style[ToString[Abs[d]],barvad],StandardForm],"}"]]},
If[c≠0,
{defobor=
StringJoin[ToString[Style[ToString[Subscript["D",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = ℝ"],
oborhodnot=StringJoin[ToString[Style[ToString[Subscript["H",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = {",ToString[Round[a(((b+c))^n)+d,0.1]],"}"]},
{defobor=
StringJoin[ToString[Style[ToString[Subscript["D",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = ∅"],
oborhodnot=
StringJoin[ToString[Style[ToString[Subscript["H",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = ∅"]}]],
{If[b≠0∨c≠0,
{defobor=
StringJoin[ToString[Style[ToString[Subscript["D",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = ℝ"],
If[d≥0,
znamenko="",
znamenko="-"],
oborhodnot=StringJoin[ToString[Style[ToString[Subscript["H",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = {",znamenko,ToString[Style[ToString[Abs[d]],barvad],StandardForm],"}"]},
{defobor=
StringJoin[ToString[Style[ToString[Subscript["D",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = ∅"],
oborhodnot=
StringJoin[ToString[Style[ToString[Subscript["H",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = ∅"]}]}],
If[b≠0∨c≠0,
{defobor=
StringJoin[ToString[Style[ToString[Subscript["D",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = ℝ"],
oborhodnot=StringJoin[ToString[Style[ToString[Subscript["H",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = {",ToString[a+d],"}"]},
{defobor=
StringJoin[ToString[Style[ToString[Subscript["D",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = ∅"],
oborhodnot=
StringJoin[ToString[Style[ToString[Subscript["H",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = ∅"]}]]}]];
(*Definiční obor a obor hodnot.*)

grafik1=Show[
If[n>0,
Plot[funkce[x],{x,x1,x2},PlotStyle->{barvagrafu,Thickness[tloustka]},PlotRange->{{x1,x2},{y1,y2}},AxesOrigin->{0,0}],
If[n≤0&&(b≠0∨c≠0),
If[n==0,
Plot[funkce[x],{x,x1,x2},PlotStyle->{barvagrafu,Thickness[tloustka]},PlotRange->{{x1,x2},{y1,y2}},AxesOrigin->{0,0}],
Plot[funkce[x],{x,x1,x2},Exclusions->{b x+c==0},PlotStyle->{barvagrafu,Thickness[tloustka]},PlotRange->{{x1,x2},{y1,y2}},AxesOrigin->{0,0}]],
Plot[0,{x,x1,x2},PlotStyle->{barva,Thickness[0.1tloustka]},PlotRange->{{x1,x2},{y1,y2}},AxesOrigin->{0,0}]]],

Graphics[{
If[zobrazitpomocneosy&&a≠0&&n≠1&&n≠0&&b≠0,
{{barvagrafu,Dashed,Thickness[0.4tloustka],pomocnaosax},
{barvagrafu,Dashed,Thickness[0.4tloustka],pomocnaosay}},
Text[""]],
If[n>0∨(n≤0&&(b≠0∨c≠0)),
Text[""],
Text[Style["G R A F   F U N K C E   N E L Z E   Z O B R A Z I T !",20,barvagrafu,FontFamily->Times,Bold],{((x1+x2)/2),((y1+y2)/2)},{Center,Bottom}]]
}],
FormatType->StandardForm,AspectRatio->Automatic,PlotRange->{{x1,x2},{y1,y2}},AxesLabel->{"x","y"},ImageSize->500
]],

{{n,n0,Style["n",15,barvan]},nmin,nmax,deltan},
{{a,a0,Style["a",15,barvaa]},amin,amax,deltaa},
{{b,b0,Style["b",15,barvab]},bmin,bmax,deltab},
{{c,c0,Style["c",15,barvac]},cmin,cmax,deltac},
{{d,d0,Style["d",15,barvad]},dmin,dmax,deltad},

Delimiter,
Item[Style["Zobrazit",15,barva,FontFamily->Times,Bold,Underlined],Alignment->Left],
{{zobrazitpomocneosy,False,Style["pomocné osy",15,barva,FontFamily->Times]},{True,False},ControlType->Checkbox},
Delimiter,
{{zobrazitdh,True,Style["D a H",15,barva,FontFamily->Times]},{True,False},ControlType->Checkbox},
{{zobrazitpredpisfce,True,Style["předpis f",15,barva,FontFamily->Times]},{True,False},ControlType->Checkbox},
Delimiter,
Dynamic[
Grid[{
{If[zobrazitpredpisfce,
Item[Style[predpisfunkce,velikostpisma,barva,FontFamily->Times],Alignment->Left],
""]},
{Item[Style[" ",1.5velikostpisma,barva,FontFamily->Times],Alignment->Left]},
{If[zobrazitdh,
Item[Style[defobor,velikostpisma,barva,FontFamily->Times],Alignment->Left],
""]},
{If[zobrazitdh,
Item[Style[oborhodnot,velikostpisma,barva,FontFamily->Times],Alignment->Left],
""]}
}]],
Delimiter,
Button[" Ulož obrázek ",{pocetulozeni=pocetulozeni+1,Export[StringInsert[StringJoin[cesta,jmenosouboru1],ToString[pocetulozeni],-5],grafik1]},ImageSize->{100,Automatic}],
ControlPlacement->Left,
FrameLabel->{Style["© Jaroslav Reichl, 2008",10,Black,FontFamily->Times],"",Style["Mocninná funkce y = a.(b.x + c)^n + d; n ∈ ℤ",25,Black,FontFamily->Times],""}],

"Mocninná funkce y = a.(b.x + c)^n + d; n ∈ (0; 1⟩"->
Manipulate[Deploy[
funkce[x_]:=a (((b x+c))^n2)+d;

If[b≠0,
{pomocnaosax=Line[{{x1,d},{x2,d}}],
pomocnaosay=Line[{{-(c/b),y1},{-(c/b),y2}}]},
""];

(*Hledání předpisu funkce.*)
predpisfunkce="f: y = ";
If[a≠0&&(b≠0∨c≠0),
{If[a<0,
predpisfunkce=StringJoin[predpisfunkce,ToString[Style["- ",barva],StandardForm]],
""],
If[Abs[a]≠1,
predpisfunkce=StringJoin[predpisfunkce,ToString[Style[ToString[Abs[a]],barvaa],StandardForm]," "],
""],
If[b≠0∨c≠0,
{predpisfunkce=StringJoin[predpisfunkce,ToString[Style["(",barva],StandardForm]],
If[b≠0,
{If[b<0,
predpisfunkce=StringJoin[predpisfunkce,ToString[Style["-",barva],StandardForm]],
""],
If[Abs[b]≠1 ,
predpisfunkce=StringJoin[predpisfunkce,ToString[Style[ToString[Abs[b]],barvab],StandardForm]],
""],
predpisfunkce=StringJoin[predpisfunkce,ToString[Style["x",barva],StandardForm]]}],
If[c≠0,
{If[c>0,
If[b≠0,
predpisfunkce=StringJoin[predpisfunkce,ToString[Style[" + ",barva],StandardForm]]],
predpisfunkce=StringJoin[predpisfunkce,ToString[Style[" - ",barva],StandardForm]]],
predpisfunkce=StringJoin[predpisfunkce,ToString[Style[ToString[Abs[c]],barvac],StandardForm]," "]}],
predpisfunkce=StringJoin[predpisfunkce,ToString[Style[ToString[Superscript[")",ToString[Style[ToString[n2],barvan],StandardForm]],StandardForm],barva],StandardForm]]}],
If[d≠0,
{If[d>0,
predpisfunkce=StringJoin[predpisfunkce," + "],
predpisfunkce=StringJoin[predpisfunkce," - "]],
predpisfunkce=StringJoin[predpisfunkce,ToString[Style[ToString[Abs[d]],barvad],StandardForm]]},
""]},
If[d<0,
predpisfunkce=StringJoin[predpisfunkce,"-",ToString[Style[ToString[Abs[d]],barvad],StandardForm]],
predpisfunkce=StringJoin[predpisfunkce,ToString[Style[ToString[Abs[d]],barvad],StandardForm]]]];
(*Hledání předpisu funkce.*)

(*Definiční obor a obor hodnot.*)
If[n2≠0&&n2≠1,
If[b≠0∨c≠0,
{If[a≠0,
{If[b c>0,
znamenko="-",
znamenko=""],
If[b>0,
defobor=StringJoin[ToString[Style[ToString[Subscript["D",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = ⟨",znamenko,ToString[DisplayForm[FractionBox[ToString[Style[ToString[Abs[c]],barvac],StandardForm],ToString[Style[ToString[Abs[b]],barvab],StandardForm]]],StandardForm],"; ∞)"],
If[b<0,
defobor=StringJoin[ToString[Style[ToString[Subscript["D",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = (-∞; ",znamenko,ToString[DisplayForm[FractionBox[ToString[Style[ToString[Abs[c]],barvac],StandardForm],ToString[Style[ToString[Abs[b]],barvab],StandardForm]]],StandardForm],"⟩"],
If[c≥0,
defobor=StringJoin[ToString[Style[ToString[Subscript["D",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = ℝ"],
defobor=StringJoin[ToString[Style[ToString[Subscript["D",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = ∅"]]]],
If[b≠0,
{If[d≥0,
znamenko="",
znamenko="-"],
If[a>0,
oborhodnot=StringJoin[ToString[Style[ToString[Subscript["H",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = ⟨",znamenko,ToString[Style[ToString[Abs[d]],barvad],StandardForm],"; ∞)"],
oborhodnot=StringJoin[ToString[Style[ToString[Subscript["H",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = (-∞; ",znamenko,ToString[Style[ToString[Abs[d]],barvad],StandardForm],"⟩"]]},
{If[c≥0,
oborhodnot=StringJoin[ToString[Style[ToString[Subscript["H",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = {",ToString[Round[a (c^n2)+d,0.1]],"}"],
oborhodnot=StringJoin[ToString[Style[ToString[Subscript["H",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = ∅"]]}]},
{defobor=StringJoin[ToString[Style[ToString[Subscript["D",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = ℝ"],
If[d≥0,
znamenko="",
znamenko="-"],
oborhodnot=StringJoin[ToString[Style[ToString[Subscript["H",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = {",znamenko,ToString[Abs[d]],"}"]}]},
{defobor=StringJoin[ToString[Style[ToString[Subscript["D",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = ℝ"],
If[d≥0,
znamenko="",
znamenko="-"],
oborhodnot=StringJoin[ToString[Style[ToString[Subscript["H",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = {",znamenko,ToString[Abs[d]],"}"]}],
{defobor=StringJoin[ToString[Style[ToString[Subscript["D",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = ℝ"],
If[n2==0,
oborhodnot=StringJoin[ToString[Style[ToString[Subscript["H",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = {",ToString[Round[a (c^n2)+d,0.1]],"}"],
If[b≠0,
oborhodnot=StringJoin[ToString[Style[ToString[Subscript["H",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = ℝ"],
oborhodnot=StringJoin[ToString[Style[ToString[Subscript["H",ToString[Style["f",barvagrafu],StandardForm]],StandardForm],barva],StandardForm]," = {",ToString[Round[a (c^n2)+d,0.1]],"}"]]]}];
(*Definiční obor a obor hodnot.*)

grafik2=Show[
If[b≠0∨c≥0,
Plot[funkce[x],{x,x1,x2},PlotStyle->{barvagrafu,Thickness[tloustka]},PlotRange->{{x1,x2},{y1,y2}},AxesOrigin->{0,0}],
Plot[0,{x,x1,x2},PlotStyle->{barva,Thickness[0.1tloustka]},PlotRange->{{x1,x2},{y1,y2}},AxesOrigin->{0,0}]],

Graphics[{
If[zobrazitpomocneosy&&a≠0&&n2≠1&&n2≠0&&b≠0,
{{barvagrafu,Dashed,Thickness[0.4tloustka],pomocnaosax},
{barvagrafu,Dashed,Thickness[0.4tloustka],pomocnaosay}},
Text[""]],
If[b==0&&c<0,
Text[Style["G R A F   F U N K C E   N E L Z E   Z O B R A Z I T !",20,barvagrafu,FontFamily->Times,Bold],{((x1+x2)/2),((y1+y2)/2)},{Center,Bottom}],
Text[""]]
}],
FormatType->StandardForm,AspectRatio->Automatic,PlotRange->{{x1,x2},{y1,y2}},AxesLabel->{"x","y"},ImageSize->500
]],

{{n2,n20,Style["n",15,barvan]},n2min,n2max,deltan2},
{{a,a0,Style["a",15,barvaa]},amin,amax,deltaa},
{{b,b0,Style["b",15,barvab]},bmin,bmax,deltab},
{{c,c0,Style["c",15,barvac]},cmin,cmax,deltac},
{{d,d0,Style["d",15,barvad]},dmin,dmax,deltad},

Delimiter,
Item[Style["Zobrazit",15,barva,FontFamily->Times,Bold,Underlined],Alignment->Left],
{{zobrazitpomocneosy,False,Style["pomocné osy",15,barva,FontFamily->Times]},{True,False},ControlType->Checkbox},
Delimiter,
{{zobrazitdh,True,Style["D a H",15,barva,FontFamily->Times]},{True,False},ControlType->Checkbox},
{{zobrazitpredpisfce,True,Style["předpis f",15,barva,FontFamily->Times]},{True,False},ControlType->Checkbox},
Delimiter,
Dynamic[
Grid[{
{If[zobrazitpredpisfce,
Item[Style[predpisfunkce,velikostpisma,barva,FontFamily->Times],Alignment->Left],
""]},
{Item[Style[" ",1.5velikostpisma,barva,FontFamily->Times],Alignment->Left]},
{If[zobrazitdh,
Item[Style[defobor,velikostpisma,barva,FontFamily->Times],Alignment->Left],
""]},
{If[zobrazitdh,
Item[Style[oborhodnot,velikostpisma,barva,FontFamily->Times],Alignment->Left],
""]}
}]],
Delimiter,
Button[" Ulož obrázek ",{pocetulozeni=pocetulozeni+1,Export[StringInsert[StringJoin[cesta,jmenosouboru2],ToString[pocetulozeni],-5],grafik2]},ImageSize->{100,Automatic}],
ControlPlacement->Left,
FrameLabel->{Style["© Jaroslav Reichl, 2008",10,Black,FontFamily->Times],"",Style["Mocninná funkce y = a.(b.x + c)^n + d; n ∈ ⟨0; 1⟩",25,Black,FontFamily->Times],""}]
}];

Spuštění animace
Zpracujte běžným způsobem následující buňku a na dotaz, který se objeví, odpovězte ANO.

MocninnaFce