SHA256
1
0
forked from pool/gnuplot
gnuplot/gnuplot-4.2.5-demo.dif

227 lines
7.0 KiB
Plaintext
Raw Normal View History

--- demo/fit.dem
+++ demo/fit.dem 2009-06-15 14:13:03.358008816 +0200
@@ -5,6 +5,7 @@
print "Some examples how data fitting using nonlinear least squares fit"
print "can be done."
print ""
+set fit logfile "`mktemp /tmp/fit.log.XXXXXX`"
pause -1 "first plotting the pure data set (-> return)"
set title 'data for first fit demo'
@@ -125,7 +126,7 @@ plot 'soundvel.dat', vlong(x), vtrans(x)
# Must provide an error estimate for a 3d fit. Use constant 1
fit f(x,y) 'soundvel.dat' using 1:-2:2:(1) via 'sound.par'
#create soundfit.par, reading from sound.par and updating values
-update 'sound.par' 'soundfit.par'
+update 'sound.par' "`mktemp /tmp/soundfit.par.XXXXXX`"
print ""
pause -1 "(-> return)"
set title 'pseudo-3d multi-branch fit to velocity data'
--- demo/poldat.dem
+++ demo/poldat.dem 2009-05-09 13:32:24.000000000 +0200
@@ -11,7 +11,7 @@
unset polar
set title "Primitive Smith Chart"
unset key
-set xlabel "Impedance or Admittance Coordinates"
+set xlabel "Impedance or Admittance Coordinates" 12,-1
set para
set rrange [-0 : 10]
set trange [-pi : pi]
--- demo/random.dem
+++ demo/random.dem 2009-06-15 14:28:57.277902957 +0200
@@ -53,7 +53,8 @@ set parametric
# non-pressing plot-command feature addition may address this issue.
set samples nsamp
set format "%8.5g"
-set table "random.tmp"
+random="`mktemp /tmp/random.XXXXXX`"
+set table random
plot invnorm(rand(0)),invnorm(rand(0))
unset table
unset format
@@ -75,7 +76,7 @@ set vrange [-3:3]
set ticslevel 0
set isosamples 30
splot u,v,( 1/(2*pi) * exp(-0.5 * (u**2 + v**2)) ) with line lc rgb "black", \
- "random.tmp" using 1:2:(-0.2) with points pointtype 7 lc rgb "black"
+ random using 1:2:(-0.2) with points pointtype 7 lc rgb "black"
pause -1 "Hit return to continue"
unset contour
@@ -101,7 +102,7 @@ scale = (binwidth/(xhigh-xlow))
set parametric
set samples nsamp
set format "%8.5g"
-set table "random.tmp"
+set table random
plot invnorm(rand(0)),(1.0*scale/nsamp)
unset table
unset format
@@ -115,7 +116,7 @@ set grid
set xrange [-3:3]
set yrange [0:0.45]
bin(x) = (1.0/scale)*floor(x*scale)
-plot "random.tmp" using (bin($1)):2 smooth frequency with steps \
+plot random using (bin($1)):2 smooth frequency with steps \
title "scaled bin frequency", \
normal(x,0,1) with lines title "Gaussian p.d.f."
pause -1 "Hit return to continue"
@@ -136,7 +137,7 @@ set parametric
set samples nsamp
set isosamples 2,2 # Smallest possible
set format "%8.5g"
-set table "random.tmp"
+set table random
splot invnorm(rand(0)),invnorm(rand(0)),invnorm(rand(0))
unset table
unset format
@@ -158,7 +159,7 @@ set zzeroaxis lt -1
set view 68, 28, 1.4, 0.9
tstring(n) = sprintf("Gaussian 3D cloud of %d random samples\n", n)
set title tstring(nsamp) offset graph 0.15, graph -0.33
-splot "random.tmp" every :::::0 with dots
+splot random every :::::0 with dots
if (!oneplot) pause -1 "Hit return to continue"
unset parametric
@@ -178,7 +179,7 @@ scale = (binwidth/(xhigh-xlow))
set xrange [0:xhigh]
set yrange [0:0.65]
bin(x) = (1.0/scale)*floor(x*scale)
-plot "random.tmp" using (bin(sqrt($1**2+$2**2+$3**2))):(1.0*scale/nsamp) every :::::0 smooth frequency with steps \
+plot random using (bin(sqrt($1**2+$2**2+$3**2))):(1.0*scale/nsamp) every :::::0 smooth frequency with steps \
title "scaled bin frequency", \
maxwell(x, 1/sqrt(2)) with lines title "Maxwell p.d.f."
#
@@ -202,7 +203,7 @@ set format xy "%.0f"
set title 'Example of range-limited axes and tics'
A = pi/9.
-plot 'random.tmp' using (1.5 + $1*cos(A)-2.*$2*sin(A)):(1.0 + $1*sin(A)+2.*$2*cos(A)) with dots
+plot random using (1.5 + $1*cos(A)-2.*$2*sin(A)):(1.0 + $1*sin(A)+2.*$2*cos(A)) with dots
pause -1 "Hit return to continue"
--- demo/stringvar.dem
+++ demo/stringvar.dem 2009-06-15 14:46:14.406401438 +0200
@@ -1,7 +1,8 @@
#
# Miscellaneous neat things you can do using the string variables code
#
-set print "stringvar.tmp"
+stringvar="`mktemp /tmp/stringvar.XXXXXX`"
+set print stringvar
print ""
print "Exercise substring handling"
print ""
@@ -24,7 +25,7 @@ print "(foo.foo)[2:2]= ",(foo.foo)[2:2]
print ""
unset print
-set label 1 system("cat stringvar.tmp") at graph 0.1, graph 0.9
+set label 1 system(sprintf("cat %s", stringvar)) at graph 0.1, graph 0.9
unset xtics
unset ytics
set yrange [0:1]
@@ -33,7 +34,7 @@ plot 0
pause -1 "Hit return to continue"
-set print "stringvar.tmp"
+set print stringvar
print "Exercise string handling functions"
print ""
print "foo = ",foo
@@ -62,7 +63,7 @@ if (strlen(foo) != 245) print "sprintf o
print ""
unset print
-set label 1 system("cat stringvar.tmp") at graph 0.1, graph 0.9
+set label 1 system(sprintf("cat %s", stringvar)) at graph 0.1, graph 0.9
unset xtics
unset ytics
set yrange [0:1]
--- demo/simple.dem
+++ demo/simple.dem 2009-05-09 13:32:24.000000000 +0200
@@ -7,12 +7,11 @@
# gnuplot> load 'simple.dem'
#
set key left box
-set samples 50
+set samples 400
plot [-10:10] sin(x),atan(x),cos(atan(x))
pause -1 "Hit return to continue"
set key right nobox
-set samples 100
plot [-pi/2:pi] cos(x),-(sin(x) > sin(x+1) ? sin(x) : sin(x+1))
pause -1 "Hit return to continue"
--- demo/vector.dem
+++ demo/vector.dem 2009-06-15 14:24:23.430401839 +0200
@@ -62,19 +62,21 @@ splot vtot(x,y) w l
print "Now create a file with equipotential lines"
pause -1 "Hit return to continue"
-set table "equipo2.tmp"
+equipo2="`mktemp /tmp/equipo2.XXXXXX`"
+set table equipo2
replot
unset table
reset
pause 0
-plot "equipo2.tmp" w l
+plot equipo2 w l
print "Now create a x/y datafile for plotting with vectors "
print "and display vectors parallel to the electrostatic field"
pause -1 "Hit return to continue"
set isosam 31,31
-set table "field2xy.tmp"
+field2xy="`mktemp /tmp/field2xy.XXXXXX`"
+set table field2xy
splot vtot(x,y) w l
unset table
pause 0
@@ -84,8 +86,8 @@ set xr [xmin:xmax]
set yr [ymin:ymax]
set isosam 31,31
set key under Left reverse
-plot "field2xy.tmp" u 1:2:(coef*dx1($1,$2)):(coef*dy1($1,$2)) w vec, \
- "equipo2.tmp" w l
+plot field2xy u 1:2:(coef*dx1($1,$2)):(coef*dy1($1,$2)) w vec, \
+ equipo2 w l
pause -1 "Hit return to continue"
reset
--- src/variable.c
+++ src/variable.c 2009-06-15 14:01:38.998402587 +0200
@@ -94,6 +94,14 @@ loadpath_handler(int action, char *path)
if (!loadpath)
{
char *envlib = getenv("GNUPLOT_LIB");
+#ifdef GNUPLOT_LIB_DEFAULT
+ char *defenvlib = (char*)0;
+ if (envlib) {
+ if (asprintf(&defenvlib, "%s:%s", envlib, GNUPLOT_LIB_DEFAULT) > 0)
+ envlib = defenvlib;
+ } else
+ envlib = GNUPLOT_LIB_DEFAULT;
+#endif /* GNUPLOT_LIB_DEFAULT */
if (envlib) {
int len = strlen(envlib);
loadpath = gp_strdup(envlib);
@@ -102,6 +110,10 @@ loadpath_handler(int action, char *path)
/* convert all PATHSEPs to \0 */
PATHSEP_TO_NUL(loadpath);
} /* else: NULL = empty */
+#ifdef GNUPLOT_LIB_DEFAULT
+ if (defenvlib)
+ free(defenvlib);
+#endif /* GNUPLOT_LIB_DEFAULT */
} /* else: already initialised; int_warn (?) */
/* point to env portion of loadpath */
envptr = loadpath;