#title: Exercício tipo infantil
#author: jj 
#Obs: ListPerl, importcol, import ls, import file, num/str
#let:

fun[4]= [ x/(1.2+sin(x)), sin(x)/x , x**2, -x**2 , sin(x), cos(x), x**3, x*sin(x) ]; 
f f   = [ #fun[0], #fun[1], #fun[2], #fun[3] ];
r     = [ 1,2,3,4];
  r ~ f ;

#usepackages
\usepackage{graphicx}

#question:
Qual destes gráficos corresponde à função $#f$?

{\tiny
\begin{import_gnuplot}[width=0.3\textwidth]
set ylabel "f1"
set xlabel "x"
set nokey
plot  #fun[0]
\end{import_gnuplot}
}

\begin{import_gnuplot}[width=0.3\textwidth]
set ylabel "f2"
set xlabel "x"
set nokey
plot  #fun[1]
\end{import_gnuplot}

\begin{import_gnuplot}[width=0.4\textwidth]
set ylabel "f3"
set xlabel "x"
set nokey
plot #fun[2]
\end{import_gnuplot}

\begin{import_gnuplot}[width=0.3\textwidth]
set ylabel "f4"
set xlabel "x"
set nokey
plot  #fun[3]
\end{import_gnuplot}

 %set ylabel "f4: time (s)"
 %plot [-100:100][-100:100] #fun[3]

#sugestion:
#resolution:
#result:
 é a função f#r
#Verify: