Warning: this is an htmlized version!
The original is here, and the conversion rules are here. |

####### # # 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 <http://angg.twu.net/e/calc.e> # or at <http://angg.twu.net/e/calc.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/>. # ####### # «.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 <RET> 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 <TAB> 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) <RET>’ to compute the square root of 2+3. Type ‘' pi^2 <RET>’ to enter ‘pi’ squared. To evaluate this symbolic formula as a number, type ‘=’. Type ‘' arcsinh($ - $$) <RET>’ 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: