resultado.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$
  25 # $Date$
  26 # $Rev$
  27 # $Author$
  28 #
  29
  30 {
  31     print "Iteraciones: " $1
  32     printf "Radio espectral experimental: %.2f\n", $3
  33     for ( i = 4; i <= NF; i+=9 ) {
  34         for ( j = 0; (j < 9) && (i+j < NF); j++ ) {
  35             printf "%5.2f ", $(i+j)
  36         }
  37         printf "\n"
  38     }
  39 }