Paquete Algorithm y preguntas

[luisocr]

Estimados Colegas:

Les adjunto un ejemplo del paquete algorithm que me parece que no se ha mostrado aca en algun ejemplo. Adjunto una imagen y el codigo referente a la imagen que muestro. Cabe destacar que el único problema que encuentro con el paquete es que todavía no logro averiguar como hacer para que los algoritmos largos, realicen el salto de página, osea que continuen en la siguiente pagina. si alguien sabe, talvez puede pasarme el "volado".


[IMG=http://img64.imageshack.us/img64/2042/86129711.png]http://[/img]


=============================================================================================
=============================================================================================

\documentclass[11pt, letterpaper, oneside]{book}
\usepackage{fancyhdr, ifpdf,amsmath, amssymb, latexsym, graphicx}
\usepackage{color}
\usepackage[ruled,noend,vlined,lined,linesnumbered,algochapter,portugues]{algorithm2e}

\begin{document}

\begin{algorithm}
%Etiquetas de ciclos
\SetKwIF{If}{ElseIf}{Else}{If}{ Then}{Else if}{Else}{EndIf}
\SetKwFor{For}{For}{To}{EndFor}
%Etiquetas instrucciones
\SetKw{KwNexti}{Next $i$}
\SetKw{KwNextj}{Next $j$}
\SetKw{KwNextk}{Next $k$}
\SetKw{KwVar}{Variables}
\SetKw{KwEndIf}{EndIf}
%Etiquetas de datos
\SetKwData{Kwkmna}{$=1+(k-1)(n+1)(m+1)$}
\SetKwData{Kwkmnb}{$k(n+1)(m+1)$}
\SetKwData{Kwa}{$=0$}
\SetKwData{Kwb}{$=1$}
%Encabezado
\caption{Asignaci\'on de diafragma r\'igido}
\label{algo:diafragma rigido}
\SetLine
%Opciones de formato
\linesnumbered
\BlankLine
\dontprintsemicolon
%Codigo
      \texttt{ReDim Value($5$)}\;
      \Indp \texttt{Value($0$)=True}\;
       \texttt{Value($1$)=True}\;
      \texttt{Value($5$)=True}\;
      \Indm\For($s$){$k$ \Kwb}{\texttt{ret = SapModel.ConstraintDef.SetBody("Piso " \& $k$, Value)}\;
      \For(\Kwkmnb){$i$ \Kwkmna}{\texttt{SapModel.PointObj.SetConstraint(Format($i$), "Piso " \& $k$)}
      }
      \KwNexti
      }
\KwNextk
     
\end{algorithm}

\end{document}

=============================================================================================
=============================================================================================

Con respecto a las preguntas que he acumulado desde mi último post:

1. Existe alguna forma de colocar texto vertical en las tablas, tal y como se muestra en esta imagen, ya que debo adjuntar esta tabla en el documento de mi tesis.


[IMG=http://img710.imageshack.us/img710/2148/57940872.png][/IMG]

2. Existe alguna forma de modificar los "captions" de las tablas, especificante referente a la etiqueta y la numeración?

[gm]

Hola,

1) Página 3 de la documentación del paquete algorithm2e:

Caution: algorithms cannot be cut, so if there is not enough place to put an algorithm with H option at a given spot, L TEX will place a blank and put the algorithm on the following page.

Así que no, no hay forma de que este paquete permita un salto de página en medio de un algoritmo. Si te interesa tener esta opción, el paquete listings puede ser una buena alternativa.

2) Puedes usar el comando \rotatebox del paquete graphicx, como muestra el siguiente ejemplo esquemático:

Código:

\documentclass{article}
\usepackage{graphicx}

\begin{document}

\begin{tabular}{cc}
  \rotatebox{90}{Texto rotado} & texto normal
\end{tabular}

\end{document}

3) El paquete caption te permite personalizar los pies de imágenes y de tablas. Por favor, consulta la documentación del paquete para ver todas las posibilidades y opciones que brinda.

[luisocr]

Muchisimas Gracias GM. Trataré de estudiar estos nuevos paquetes. Lamentablemente tengo más dudas. Vieras que me gustaría asignarle un "caption" al diagrama de flujo, ya sea de figura o cualquiera en realidad. He tratado de usar la instrucción caption, pero me da error. Otro intento fue el de colocar el codigo \begin{figure} \caption{Diagrama de Flujo} \end{figure} justo antes del diagrama, pero tampoco me funciono. Te agradeceria mucho si me pudieras aclarar esta duda.

[gm]

De nada.

...He tratado de usar la instrucción caption, pero me da error. Otro intento fue el de colocar el codigo \begin{figure} \caption{Diagrama de Flujo} \end{figure} justo antes del diagrama, pero tampoco me funciono...

¿Estamos hablando del diagrama de este otro hilo? Para poder ayudarte de manera efectiva, voy a necesitar ver el código completo y minimal (en el sentido de un ejemplo mínimo compilable (MWE, por las iniciales en inglés)) que te causa problemas. Solicito este MWE porque el siguiente código (que usa el diagrama del otro hilo) no me presenta ningún problema y coloca un pie de tabla (claro, con la palabra "Table" ya que no se hicieron los preparativos para cambiar el nombre predefinido, pero mi intención es ilustrar que no hay problemas con un \caption normal ya que estamos dentro de un entorno flotante):

Código:

\documentclass{article}
\usepackage{array}
\usepackage{booktabs}
\usepackage{tikz}
\usetikzlibrary{shapes,arrows}

% comando (una "caja vertical fantasma") para adicionar espacio vertical
% entre las filas
\newcommand\espacio{\vphantom{\parbox{1cm}{a\\b\\c}}}

%Diagrama de Flujo.
\newcommand\pasob{Accesa al programa Sap2000 atrav\'es la Interfaz de Programaci\'on de Aplicaciones.}
\newcommand\pasoc{Importa desde Excel una base de datos con las propiedades de los materiales y secciones.}
\newcommand\pasod{Define los patrones y las combinaciones de carga.}
\newcommand\pasoe{Importa desde excel las coordenadas de los nudos y define los elementos estructurales.}
\newcommand\pasof{Asigna las cargas distribuidas, seg\'un el patr\'on de carga especificado, a los elementos estructurales.}
\newcommand\pasog{Asigna las condiciones de apoyo a las columnas.}
\newcommand\pasoh{Define los diafragmas r\'igidos de cada nivel.}
\newcommand\pasoi{Importa desde excel y asigna la carga s\'ismica.}
\newcommand\pasoj{Guarda el modelo, realiza el an\'alisis estructural y exporta los desplazamientos a Excel.}
\newcommand\pasoka{Recalcula el periodo de la estructura mediante el m\'etodo de Rayleigh. Recalcula las fuerzas s\'ismica con base en el nuevo periodo}
\newcommand\pasokb{Calcula la diferencia entre el periodo estimado y el calculado.?`La diferencia es menor a  0.01? Si: Paso 11. No: Paso 8}
\newcommand\pasol{Exporta los momentos, cortantes y cargas axiales \'ultimas de dise\~no a excel.}

% definición del estilos para los nodos rectangulares
\tikzset{rectangular/.style= rectangle, minimum height=6mm, minimum width=20mm}

% para definir nodos y referirnos a ellos después
\tikzstyle{every picture}+=[remember picture]

% definición de un nuevo tipo de columna
\newcolumntype{A}[1]{>{\centering\arraybackslash}m{#1}}

\begin{document}

\begin{table}[!ht]
\caption{Diagrama de flujo.}
\label{tab:diaflujo}
  \centering
  \begin{tabular}{A{.5cm}m{7.5cm}A{2.5cm}A{2.5cm}}
  \toprule
    \textbf{Paso} & \multicolumn{1}{c}{\textbf{Descripci\'on}} & \textbf{Excel} &\textbf{Sap2000} \\\midrule
    \espacio & &
        \begin{tikzpicture}
          \node [rectangular,rounded corners=3.0mm,draw=black,line width=0.85pt] (A) {\small{Inicio}};   
        \end{tikzpicture} & \\
    1\espacio & \small{\pasob} &
        \begin{tikzpicture}
          \node [rectangular,draw=black,line width=0.85pt] (B) {\small{1}};
        \end{tikzpicture}& \\
    2\espacio & \small{\pasoc} & &
        \begin{tikzpicture}
          \node [rectangular,draw=black,line width=0.85pt] (C) {\small{2}};
        \end{tikzpicture} \\
    3\espacio & \small{\pasod} & &
        \begin{tikzpicture}
          \node [rectangular,draw=black,line width=0.85pt] (D) {\small{3}};
        \end{tikzpicture} \\
  4\espacio & \small{\pasoe} & &
        \begin{tikzpicture}
          \node [rectangular,draw=black,line width=0.85pt] (E) {\small{4}};
        \end{tikzpicture} \\
  5\espacio & \small{\pasof} & &
        \begin{tikzpicture}
          \node [rectangular,draw=black,line width=0.85pt] (F) {\small{5}};
        \end{tikzpicture} \\
  6\espacio & \small{\pasog} & &
        \begin{tikzpicture}
          \node [rectangular,draw=black,line width=0.85pt] (G) {\small{6}};
        \end{tikzpicture} \\
  7\espacio & \small{\pasoh} & &
        \begin{tikzpicture}
          \node [rectangular,draw=black,line width=0.85pt] (H) {\small{7}};
        \end{tikzpicture} \\
  8\espacio & \small{\pasoi} & &
        \begin{tikzpicture}
          \node [rectangular,draw=black,line width=0.85pt] (I) {\small{8}};
        \end{tikzpicture} \\       
  9\espacio & \small{\pasoj} & &
        \begin{tikzpicture}
          \node [rectangular,draw=black,line width=0.85pt] (J) {\small{9}};
        \end{tikzpicture} \\       
    10\espacio & \small{\pasoka} & 
        \begin{tikzpicture}
          \node [rectangular,draw=black,line width=0.85pt] (K){\small{10}};
        \end{tikzpicture} & \\       
    \espacio & \small{\pasokb}  &
        \begin{tikzpicture}
        \node [diamond,minimum height=7mm,minimum width=15mm, draw=black,line width=0.85pt] (L) {};
      \end{tikzpicture} &\\       
  11\espacio & \small{\pasol} & &
        \begin{tikzpicture}
          \node [rectangular,draw=black,line width=0.85pt] (M) {\small{11}};
        \end{tikzpicture} \\       
        & \\ &&&
        \begin{tikzpicture}
          \node [rectangular,rounded corners=3.0mm,draw=black,line width=0.85pt] (N) {\small{Fin}};   
        \end{tikzpicture} \\       
  \bottomrule
  \end{tabular}

  % ahora conectamos los nodos
  \begin{tikzpicture}[overlay,->,>=stealth']
    \draw[->] (A) -- (B);
    \draw[->] (B) |- +(2.8,-0.5) -| (C);
    \draw[->] (C) -- (D);
    \draw[->] (D) -- (E);
    \draw[->] (E) -- (F);
    \draw[->] (F) -- (G);
    \draw[->] (G) -- (H);
    \draw[->] (H) -- (I);
    \draw[->] (I) -- (J);
    \draw[->] (J) |- +(-2.8,-0.5) -| (K);
    \draw[->] (K) -- (L);   
    \draw[->] (L) |- node [left=-7mm] {s\'i} +(2.8,-0.5) -| (M);
    \draw[->] (L.east) -|  +(3.5,1.5) node [right=-6mm]  {no} |- (I);
    \draw[->] (M) -- (N); 
\end{tikzpicture}
\end{table}

\end{document}

Por otro lado (pero eso ya depende de ti), teniendo en cuenta que es un diagrama de flujo y no es, estrictamente hablando, ni una tabla ni una figura, yo pensaría en definir un nuevo tipo de objeto flotante, para que así el encabezado del pie de este nuevo objeto dijera directamente algo como "Diagrama de flujo 1: (y aquí la descripción)". Esto se puede lograr también con el paquete caption (ver vínculo en un post anterior) y he aquí un pequeño ejemplo (en el que defino un nuevo tipo de objeto flotante, cuyo pie se comporta similarmente a los de imágenes o tablas (pero con el encabezado "Diagrama de flujo") y muestro además que todo queda listo para obtener (con un solo comando) una lsta de estos nuevos flotantes (lista que es similar a la LoT y la LoF)):

Código:

\documentclass{article}
\usepackage{array}
\usepackage{booktabs}
\usepackage{tikz}
\usetikzlibrary{shapes,arrows}
\usepackage{caption}

% declaración del nuevo tipo de objeto flotante:
\DeclareCaptionType[placement=htbp,fileext=lod]{diaflujo}
  [Diagrama de flujo][Índice de diagramas]

% comando (una "caja vertical fantasma") para adicionar espacio vertical
% entre las filas
\newcommand\espacio{\vphantom{\parbox{1cm}{a\\b\\c}}}

%Diagrama de Flujo.
\newcommand\pasob{Accesa al programa Sap2000 atrav\'es la Interfaz de Programaci\'on de Aplicaciones.}
\newcommand\pasoc{Importa desde Excel una base de datos con las propiedades de los materiales y secciones.}
\newcommand\pasod{Define los patrones y las combinaciones de carga.}
\newcommand\pasoe{Importa desde excel las coordenadas de los nudos y define los elementos estructurales.}
\newcommand\pasof{Asigna las cargas distribuidas, seg\'un el patr\'on de carga especificado, a los elementos estructurales.}
\newcommand\pasog{Asigna las condiciones de apoyo a las columnas.}
\newcommand\pasoh{Define los diafragmas r\'igidos de cada nivel.}
\newcommand\pasoi{Importa desde excel y asigna la carga s\'ismica.}
\newcommand\pasoj{Guarda el modelo, realiza el an\'alisis estructural y exporta los desplazamientos a Excel.}
\newcommand\pasoka{Recalcula el periodo de la estructura mediante el m\'etodo de Rayleigh. Recalcula las fuerzas s\'ismica con base en el nuevo periodo}
\newcommand\pasokb{Calcula la diferencia entre el periodo estimado y el calculado.?`La diferencia es menor a  0.01? Si: Paso 11. No: Paso 8}
\newcommand\pasol{Exporta los momentos, cortantes y cargas axiales \'ultimas de dise\~no a excel.}

% definición del estilos para los nodos rectangulares
\tikzset{rectangular/.style= rectangle, minimum height=6mm, minimum width=20mm}

% para definir nodos y referirnos a ellos después
\tikzstyle{every picture}+=[remember picture]

% definición de un nuevo tipo de columna
\newcolumntype{A}[1]{>{\centering\arraybackslash}m{#1}}

\begin{document}

% solo para ilustrar lo fácil que resulta crear ahora una lista de diagramas similar
% a la LoT y la LoF
\listofdiaflujos
\clearpage

\begin{diaflujo}[!ht]
\caption{proceso medinate el que se calcula...}
\label{tab:diaflujo}
  \centering
  \begin{tabular}{A{.5cm}m{7.5cm}A{2.5cm}A{2.5cm}}
  \toprule
    \textbf{Paso} & \multicolumn{1}{c}{\textbf{Descripci\'on}} & \textbf{Excel} &\textbf{Sap2000} \\\midrule
    \espacio & &
        \begin{tikzpicture}
          \node [rectangular,rounded corners=3.0mm,draw=black,line width=0.85pt] (A) {\small{Inicio}};   
        \end{tikzpicture} & \\
    1\espacio & \small{\pasob} &
        \begin{tikzpicture}
          \node [rectangular,draw=black,line width=0.85pt] (B) {\small{1}};
        \end{tikzpicture}& \\
    2\espacio & \small{\pasoc} & &
        \begin{tikzpicture}
          \node [rectangular,draw=black,line width=0.85pt] (C) {\small{2}};
        \end{tikzpicture} \\
    3\espacio & \small{\pasod} & &
        \begin{tikzpicture}
          \node [rectangular,draw=black,line width=0.85pt] (D) {\small{3}};
        \end{tikzpicture} \\
  4\espacio & \small{\pasoe} & &
        \begin{tikzpicture}
          \node [rectangular,draw=black,line width=0.85pt] (E) {\small{4}};
        \end{tikzpicture} \\
  5\espacio & \small{\pasof} & &
        \begin{tikzpicture}
          \node [rectangular,draw=black,line width=0.85pt] (F) {\small{5}};
        \end{tikzpicture} \\
  6\espacio & \small{\pasog} & &
        \begin{tikzpicture}
          \node [rectangular,draw=black,line width=0.85pt] (G) {\small{6}};
        \end{tikzpicture} \\
  7\espacio & \small{\pasoh} & &
        \begin{tikzpicture}
          \node [rectangular,draw=black,line width=0.85pt] (H) {\small{7}};
        \end{tikzpicture} \\
  8\espacio & \small{\pasoi} & &
        \begin{tikzpicture}
          \node [rectangular,draw=black,line width=0.85pt] (I) {\small{8}};
        \end{tikzpicture} \\       
  9\espacio & \small{\pasoj} & &
        \begin{tikzpicture}
          \node [rectangular,draw=black,line width=0.85pt] (J) {\small{9}};
        \end{tikzpicture} \\       
    10\espacio & \small{\pasoka} & 
        \begin{tikzpicture}
          \node [rectangular,draw=black,line width=0.85pt] (K){\small{10}};
        \end{tikzpicture} & \\       
    \espacio & \small{\pasokb}  &
        \begin{tikzpicture}
        \node [diamond,minimum height=7mm,minimum width=15mm, draw=black,line width=0.85pt] (L) {};
      \end{tikzpicture} &\\       
  11\espacio & \small{\pasol} & &
        \begin{tikzpicture}
          \node [rectangular,draw=black,line width=0.85pt] (M) {\small{11}};
        \end{tikzpicture} \\       
        & \\ &&&
        \begin{tikzpicture}
          \node [rectangular,rounded corners=3.0mm,draw=black,line width=0.85pt] (N) {\small{Fin}};   
        \end{tikzpicture} \\       
  \bottomrule
  \end{tabular}

  % ahora conectamos los nodos
  \begin{tikzpicture}[overlay,->,>=stealth']
    \draw[->] (A) -- (B);
    \draw[->] (B) |- +(2.8,-0.5) -| (C);
    \draw[->] (C) -- (D);
    \draw[->] (D) -- (E);
    \draw[->] (E) -- (F);
    \draw[->] (F) -- (G);
    \draw[->] (G) -- (H);
    \draw[->] (H) -- (I);
    \draw[->] (I) -- (J);
    \draw[->] (J) |- +(-2.8,-0.5) -| (K);
    \draw[->] (K) -- (L);   
    \draw[->] (L) |- node [left=-7mm] {s\'i} +(2.8,-0.5) -| (M);
    \draw[->] (L.east) -|  +(3.5,1.5) node [right=-6mm]  {no} |- (I);
    \draw[->] (M) -- (N); 
\end{tikzpicture}
\end{diaflujo}

\end{document}

[luisocr]

Muchisimas gracias por tu ayuda, definitivamente solucionaste mi inquietud mediante la creación de este nuevo ambiente. Me disculpo por darte tanto trabajo, pero creo que mi curva de aprendizaje aun no despeja. Gracias.

[luisocr]

Hola Compañeros:

Durante este fin de semana estuve tratando de reproducir la table de esbetez que presente arriba y simplemente no puede. El texto rotado lo que hacia era agrandar la primera fila de la tabla, pero no aparecía en el resto de las filas, así que para molestarlos nuevamente me preguntaba si había una forma de "merge" o combinar esas filas.

Además me preguntaba si había alguna forma de modificar el tamaño de los subindices en modo matemático. Saludos y gracias por atender todas mis dudas. 

[gm]

...El texto rotado lo que hacia era agrandar la primera fila de la tabla, pero no aparecía en el resto de las filas, así que para molestarlos nuevamente me preguntaba si había una forma de "merge" o combinar esas filas...

El paquete multirow al rescate.

...Además me preguntaba si había alguna forma de modificar el tamaño de los subindices en modo matemático.

Claro que sí (hasta cierto punto). Cuéntanos específicamente qué quieres hacer.

[luisocr]

Hola GM:

Gracias por tu ayuda!!  Lo que quiero es disminuir el tamaño de los exponentes talvez a un 80% de su tamaño real por efectos estéticos. Gracias por tu ayuda.

[gm]

Hola, luisocr

en modo matemático hay cuatro estilos diferents: \displaystyle, \textstyle, \scriptstyle y \scriptscriptstyle de los que depende el tamaño de la fuente utilizada. Normalmente los subíndices y superíndices de primer nivel se escriben en el estilo \scriptstyle, así que una manera de reducir su tamaño sería usar \scriptsciptstyle explícitamente (ver primera parte de mi código de ejemplo).

Otra posibilidad es usar \mathsmaller, del paquete relsize (ver segunda parte de mi código de ejemplo).

Las dos opciones anteriores no permiten controlar a voluntad el factor de escalamiento; además, \mathsmaller puede no siempre producir el resultado deseado.

Una tercera opción es utilizar el comando \scalebox del paquete graphicx; la ventaja: se controla el factor de escalamiento explícitamente. La desventaja: solo se puede usar en modo texto, así que hay que hecer algo de acrobacia: usar \text (del paquete amsmath) para pasar a texto; en el segundo argumento de \scalebox usar $...$ para volver a modo matemático (ver segunda parte de mi código de ejemplo).

Un pequeño ejemplo: cada línea muestra la comparación entre una expresión estándar con superíndices y cada una de las sugerencias que expliqué antes.

Código:

\documentclass{article}
\usepackage{exscale,relsize}
\usepackage{graphicx}
\usepackage{amsmath}

\begin{document}

% pasando "a mano" de \scriptstyle a \scriptscriptstyle (no requiere ningún paquete)
$a^{\frac{3}{2}}\quad  a^{\scriptscriptstyle\frac{3}{2}}$

%Usando \mathsmaller (requiere el paquete relsize)
$a^{\frac{3}{2}}\quad  a^{\mathsmaller{\frac{3}{2}}}$

%Usando \scalebox (requiere los paquetes graphicx y amsmath)
$a^{\frac{3}{2}}\quad  a^{\text{\scalebox{.8}{$\frac{3}{2}$}}}$

\end{document}