#!/usr/bin/gnuplot
# vim: set tabstop=4 softtabstop=4 shiftwidth=4 expandtab:
#
# Trabajo Práctico II de Análisis Numérico I
# Genera gráficos con los resultados de las corridas utilizando
# GNU Plot.
# Copyright (C) 2002 Leandro Lucarella <leandro@lucarella.com.ar>
#
# Este programa es Software Libre; usted puede redistribuirlo
# y/o modificarlo bajo los términos de la "GNU General Public
# License" como lo publica la "FSF Free Software Foundation",
# o (a su elección) de cualquier versión posterior.
#
# Este programa es distribuido con la esperanza de que le será
# útil, pero SIN NINGUNA GARANTIA; incluso sin la garantía
# implícita por el MERCADEO o EJERCICIO DE ALGUN PROPOSITO en
# particular. Vea la "GNU General Public License" para más
# detalles.
#
# Usted debe haber recibido una copia de la "GNU General Public
# License" junto con este programa, si no, escriba a la "FSF
# Free Software Foundation, Inc.", 59 Temple Place - Suite 330,
# Boston, MA  02111-1307, USA.
#
# $URL: http://www.llucax.hn.org:81/svn/facultad/75.12/tp2/c1r.gnuplot $
# $Date: 2002-11-24 19:55:46 -0300 (dom, 24 nov 2002) $
# $Rev: 29 $
# $Author: luca $
#

# Seteo terminal para que "dibuje" en un PS.
set term postscript eps enhanced color
set encoding iso_8859_1
set output "c1r.eps"

# Seteos generales.
set title "Solución por RK4 para el caso sin depósitos y sin fricción"
set key right top

# Eje X.
set xlabel  "Tiempo (t)"
set xrange  [0:440]
set mxtics  5

# Eje Y.
set ylabel "Altura (z)"
set ytics   nomirror
set yrange [-3.5:3.5]
set ytics   -3.5, 0.5
set mytics  5

# Eje Y secundario.
set y2label  "Velocidad (z')"
set y2range [-0.5:0.5]
set y2tics   -0.5, 0.1
set my2tics  5

# Plotea
plot 'c1r.txt' using 1:2 title "z" with lines linetype 1, \
     'c1r.txt' using 1:3 axes x1y2 title "z'" with lines linetype 7