\documentclass[11pt,twoside,a4paper,spanish]{article}
\usepackage[T1]{fontenc}
\usepackage{a4wide}
\usepackage{calc}
\usepackage[latin1]{inputenc}
\usepackage{isolatin1}
\usepackage{babel}
\usepackage{amsmath}
\usepackage{amsfonts}
% ---------------------------
\setlength{\textheight}{\topmargin+\headheight+\headsep+\textheight}
\setlength{\topmargin}{0pt}
\setlength{\headheight}{0pt}
\setlength{\headsep}{0pt}
\setlength{\parindent}{0pt}
\setlength{\parskip}{1 ex plus 0.5 ex minus 0.2 ex}
\newcommand{\vect}[1]{\mathbf{#1}}    % Notación vectorial negrita
% ------------------------------
\begin{document}
\begin{center}\textbf{COMPUTACIÓN 2003 -- ASTRONOMÍA}\end{center}
\begin{center}\textbf{PRACTICA 5}\end{center}
\bigskip

\begin{enumerate}

\item Programar una subrutina que permita transformar un ángulo expresado
en radianes a grados, minutos y segundos, y otra que realice la
transformación contraria.


\item Un arreglo unidimensional \textbf{A} contiene 21 elementos, de tal
manera que el primer elemento, $a_1$, sirve para control de
operaciones a efectuar sobre los 20 elementos siguientes $a_2,\,
\ldots ,a_{21}$. Escribir subrutinas que permitan hacer lo
siguiente:

\begin{enumerate}

\item si $a_1=1$; colocar el producto de todos los elementos de a pares
en el arreglo \textbf{PROD},

%\item si $a_1=2$; reemplazar los términos impares por el promedio de los pares
%adyacentes, y en los extremos por la mitad del par adyacente,

\item si $a_1=3$; si la suma de los diez primeros elementos es mayor que la suma de
los diez siguientes permutar los dos grupos,

%\item si $a_1=4$; generar un arreglo de $2\times 2$, donde cada
%elemento sea el producto de grupos de a 5 del arreglo anterior.

\item si $a_1=5$; generar un arreglo l\'ogico reemplazando cada $a_i \ge 0$ por
\texttt{.TRUE.} y si $a_i < 0$ por \texttt{.FALSE.}.

\end{enumerate}

\item Construir una subrutina que realice un intercambio (swapping) de
los valores de 2 variables enteras entre sí.

\item  Hacer una subrutina que permita rotar un vector
$\vec{x}\,= a\,\breve{\imath}\, +\, b\,\breve{\jmath}\ +\, c\, \breve{k} $
en torno a uno de sus ejes, dadas las componentes ($a$,$b$,$c$), el
ángulo de rotación $\theta$ en radianes y un índice que establece
sobre cual eje se realiza la rotación.

{\small 
\begin{displaymath}
R_x(\theta) =
\begin{pmatrix}
   1  &    0   &    0 \\
   0  &  \cos \theta & \sin \theta\\
   0  & -\sin \theta & \cos \theta\\
\end{pmatrix},\quad
R_y(\theta) =
\begin{pmatrix}
\cos \theta & 0 & -\sin \theta \\ 0 & 1 &
0 \\ \sin \theta & 0 & \cos \theta \\
\end{pmatrix},\quad
R_z(\theta) =
\begin{pmatrix}
\cos \theta  &  \sin \theta &   0 \\
-\sin \theta &  \cos \theta &   0 \\
    0   &   0     &   1 \\
\end{pmatrix}
\end{displaymath}
}
\item Supongamos una lista de nombres de hasta 20 caracteres cada uno (contando los 
blancos). Construir una subrutina que los ordene alfabéticamente 
nada más que por la primera letra. Se puede suponer que la lista es una
matriz de $20 \times n$ y cada elemento es leído como variable de tipo
\texttt{CHARACTER}.

\end{enumerate}

\end{document}

\item En  un cálculo  astronómico, se  determinan, para  el día de la
    fecha los instantes de  tiempo de salida y  puesta del Sol, y  los
    instantes de salida y puesta de una estrella.

    La estrella será invisible si:

    (a)  La  salida  se  produce  antes  de la puesta y dicho intervalo
    sucede durante el día.

    No se considera aqui el caso de estrellas circumpolares.

    Observe entonces que lo casos de visibilidad son:

    (b) la salida del astro se produce antes del amanecer.

    (c) la puesta del astro se produce despues del anochecer.

    (d) la salida del astro se produce despues de la puesta.

     \ \ \   Ej:  salida=15hs\ \ \     puesta=7hs del dia siguiente
\smallskip

\begin{tabbing}
    Sea  \ \ \ \  \=    SOL1: \ \ \ \ \  \=   hora de salida del Sol\\
          \>    SOL2:  \>   hora de puesta del Sol \\
          \>    STAR1: \>    hora de salida de la estrella \\
          \>    STAR2: \>    hora de puesta de la estrella \\
\end{tabbing}

    Realice una subrutina que determine si la estrella será visible o
    no.  Pruebe que existe compa\-ti\-bilidad entre la afirmación (a) y
    (b),(c),(d).

    Utilice variables lógicas para probar las afirmaciones.
    > Podría ser una \texttt{FUNCTION} ?





