a=

\text{Porównanie kształtu wykresów funkcji potęgowych } f(x)=x^a\
\text{na przedziale [0,1] dla różnych wartości parametru a:}\
\circ \text{ gdy } a>1, \text{ wykres znajduje się pod przekątną,}\
\circ \text{ gdy } a \in (0,1), \text{ wykres znajduje się nad przekątną.} 

a = 0.3 (slider from 0 to 10, step 0.01)
PoleTekstowe1 = Textfield(a)
tekst1: "f(x)=x^{" + (LaTeX[a]) + "}"
f(x) = If[0 ≤ x ≤ 1, x^(a)]
g(x) = If[0 ≤ x ≤ 1, x]