isolineas.awk

   1 #!/usr/bin/awk -f
   2 # vim: set tabstop=4 softtabstop=4 shiftwidth=4 expandtab:
   3 #
   4 # Trabajo Práctico I de Análisis Numérico I
   5 # Muestra el resultado de una iteración de forma más agradable.
   6 # Copyright (C) 2002 Leandro Lucarella <leandro@lucarella.com.ar>
   7 #
   8 # Este programa es Software Libre; usted puede redistribuirlo
   9 # y/o modificarlo bajo los términos de la "GNU General Public
  10 # License" como lo publica la "FSF Free Software Foundation",
  11 # o (a su elección) de cualquier versión posterior.
  12 #
  13 # Este programa es distribuido con la esperanza de que le será
  14 # útil, pero SIN NINGUNA GARANTIA; incluso sin la garantía
  15 # implícita por el MERCADEO o EJERCICIO DE ALGUN PROPOSITO en
  16 # particular. Vea la "GNU General Public License" para más
  17 # detalles.
  18 #
  19 # Usted debe haber recibido una copia de la "GNU General Public
  20 # License" junto con este programa, si no, escriba a la "FSF
  21 # Free Software Foundation, Inc.", 59 Temple Place - Suite 330,
  22 # Boston, MA  02111-1307, USA.
  23 #
  24 # $URL: file:///var/lib/subversion/facultad/75.12/2002/1/resultado.awk $
  25 # $Date: 2002-10-13 23:38:45 -0300 (dom, 13 oct 2002) $
  26 # $Rev: 9 $
  27 # $Author: luca $
  28 #
  29
  30 {
  31     for ( i = 7; i >= 1; i-- ) {
  32         for ( j = 0; j < 7; j++ ) {
  33             printf "%7.3f ", $(3+i+j*7)
  34         }
  35         printf "\n"
  36     }
  37 }