| Server IP : 217.160.0.212 / Your IP : 216.73.216.76 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/org/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
(byte-code "\300\301!\210\302\303\304\"\207" [require ob add-to-list org-babel-tangle-lang-exts ("maxima" . "max")] 3)
(defvar org-babel-default-header-args:maxima nil)
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable org-babel-maxima-command funcall function #[0 "\301\300!\203 \207\302\207" [maxima-command boundp "maxima"] 2 ""] "Command used to call maxima on the shell." :group org-babel :type string] 8)
#@84 Expand a block of Maxima code according to its header arguments.
(fn BODY PARAMS)
(defalias 'org-babel-maxima-expand #[514 "\300!\301\236A\302\236A\303\304\3051 \306!0\202 \210\307\211\203' \310\311\"\202( \312\262\303\313\314# \315\257\314#\207" [org-babel--get-vars :epilogue :prologue mapconcat identity (error) org-babel-graphical-output-file nil format "set_plot_option ([gnuplot_term, png]); set_plot_option ([gnuplot_out_file, %S]);" "" org-babel-maxima-var-to-maxima "\n" "gnuplot_close ()$"] 13 (#$ . 534)])
#@127 Execute a block of Maxima entries with org-babel.
This function is called by `org-babel-execute-src-block'.
(fn BODY PARAMS)
(defalias 'org-babel-execute:maxima #[514 "\301\302!\210\303\304\236A\206
\305!\306\236A\206 \305\307\310\311\"\312\313$\314\315\316\"\317\320\"\216r\211q\210\321\"c\210)r\211q\210\322\323\211\323\324%\210*\210\301!\210\325\305\"\326\327\330\323\331\332\303\333\"\"\"\334#\262\266\203\3351j \336!0\202l \210\323?\205\341 \337\235?\205\341 \340\235\204\271 \341\235\204\271 \342\235\204\271 \343\235\204\271 \344\235\204\271 \345\235\204\271 \346\235\204\263 \347\235\204\263 \350\235\204\263 \351\235\203\272 \352\235\204\272 \207\307\353!\314\315\316\"\317\354\"\216r\211q\210c\210)r\211q\210\322\323\211\323\324%\210*\210\355!\262\207" [org-babel-maxima-command message "executing Maxima source code block" split-string :results "" :cmdline org-babel-temp-file "maxima-" ".max" format "%s --very-quiet -r 'batchload(%S)$' %s" generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] org-babel-maxima-expand write-region nil 0 org-babel-eval mapconcat identity delq mapcar #[257 "\300\301\"\206 \300\302\"\206 \300\303\"\206 \211G\304U?\205 \211\207" [string-match "batch" "^rat: replaced .*$" "^;;; Loading #P" 0] 4 "\n\n(fn LINE)"] "[
\n]" "\n" (error) org-babel-graphical-output-file "none" "scalar" "verbatim" "html" "code" "pp" "file" "output" "raw" "org" "drawer" "table" "maxima-res-" #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] org-babel-import-elisp-from-file] 16 (#$ . 1075)])
#@23
(fn SESSION PARAMS)
(defalias 'org-babel-prep-session:maxima #[514 "\300\301!\207" [error "Maxima does not support sessions"] 4 (#$ . 2721)])
#@98 Convert an elisp val into a string of maxima code specifying a var
of the same value.
(fn PAIR)
(defalias 'org-babel-maxima-var-to-maxima #[257 "\211@A\2119\203 \300!\262\211G\301U\203 \302!\262\303\304\305!#\207" [symbol-name 1 string-to-char format "%S: %s$" org-babel-maxima-elisp-to-maxima] 8 (#$ . 2871)])
#@66 Return a string of maxima code which evaluates to VAL.
(fn VAL)
(defalias 'org-babel-maxima-elisp-to-maxima #[257 "\211<\203 \300\301\302\303#\304Q\207\305\306\"\207" ["[" mapconcat org-babel-maxima-elisp-to-maxima ", " "]" format "%s"] 6 (#$ . 3198)])
(provide 'ob-maxima)