Warning: this is an htmlized version!
The original is across this link,
and the conversion rules are here.
#######
#
# E-scripts on Octave.
#
# 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/octave.e>
#           or at <http://angg.twu.net/e/octave.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/>.
#
#######




# (find-es "math" "octave")

# (find-zsh "installeddebs | sort | grep octave")
# (find-zsh "availabledebs | sort | grep octave")
# (find-zsh "dmissing octave")
# (find-zsh "dmissing octave | grep info")

# (find-status   "octave3.2-common")
# (find-vldifile "octave3.2-common.list")
# (find-udfile   "octave3.2-common/")
# (find-status   "octave3.2-doc")
# (find-vldifile "octave3.2-doc.list")
# (find-udfile   "octave3.2-doc/")
# (find-status   "octave3.2")
# (find-vldifile "octave3.2.list")
# (find-udfile   "octave3.2/")
# (find-status   "octave3.2-info")
# (find-vldifile "octave3.2-info.list")
# (find-udfile   "octave3.2-info/")
# (find-node "(octave)Top")
# (find-node "(Octave-FAQ)Top")


# (find-angg ".emacs" "octave")

* (eepitch-octave)
* (eepitch-kill)
* (eepitch-octave)
a = [1,2;3,4]
a*a
a^-1
a * (a^-1)
1;
function xdot = f (x, t)
  r = 0.25;
  k = 1.4;
  a = 1.5;
  b = 0.16;
  c = 0.9;
  d = 0.8;
  xdot(1) = r*x(1)*(1 - x(1)/k) - a*x(1)*x(2)/(1 + b*x(1));
  xdot(2) = c*a*x(1)*x(2)/(1 + b*x(1)) - d*x(2);
endfunction
x0 = [1; 2];
t = linspace (0, 50, 200)';
x = lsode ("f", x0, t);
# use_plplot
plot (t, x)
# keyboard



* (eepitch-octave)
* (eepitch-kill)
* (eepitch-octave)
# (find-octavenode "Basic Matrix Functions")
# (find-octavenode "Matrix Factorizations")
a = [1, 2, 3;
     0, 5, 4;
     7, 8, 9]
lu(a)
[l, u, p] = lu(a)

# (find-node "(octave)Customizing the Prompt")
# (find-node "(octave)Startup Files")
# (find-fline "~/.octaverc")
#PS1 = "%%> "
#PS2 = "%> "

function xdot = f (x, t)
  r = 0.25;
  k = 1.4;
  a = 1.5;
  b = 0.16;
  c = 0.9;
  d = 0.8;
  xdot(1) = r*x(1)*(1 - x(1)/k) - a*x(1)*x(2)/(1 + b*x(1));
  xdot(2) = c*a*x(1)*x(2)/(1 + b*x(1)) - d*x(2);
endfunction
x0 = [1; 2];
t = linspace (0, 50, 200)';
x = lsode ("f", x0, t);
# use_plplot
# plot (t, x)
quit





http://jordi.platinum.linux.pl/octave.html/Broadcasting.html
http://videolectures.net/mloss08_eaton_oct/







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