=================================================================== RCS file: /home/cvs/OpenXM_contrib/gnuplot/demo/Attic/prob2.dem,v retrieving revision 1.1.1.1 retrieving revision 1.1.1.3 diff -u -p -r1.1.1.1 -r1.1.1.3 --- OpenXM_contrib/gnuplot/demo/Attic/prob2.dem 2000/01/09 17:01:02 1.1.1.1 +++ OpenXM_contrib/gnuplot/demo/Attic/prob2.dem 2003/09/15 07:09:29 1.1.1.3 @@ -1,10 +1,8 @@ # -# $Id: prob2.dem,v 1.1.1.1 2000/01/09 17:01:02 maekawa Exp $ +# $Id: prob2.dem,v 1.1.1.3 2003/09/15 07:09:29 ohara Exp $ # # Demo Statistical Approximations version 1.1 # -# Permission granted to distribute freely for non-commercial purposes only -# # Copyright (c) 1991, Jos van der Woude, jvdwoude@hut.nl pause 0 "" @@ -18,7 +16,6 @@ pause 0 "" pause 0 " Copyright (c) 1991, 1992, Jos van de Woude, jvdwoude@hut.nl" pause 0 "" pause 0 "" -pause 0 " Permission granted to distribute freely for non-commercial purposes only" pause 0 "" pause 0 "" pause 0 "" @@ -45,7 +42,7 @@ xmax = ceil(mu + 4.0 * sigma) ymax = 1.1 * binom(mu) #mode of binomial PDF used xinc = ceil((xmax - xmin) / 10) xinc = xinc > 1 ? xinc : 1 -set key +set key box set nozeroaxis set xrange [xmin - 1 : xmax + 1] set yrange [0 : ymax] @@ -77,7 +74,7 @@ xmax = ceil(mu + 4.0 * sigma) ymax = 1.1 * binom(mu) #mode of binomial PDF used xinc = ceil((xmax - xmin) / 10) xinc = xinc > 1 ? xinc : 1 -set key +set key box set nozeroaxis set xrange [xmin - 1 : xmax + 1] set yrange [0 : ymax] @@ -111,7 +108,7 @@ xmax = ceil(mu + 4.0 * sigma) xinc = ceil((xmax - xmin) / 10) xinc = xinc > 1 ? xinc : 1 ymax = 1.1 * p -set key +set key box set nozeroaxis set xrange [xmin - 1 : xmax + 1] set yrange [0 : ymax] @@ -143,7 +140,7 @@ xmax = ceil(mu + 4.0 * sigma) xinc = ceil((xmax - xmin) / 10) xinc = xinc > 1 ? xinc : 1 ymax = 1.1 * p -set key +set key box set nozeroaxis set xrange [xmin - 1 : xmax + 1] set yrange [0 : ymax] @@ -176,7 +173,7 @@ xmax = ceil(mu + 4.0 * sigma) xinc = ceil((xmax - xmin) / 10) xinc = xinc > 1 ? xinc : 1 ymax = 1.1 * hypgeo(mu) #mode of binom PDF used -set key +set key box set nozeroaxis set xrange [xmin - 1 : xmax + 1] set yrange [0 : ymax] @@ -209,7 +206,7 @@ xmax = ceil(mu + 4.0 * sigma) xinc = ceil((xmax - xmin) / 10) xinc = xinc > 1 ? xinc : 1 ymax = 1.1 * hypgeo(mu) #mode of binom PDF used -set key +set key box set nozeroaxis set xrange [xmin - 1 : xmax + 1] set yrange [0 : ymax] @@ -243,7 +240,7 @@ xmax = int(mu + 4.0 * sigma) xinc = ceil((xmax - xmin) / 10) xinc = xinc > 1 ? xinc : 1 ymax = 1.1 * g((rho - 1) / lambda) #mode of gamma PDF used -set key +set key box set nozeroaxis set xrange [xmin - 1 : xmax + 1] set yrange [0 : ymax] @@ -275,7 +272,7 @@ xmax = ceil(mu + 4.0 * sigma) xinc = ceil((xmax - xmin) / 10) xinc = xinc > 1 ? xinc : 1 ymax = 1.1 * negbin(mu - 1/p) #mode of gamma PDF used -set key +set key box set nozeroaxis set xrange [xmin - 1 : xmax + 1] set yrange [0 : ymax] @@ -304,7 +301,7 @@ lambda = pi / (sqrt(3.0) * sigma) xmin = mu - 4.0 * sigma xmax = mu + 4.0 * sigma ymax = 1.1 * logistic(mu) #mode of logistic PDF used -set key +set key box set nozeroaxis set xrange [xmin: xmax] set yrange [0 : ymax] @@ -335,7 +332,7 @@ xmax = ceil(mu + 4.0 * sigma) xinc = ceil((xmax - xmin) / 10) xinc = xinc > 1 ? xinc : 1 ymax = 1.1 * poisson(mu) #mode of poisson PDF used -set key +set key box set nozeroaxis set xrange [xmin - 1 : xmax + 1] set yrange [0 : ymax] @@ -353,5 +350,4 @@ set arrow from mu + 0.5, normal(mu + sigma) \ set label "mu" at mu + 1, ymax / 10 set label "sigma" at mu + 1 + sigma, normal(mu + sigma) plot poisson(x), normal(x - 0.5) -set noarrow -set nolabel +reset