#######
#
# 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.
# An introduction to eev can be found here:
#
#   (find-eev-quick-intro)
#   http://angg.twu.net/eev-intros/find-eev-quick-intro.html
#
# 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/>.
#
#######




# «.comments»	(to "comments")
# «.run»	(to "run")
# «.texinfo»	(to "texinfo")



# (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   "octave-common")
# (find-vldifile "octave-common.list")
# (find-udfile   "octave-common/")
# (find-status   "octave-doc")
# (find-vldifile "octave-doc.list")
# (find-udfile   "octave-doc/")
# (find-status   "octave")
# (find-vldifile "octave.list")
# (find-udfile   "octave/")
# (find-status   "octave-info")
# (find-vldifile "octave-info.list")
# (find-udfile   "octave-info/")
# (find-octavenode "Top")
# (find-octavenode "Three-Dimensional Plots" "sombrero")
# (find-octavenode "Concept Index")
# (find-octavenode "Function Index")

apti octave octave-doc octave-info


# (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




* (eepitch-octave)
* (eepitch-kill)
* (eepitch-octave)
a = [3,4;6,8]
a
a*a
a*a*a
a*a*a*a
b = [3,4;8,7]
c = [7,2;4,9]
b
c
b*c



http://jordi.platinum.linux.pl/octave.html/Broadcasting.html
http://videolectures.net/mloss08_eaton_oct/
https://news.ycombinator.com/item?id=34464512 GNU Octave (octave.org)

# (find-node "(octave-mode)Top")
# (find-node "(octave)Top")



#####
#
# comments
# 2024oct04
#
#####

# «comments»  (to ".comments")
# (find-octavenode "Comments")



#####
#
# run
# 2024oct05
#
#####

# «run»  (to ".run")
# (find-octavenode "Functions and Scripts")
# (find-fline "~/LOGS/2024oct04.emacs3" "run foo.m")
# (find-fline "~/LOGS/2024oct04.emacs3" "test as in stuff you want to run")



#####
#
# texinfo
# 2024oct05
#
#####

# «texinfo»  (to ".texinfo")
# (find-octavefile "specfun/factor.m"  "The prime factorization is defined")
# (find-octavenode "Utility Functions" "The prime factorization is defined")

# (find-octavefile "")
# (find-octavesh "find * | sort")







type factorial
test factorial






#  Local Variables:
#  coding:               utf-8-unix
#  End: