Exemplo 1:

> with(plots):

> plot(f1(x),x=-20..20);