Warning: this is an htmlized version!
The original is across this link,
and the conversion rules are here.
#######
#
# E-scripts on gnuplot.
#
# Note 1: use the eev command (defined in eev.el) and the
# ee alias (in my .zshrc) to execute parts of this file.
# Executing this file as a whole makes no sense.
#
# Note 2: be VERY careful and make sure you understand what
# you're doing.
#
# Note 3: If you use a shell other than zsh things like |&
# and the for loops may not work.
#
# Note 4: I always run as root.
#
# Note 5: some parts are too old and don't work anymore. Some
# never worked.
#
# Note 6: the definitions for the find-xxxfile commands are on my
# .emacs.
#
# Note 7: if you see a strange command check my .zshrc -- it may
# be defined there as a function or an alias.
#
# Note 8: the sections without dates are always older than the
# sections with dates.
#
# This file is at <http://angg.twu.net/e/gnuplot.e>
#           or at <http://angg.twu.net/e/gnuplot.e.html>.
#        See also <http://angg.twu.net/emacs.html>,
#                 <http://angg.twu.net/.emacs[.html]>,
#                 <http://angg.twu.net/.zshrc[.html]>,
#                 <http://angg.twu.net/escripts.html>,
#             and <http://angg.twu.net/>.
#
#######





# «.gnuplot-mode»	(to "gnuplot-mode")
# «.ploticus»		(to "ploticus")
# «.gnuplot-4.0»	(to "gnuplot-4.0")
# «.parabola»		(to "parabola")
# «.noraise»		(to "noraise")
# «.gnuplottex»		(to "gnuplottex")

# (find-es "lua5" "lua-gnuplot")
# (find-es "maxima")
# (find-esgrep "grep -nH -e gnuplot *.e")




# (find-zsh "installeddebs | sort | grep gnuplot")
# (find-zsh "availabledebs | sort | grep gnuplot")

gnuplot-doc
gnuplot-mode
gnuplot-nox
gnuplot-x11
gnuplot

apti gnuplot-doc gnuplot-mode gnuplot-nox gnuplot-x11 gnuplot

# (find-status   "gnuplot-doc")
# (find-vldifile "gnuplot-doc.list")
# (find-udfile   "gnuplot-doc/")
# (find-status   "gnuplot-mode")
# (find-vldifile "gnuplot-mode.list")
# (find-udfile   "gnuplot-mode/")
# (find-status   "gnuplot-nox")
# (find-vldifile "gnuplot-nox.list")
# (find-udfile   "gnuplot-nox/")
# (find-status   "gnuplot-x11")
# (find-vldifile "gnuplot-x11.list")
# (find-udfile   "gnuplot-x11/")
# (find-status   "gnuplot")
# (find-vldifile "gnuplot.list")
# (find-udfile   "gnuplot/")

# (find-udfile "gnuplot-doc/htmldocs/")
# (find-fline "/usr/share/doc/gnuplot-doc/examples/")






#####
#
# gnuplot
# 2004may05
#
#####

# (find-status   "gnuplot")
# (find-vldifile "gnuplot.list")
# (find-fline "/usr/doc/gnuplot/")
# (find-fline "/usr/doc/gnuplot/examples/")

# (find-status   "gnuplot-doc")
# (find-vldifile "gnuplot-doc.list")
# (find-udfile   "gnuplot-doc/")

# (find-status   "gnuplot-nox")
# (find-vldifile "gnuplot-nox.list")
# (find-udfile   "gnuplot-nox/")
# (find-status   "gnuplot-x11")
# (find-vldifile "gnuplot-x11.list")
# (find-udfile   "gnuplot-x11/")

# (find-fline "/usr/share/gnuplot/gnuplot.gih")
# (find-man "1 gnuplot")
# (find-man "1 lasergnu")

#*
rm -Rv  /tmp/gnuplot-doc/
mkdir   /tmp/gnuplot-doc/
cp -ivR /usr/share/doc/gnuplot-doc/examples/* /tmp/gnuplot-doc
gunzip -rv /tmp/gnuplot-doc/
cd      /tmp/gnuplot-doc/

#*
# (find-fline "/tmp/gnuplot-doc/")

# Avoid repetitions and avoid a demo that never ends
# (find-node "(gnuplot)Top")
# (find-node "(gnuplot)x11")
# (find-node "(gnuplot)terminal")

cd /tmp/gnuplot-doc/examples/
mv -v all.dem all.demos
mv -v borders.dem borders.evildemo

echo 'set terminal x11' > x11
for i in *.dem; do
  echo $i
  gnuplot x11 $i
done

#*

(defun find-gnuplothelp (tag &rest rest)
  (apply 'find-fline "/usr/share/gnuplot/gnuplot.gih"
         (if tag (format "\n?%s\n" tag))
         rest))

(find-gnuplothelp "title")
(find-gnuplothelp "set xrange")
(find-gnuplothelp "plot datafile using")

#*
cd /tmp/
cat > L.dat <<'%%%'
2 1
1 1
1 2
1 3
%%%
cat > sqrt.dat <<'%%%'
1.5 2.5
2   1.5
2.5 2.5
3.5 2.5
%%%

#*
cd /tmp/
PAGER=cat gnuplot
set terminal 11
set xrange [-5:+5]
set yrange [-5:+5]
set xzeroaxis 1
set yzeroaxis 1
set grid
plot "L.dat" with linespoints
replot "sqrt.dat" with linespoints



set trange [0: 2*pi]

set xrange [-5:+5]
set yrange [-5:+5]



set title ""
set xlab ""
set key box
set parametric
set samples 100
set isosamples 10
set data style lines
set function style lines
pause 0  "Joukowski Airfoil using Complex Variables" 
set title "Joukowski Airfoil using Complex Variables" 0,0
set time
set yrange [-.2 : 1.8]
set trange [0: 2*pi]
set xrange [-.6:.6]
zeta(t) = -eps + (a+eps)*exp(t*{0,1})
eta(t) = zeta(t) + a*a/zeta(t)
eps = 0.06
a =.250
set xlabel "eps = 0.06 real"
plot real(eta(t)),imag(eta(t))
pause -1 "Press Return"
eps = 0.06*{1,-1}
set xlabel "eps = 0.06 + i0.06"
plot real(eta(t)),imag(eta(t))
pause -1 "Press Return"
reset





#####
#
# gnuplot-mode
# 2009oct21
#
#####

# «gnuplot-mode»  (to ".gnuplot-mode")
# (find-status "gnuplot-mode")
# (find-vldifile "gnuplot-mode.list")
# (find-fline "/usr/doc/gnuplot-mode/")



# «ploticus»  (to ".ploticus")
# (find-status "ploticus")
# (find-vldifile "ploticus.list")
# (find-fline "/usr/doc/ploticus/")
# (find-status "ploticus-doc")
# (find-vldifile "ploticus-doc.list")
# (find-fline "/usr/doc/ploticus-doc/")





#####
#
# gnuplot 4.0 source
# 2004may05
#
#####

# «gnuplot-4.0»  (to ".gnuplot-4.0")
#*
rm -Rv ~/usrc/gnuplot-4.0.0/
tar -C ~/usrc/ \
  -xvzf $S/ftp/ftp.gnuplot.info/pub/gnuplot/gnuplot-4.0.0.tar.gz

cd     ~/usrc/gnuplot-4.0.0/
./configure	|& tee oc
make		|& tee om
make install	|& tee omi

#*
cd ~/usrc/gnuplot-4.0.0/demo/
echo 'set terminal x11' > x11
for i in *.dem; do
  echo $i
  gnuplot x11 $i
done

#*


# (code-c-d "gnuplot" "~/usrc/gnuplot-4.0.0/")
# (find-gnuplotfile "")
# (find-gnuplotfile "oc")

(defun find-gnuplothelp (tag &rest rest)
  (apply 'find-gnuplotfile "doc/gnuplot.gih"
         (if tag (format "\n?%s\n" tag))
         rest))



# (find-node "(gnuplot)plotting_styles" "-- DOTS --")




#####
#
# parabola
# 2008dec05
#
#####

# «parabola»  (to ".parabola")
# Parábola:   y(x) = a x^2 + b x + c
# Derivada:  y'(x) = 2 a x + b
# 
# Se x = p, a parábola passa pelo ponto:
#   (p, y(p)) = (p, a p^2 + b p + c)
# 
# Queremos uma reta r(x) que passe por esse ponto e
# que tenha inclinação y'(p) = 2 a p + b...
# Ou seja, r(p) = y(p), r'(p) = y'(p).
# Como r(x) é constante (= y'(p)) vamos ter
# 
#   r(x) = y'(p) x + _
# 
# falta descobrirmos o valor do "_". A solução mais
# fácil é esta:
# 
#   r(x) = y'(p) (x - p) + y(p)
#   r(x) = (2 a p + b) (x - p) + (a p^2 + b p + c)
# 
# que se você quiser simplificar isso vira:
# 
#   r(x) = (2 a p + b) x - (2 a p + b) p + (a p^2 + b p + c)
#        = (2 a p + b) x - (2 a p^2 + b p) + (a p^2 + b p + c)
#        = (2 a p + b) x + (- 2 a + a) p^2 + (- b + b) p + c
#        = (2 a p + b) x - a p^2 + c

* (eepitch-gnuplot)
* (eepitch-kill)
* (eepitch-gnuplot)

set terminal x11 noraise
set xrange [-6:6]
y(x) = a*x**2 + b*x + c
yp(x) = 2*a*x + b
r(x) = (2*a*p + b) * x + (a*p**2 + b*p + c)
r(x) = yp(p) * (x - p) + y(p) 
r2(x) = (2*a*p + b)*x - a*p**2 + c
a = .5
b = -4
c = -6
p = 2
plot 0, y(x), yp(x), r(x)
plot 0, y(x), yp(x), r(x), r2(x)-.2



#####
#
# terminal types and noraise
# 2009oct21
#
#####

# «noraise»  (to ".noraise")
# (find-node "(gnuplot)be" "-noraise")
# (find-node "(gnuplot)texdraw")
# (find-node "(gnuplot)tkcanvas")
# (find-node "(gnuplot)tpic")
# (find-node "(gnuplot)x11" "{no}raise")






#####
#
# gnuplottex
# 2009oct21
#
#####

# «gnuplottex»  (to ".gnuplottex")
# (find-zsh "dmissing gnuplottex")
# (find-status   "texlive-pictures")
# (find-vldifile "texlive-pictures.list")
# (find-udfile   "texlive-pictures/")
# (find-fline "/usr/share/doc/texlive-doc/latex/gnuplottex/README")
# (find-fline "/usr/share/doc/texlive-doc/latex/gnuplottex/example.tex")
# (find-fline "/usr/share/texmf-texlive/tex/latex/gnuplottex/gnuplottex.sty")
# (find-xpdfpage "/usr/share/doc/texlive-doc/latex/gnuplottex/gnuplottex.pdf" 1)





#  Local Variables:
#  coding:               raw-text-unix
#  ee-delimiter-hash:    "\n#*\n"
#  ee-delimiter-percent: "\n%*\n"
#  ee-anchor-format:     "«%s»"
#  End: