#######
#
# E-scripts on calc.
#
# 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
# or at .
# See also ,
# ,
# ,
# ,
# and .
#
#######
# «.video-0-2022apr02» (to "video-0-2022apr02")
# «.andrew-hyatt» (to "andrew-hyatt")
# «.vars-in-calc» (to "vars-in-calc")
# (find-node "(calc)Top")
# (find-node "(calc)Demonstration of Calc")
# (find-node "(calc)Demonstration of Calc" "C-x * c")
# (find-node "(calc)Demonstration of Calc" "C-x * c" "M-x calc")
# (find-node "(calc)Demonstration of Calc" "RPN calculation")
# (find-node "(calc)Demonstration of Calc" "Algebraic calculation")
# (eek "M-h M-k C-x * ;; calc-dispatch")
# (find-efunctiondescr 'calc-dispatch)
# (find-efunction 'calc-dispatch)
# (find-efunctiondescr 'calc-dispatch-help)
# (find-efunctiondescr 'calc-graph-view-commands)
# (find-ekeydescr "gv")
# (find-efunction 'calc-graph-view-commands)
C-x * q 100! RET
Type ‘2 3 + Q’ to compute the square root of 2+3, which is
2.2360679775.
Type ‘P 2 ^’ to compute the value of ‘pi’ squared, 9.86960440109.
Type to exchange the order of these two results.
Type ‘- I H S’ to subtract these results and compute the Inverse
Hyperbolic sine of the difference, 2.72996136574.
Type ‘' sqrt(2+3) ’ to compute the square root of 2+3.
Type ‘' pi^2 ’ to enter ‘pi’ squared. To evaluate this symbolic
formula as a number, type ‘=’.
Type ‘' arcsinh($ - $$) ’ to subtract the second-most-recent result
from the most-recent and compute the Inverse Hyperbolic sine.
eepitch-to-buffer
"*Calculator*"
(eepitch-to-buffer "*Calculator*")
(eepitch-kill)
(eepitch-to-buffer "*Calculator*")
' 3
# (find-efunctiondescr 'calc-algebraic-entry)
# (find-efunction 'calc-algebraic-entry)
https://github.com/moosotc/llpp/blob/master/main.ml
# (calc-eval "integ(3x^2-2x^3, x)")
# (find-orgnode "Advanced features")
# (find-orgnode "Advanced features" "Taylor series")
https://www.remcycles.net/blog/calc.html
https://www.youtube.com/watch?v=afsBtpEfoG4
# https://lists.gnu.org/archive/html/bug-gnu-emacs/2022-03/msg00272.html
# (require 'calc)
# (find-efunctiondescr 'calc-dispatch-help)
# (find-efunction 'calc-dispatch-help)
#####
#
# video-0-2022apr02
# 2022apr02
#
#####
# «video-0-2022apr02» (to ".video-0-2022apr02")
# (find-ssr-links "eevcalc0" "2022eev-calc-0" "{hash}")
# (code-eevvideo "eevcalc0" "2022eev-calc-0" "{hash}")
# (code-eevlinksvideo "eevcalc0" "2022eev-calc-0" "{hash}")
# (find-eevcalc0video "0:00")
# https://lists.gnu.org/archive/html/help-gnu-emacs/2022-04/msg00013.html Michael H
# https://lists.gnu.org/archive/html/help-gnu-emacs/2022-04/msg00015.html Edrx
# http://angg.twu.net/eev-videos/2022eev-calc-0.mp4
# http://angg.twu.net/eev-videos/eev-calc.html
A demo of scripting Calc with eev
=================================
Eduardo Ochs, 2022apr02 - based on
this message by Michael Heerdegen:
https://lists.gnu.org/archive/html/help-gnu-emacs/2022-04/msg00013.html
See: http://angg.twu.net/eev-calc.html
(defun eek-at-window (window keyseq)
(save-selected-window
(select-window (get-buffer-window window))
(eek keyseq)))
(defun eec (keyseq) (eek-at-window "*Calculator*" keyseq))
(defun ee-show-calc-windows ()
(interactive)
(find-wset "13o_3o_o"
'(find-ebuffer "*Calculator*")
'(find-ebuffer "*Calc Trail*")))
(calc) (eek "C-x 3 M-1 M-j")
(ee-show-calc-windows)
(eec "' [x0-1 .. x0+1] RET ;; interval")
(eec "' [y0-1 .. y0+1] RET ;; ditto")
(eec "' (x-x0)^2 - (y-y0)^2 + 2 RET ;; alt: define a named function")
(eec "3 s t x0 RET ;; set x0 to 3")
(eec "2 s t y0 RET ;; set y0 to 2")
(eec "M-3 = ;; updates topmost 3 stack values with vars substituted")
(eec "g F ;; draw it")
...it needs to be run from ~/TODO, and it is very fragile. The line
(calc) (eek "C-x 3 M-1 M-j")
will start Calc, and Calc will (usually?) make the frame display the
"*Calculator*" window at the left and the "*Calc Trail*" window at the
right. Then in the `eek' sexp the `C-x 3' splits the "*Calculator*"
window into a left half and a right half, and the `M-1 M-j' makes the
left half visit the file "~/TODO". The
(ee-show-calc-windows)
resizes the windows to make the "~/TODO" window take 50% of the width
of the frame and the window "*Calculator*" and "*Calc Trail*" take 25%
each.
#####
#
# andrew-hyatt
# 2022oct01
#
#####
# «andrew-hyatt» (to ".andrew-hyatt")
# https://github.com/ahyatt/
# https://github.com/ahyatt/emacs-calc-tutorials
# (code-c-d "emacscalctutorials" "~/usrc/emacs-calc-tutorials/")
# (find-emacscalctutorialsfile "")
#####
#
# vars-in-calc
# 2022nov14
#
#####
# «vars-in-calc» (to ".vars-in-calc")
# How to assign values to variables in Emacs GNU Calc
# (find-yttranscript-links "varsincalc" "oznRf8d7k5M")
# (find-youtubedl-links nil nil "oznRf8d7k5M" nil "varsincalc")
# Local Variables:
# coding: utf-8-unix
# End: