\documentclass[12pt]{article}
%\include{amsfonts}
\usepackage{amssymb,amsmath,latexsym,epsfig,euscript,multicol}
\usepackage[utf8x]{inputenc}

%    Definicion de caracteres especiales
%\def\zC{ C\hskip -6.5pt\vrule height 6.9pt width 0.9pt depth -0pt\hskip 3.5pt}
%\def\zQ{ Q\hskip -5.4pt\vrule height 6.9pt width 0.9pt depth -0pt\hskip 4pt}
%\def\zN{\hbox{$\displaystyle I\hskip -3pt N$}}
%\def\zn{\hbox{$\scriptstyle I\hskip -3pt N$}}
%\def\zR{\hbox{$\displaystyle I\hskip -3pt R$}}
%\def\zr{\hbox{$\scriptstyle I\hskip -3pt R$}}
%\def\zZ{\hbox{$\displaystyle Z\hskip -5pt Z$}}
%\def\N {{\rm I\! N}}
\def\A{\mathbb{A}}
\def\C{\mathbb{C}}
\def \N{\mathbb{N}}
\def \P{\mathbb{P}}
\def \Q{\mathbb{Q}}
\def \R{\mathbb{R}}
\def \Z{\mathbb{Z}}

\def\zC{\mathbb{C}}
\def \zN{\mathbb{N}}

\def \zQ{\mathbb{Q}}
\def \zR{\mathbb{R}}
\def \zZ{\mathbb{Z}}



%
\def\d{\displaystyle}


\topmargin-2cm \vsize 29.5cm \hsize 21cm
\setlength{\textwidth}{16cm} \setlength{\textheight}{25cm}
\setlength{\oddsidemargin}{0.0cm}
\setlength{\evensidemargin}{0.0cm}

\begin{document}
\thispagestyle{empty}

\centerline{{\small Universidad de Buenos Aires - Facultad de
Ciencias Exactas y Naturales - Depto. de Matem\'atica}}

\vskip 1cm

\centerline{{\bf\large {\sc Elementos de C\'alculo
Num\'{e}rico (M) - C\'alculo Num\'erico }}}

\centerline{{\ttfamily Primer Cuatrimestre de 2015}}


\bigskip

\centerline{\bf  Práctica de Programación 2 - Octave - Matlab.}
\bigskip

\begin{enumerate}
\item Estudiar los siguientes programas y decidir qué hacen:
\begin{itemize}
 \item[a)] 
 \begin{verbatim}
  function y = f(x)
  y = 1;
  for i=1:x
       y = y*i;
  end
 \end{verbatim}
 
 \item[b)]
 \begin{verbatim}
  function y = f(x)
  if floor(x)-x<0
     disp('X no es entero.')
  end
  if x==0
      y = 1;
  else 
      for i=1:x
           y = y*i;
      end
  end
 \end{verbatim}
\textbf{Nota:} \verb+floor(x)+ devuelve la parte entera de \verb+x+.


 \item[c)]
 \begin{verbatim}
  function a = m(x)
  n = length(x);
  a = x(1);
  for i=2:n
       if x(i)<a
          a = x(i);
       end
  end
 \end{verbatim}

 
 \item[d)]
 \begin{verbatim}
 function A = mat(n)
 for i=1:n
      for j=1:n
           if i==j
               A(i,j) = 1;
           else
               A(i,j) = 0;
           end
      end
 end
 \end{verbatim}

 \item[e)]
 \begin{verbatim}
  a = 1
  while not(a+1==1)
         a = a/2;
  end
 \end{verbatim}
\item[f)]
\begin{verbatim}
 function y=g(x)
 y = 1;
 z = 0;
 i = 1;
 while not(y==z)
      z = y;
      y = y+x^i/f(i);
      i = i+1;
 end
\end{verbatim}
\textbf{Nota:} \verb#f(i)# es la función del item a).
\end{itemize}

 
\item Escriba un programa que reciba como input un vector y calcule su elemento máximo.

\item Modifique el programa del item anterior para que devuelva el elemento máximo pero también el primer índice en el que este máximo se realiza.

\item Escriba un programa que reciba como input una matriz y calcule su elemento máximo. ¿Funciona este programa si en lugar de una matriz se ingresa un vector?
\end{enumerate}



\end{document}
