load(draw);

	wxdraw2d(explicit(x^2,x,-4,4), title="Funkcja kwadratowa", xlabel="argumenty", ylabel="wartości")$

wxdraw2d(key="f(x) = x^2 + 1", explicit(x^2+1,x,-2,2), color="red", key="g(x) = -x^2 - 1", explicit(-x^2-1,x,-2,2));

wxdraw2d(explicit(x^3,x,-2,2), color="red", explicit(-x^2-1,x,-2,2), color="black", label(["Przecięcie krzywych", -0.8, -3.8]));

	wxdraw2d(explicit(x^3,x,-2,2), color="red", explicit(-x^2,x,-2,2), color="black", label(["f(x) = x^3", 1.5, 6], ["g(x) = -x^2", 1.5, -4]))$

	wxdraw2d(explicit(-x^2+1,x,-2,2), color="red", explicit(x^2-1,x,-2,2), color="black", points([-1,1],[0,0]))$