efg.gnuplot

   1 #!/usr/bin/gnuplot
   2 # vim: set tabstop=4 softtabstop=4 shiftwidth=4 expandtab:
   3 #
   4 # Trabajo Práctico I de Análisis Numérico I
   5 # Genera gráficos con los resultados de las corridas utilizando
   6 # GNU Plot.
   7 # Copyright (C) 2002 Leandro Lucarella <leandro@lucarella.com.ar>
   8 #
   9 # Este programa es Software Libre; usted puede redistribuirlo
  10 # y/o modificarlo bajo los términos de la "GNU General Public
  11 # License" como lo publica la "FSF Free Software Foundation",
  12 # o (a su elección) de cualquier versión posterior.
  13 #
  14 # Este programa es distribuido con la esperanza de que le será
  15 # útil, pero SIN NINGUNA GARANTIA; incluso sin la garantía
  16 # implícita por el MERCADEO o EJERCICIO DE ALGUN PROPOSITO en
  17 # particular. Vea la "GNU General Public License" para más
  18 # detalles.
  19 #
  20 # Usted debe haber recibido una copia de la "GNU General Public
  21 # License" junto con este programa, si no, escriba a la "FSF
  22 # Free Software Foundation, Inc.", 59 Temple Place - Suite 330,
  23 # Boston, MA  02111-1307, USA.
  24 #
  25 # $URL$
  26 # $Date$
  27 # $Rev$
  28 # $Author$
  29 #
  30
  31 # Seteo terminal para que "dibuje" en un PS.
  32 set term postscript eps enhanced color
  33 set encoding iso_8859_1
  34 set output "<A>g.eps"
  35
  36 # Seteos generales.
  37 set title "Variacion R y S en funcion de las iteraciones N = 16 y w = <B>"
  38 set key bottom
  39
  40 # Eje X.
  41 set xlabel  "Iteraciones"
  42 set mxtics  5
  43
  44 # Eje Y.
  45 set ylabel  "R (en escala logaritmica)"
  46 set ytics   nomirror
  47 set mytics  5
  48
  49 # Eje Y secundario.
  50 set y2label "Radio espectral (S) / Valor del nodo central (113)"
  51 set y2range [0:1.2]
  52 set y2tics   0, 0.1
  53 set my2tics  5
  54
  55 # Plotea
  56 plot '<A>g.txt' every ::2 using 1:2 smooth csplines axes x1y1 title "ln(R)" with lines linetype 1, \
  57      '<A>g.txt'every ::2  using 1:3 smooth csplines axes x1y2 title "S" with lines linetype 3, \
  58      '<A>g.txt'every ::2  using 1:4 smooth csplines axes x1y2 title "Nodo central (113)" with lines linetype 4