Animace grafu lineární funkce s absolutní hodnotou

Následující aplet umožňuje názorně pochopit základní princip transformace grafu funkce y = a.|bx + c| + d. Pomocí posuvníků lze nastavit libovolnou kombinaci koeficientů a, b, c a d. Předdefinované rozsahy koeficientů může uživatel znalý Mathematicy měnit.
Tlačítkem Ulož graf se uloží právě zobrazený graf do aktuální složky (složka, v níž je uložen tento notebook) pod jménem, které je uloženo v proměnné jmenosouboru. 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

jmenosouboru="abs_hodnota_.jpg";
cesta=NotebookDirectory[];
pocetulozeni=0;
abarva=Darker[Red];
bbarva=Blue;
cbarva=Orange;
dbarva=Darker[Green];
ebarva=Magenta;

x1=-10;x2=10;
deltay=0.8;
y1=-5;y2=5;

AnimaceAbsHodnoty[]:=Manipulate[
Column[{
Row[{TraditionalForm[Style["a",20,abarva, FontFamily->Times]],Style[" = ",15],TraditionalForm[Style[a,20,abarva,FontFamily->Times]]}],
Row[{TraditionalForm[Style["b",20,bbarva,FontFamily->Times]],Style[" = ",15],TraditionalForm[Style[b,20,bbarva,FontFamily->Times]]}],
Row[{TraditionalForm[Style["c",20,cbarva,FontFamily->Times]],Style[" = ",15],TraditionalForm[Style[c,20,cbarva,FontFamily->Times]]}],
Row[{TraditionalForm[Style["d",20,dbarva,FontFamily->Times]],Style[" = ",15],TraditionalForm[Style[d,20,dbarva,FontFamily->Times]]}],
Row[{TraditionalForm[Style["e",20,dbarva,FontFamily->Times]],Style[" = ",15],TraditionalForm[Style[e,20,ebarva,FontFamily->Times]]}],

grafik=Plot[{Abs[x],Abs[a*Abs[b*x+c]+d]+e},{x,x1,x2},PlotStyle->{{RGBColor[0,0,0],Thickness[0.002]},{RGBColor[1,0,0],Thickness[0.008]}},AxesOrigin->{0,0},AxesLabel->{"x","y"},PlotRange->{{x1,x2},{y1,y2}},ImageSize->400]
}],

{{a,1,Style["a",20,abarva]},-3,3,0.1},
{{b,1,Style["b",20,bbarva]},-5,5,0.1},
{{c,0,Style["c",20,cbarva]},-6,6,0.1},
{{d,0,Style["d",20,dbarva]},-5,5,0.1},
{{e,0,Style["e",20,ebarva]},-5,5,0.1},
FrameLabel->{Style["© Jaroslav Reichl, 2008",10,Black,FontFamily->Times],"",Style["Graf funkce: y = |a.|bx + c| + d| + e",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.

AnimaceAbsHodnoty[]