ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/org-plot.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\207" [require org org-table] 2)
#@56 Default options to gnuplot used by `org-plot/gnuplot'.
(defvar org-plot/gnuplot-default-options '((:plot-type . 2d) (:with . lines) (:ind . 0)) (#$ . 477))
(defvar org-plot-timestamp-fmt nil)
#@99 Parse an OPTIONS line and set values in the property list P.
Returns the resulting property list.
(defalias 'org-plot/add-options-to-plist #[(p options) "\306 \203i \307\310\311\312\306
\211A\242\211\203h @\f\235\203J \313\314@! P \n#\203 \312\225\315A\316\317\320 \"!@\321A\"B#\202! \313\314@! P \"\203 \315A\316\317\320 \"!@#\202 -)\207" [o options start regexp multiples op nil (("type" . :plot-type) ("script" . :script) ("line" . :line) ("set" . :set) ("title" . :title) ("ind" . :ind) ("deps" . :deps) ("with" . :with) ("file" . :file) ("labels" . :labels) ("map" . :map) ("timeind" . :timeind) ("timefmt" . :timefmt)) ("set" "line") ":\\([\"][^\"]+?[\"]\\|[(][^)]+?[)]\\|[^ \n
;,.]*\\)" 0 string-match regexp-quote plist-put read-from-string match-string 1 plist-get p] 8 (#$ . 675)])
#@116 Move the point forward to the beginning of nearest table.
Return value is the point at the beginning of the table.
(defalias 'org-plot/goto-nearest-table #[nil "\300\301!\210\302 \204 \303\301yW\203 \304 b\207" [move-beginning-of-line 1 org-at-table-p 0 org-table-begin] 2 (#$ . 1505) nil])
#@166 Collect options from an org-plot `#+Plot:' line.
Accepts an optional property list PARAMS, to which the options
will be added. Returns the resulting property list.
(defalias 'org-plot/collect-options #[(&optional params) "\302\300!\303\304\"\203 \305 \306\307\"\"\202 )\207" [line params thing-at-point string-match "#\\+PLOT: +\\(.*\\)$" org-plot/add-options-to-plist match-string 1] 5 (#$ . 1805) nil])
#@68 Convert field S from timestamp to Unix time and export to gnuplot.
(defalias 'org-plot-quote-timestamp-field #[(s) "\302\303 !\"\207" [org-plot-timestamp-fmt s format-time-string org-time-string-to-time] 4 (#$ . 2223)])
#@38 Quote field S for export to gnuplot.
(defalias 'org-plot-quote-tsv-field #[(s) "\303 \"\203 \207\303\n \"\203 \304 !\207\305\306\307\310 \305\"\311#\305Q\207" [org-table-number-regexp s org-ts-regexp3 string-match org-plot-quote-timestamp-field "\"" mapconcat identity split-string "\"\""] 6 (#$ . 2450)])
#@125 Export TABLE to DATA-FILE in a format readable by gnuplot.
Pass PARAMS through to `orgtbl-to-generic' when exporting TABLE.
(defalias 'org-plot/gnuplot-to-data #[(table data-file params) "\306\307\310!!\311\216r q\210\312\304!\210\313 \314\"\206 \315\316
\317\320 \"\"c\210)r q\210\321\322\211\n\322\323%\210,\322\207" [data-file #1=#:temp-buffer #2=#:temp-file params org-plot-timestamp-fmt table get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] make-local-variable plist-get :timefmt "%Y-%m-%d-%H:%M:%S" orgtbl-to-generic org-combine-plists (:sep " " :fmt org-plot-quote-tsv-field) write-region nil 0] 6 (#$ . 2767)])
#@215 Export the data in TABLE to DATA-FILE for gnuplot.
This means in a format appropriate for grid plotting by gnuplot.
PARAMS specifies which columns of TABLE should be plotted as independent
and dependant variables.
(defalias 'org-plot/gnuplot-to-grid-data #[(table data-file params) "\306\307\"S\310\311\"\203 \312\313\306\311\"\"\2023 \314 @G\315 \f
W\2030 \f\nB\fT\211\202 *\n) \315 \314 \315Y\203G \312\316 \" \204R \315Y\203^ \317 \"\312\320 \" \321\322\323!! \324\216r q\210 G @G\325\314\211 ! \" # $#\315 \f
W\203\346 $\315 % %
W\203\312 \"\fS%\326\f% 88!#P !\"\f%\326\f% 88!#P!%T\211%\202\225 * c\210\327c\210!c\210\327c\210\330\211 !\fT\211\202\210 .r q\210\331\314\211 \314\315%\210, ,\207" [params ind collector table col --dotimes-limit-- plist-get :ind plist-member :deps mapcar #[(val) "S\207" [val] 1] nil 0 #[(row) "T\211 \n8B\207" [counter ind row] 4] delq #[(row) "G\305 \nW\203! >\204 \233\211 \306\240\210) T\211\202 *\307\306\"\207" [row col --dotimes-limit-- deps #1=#:c 0 nil delq] 4] get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] #[(col row value) "T T\303\304 \305Z\n \306\\\n&\207" [col row value format "%f %f %f\n%f %f %f\n" 0.5 0.5] 8] string-to-number "\n" "" write-region deps counter row-vals data-file #2# #3=#:temp-file back-edge front-edge gnuplot-row num-cols num-rows row] 9 (#$ . 3472) nil])
#@259 Write a gnuplot script to DATA-FILE respecting the options set in PARAMS.
NUM-COLS controls the number of columns plotted in a 2-d plot.
Optional argument PREFACE returns only option parameters in a
manner suitable for prepending to a user-specified script.
(defalias 'org-plot/gnuplot-script #[(data-file num-cols params &optional preface) "\306\307\"\211\310\232\203 \311\202 \306\312\"\306\313\"\306\314\" \306\315\" \306\316\" @\306\317\" A\306\320\" B\306\321\" C\306\322\" D\306\323\" E\324\325\"\205R \306\325\" F\306\326\" G\306\327\" H\306\330\" I\331 J\332 \333\"\203t \334\202\207 \332 \335\"\203 \336\202\207 \332 \337\"\205\207 \336 K\340 L\341 M\342 NA\203\253 M\343\344\345A!\"!\210M\343\346A\"!\210\332 \347\"\204\335 \332 \350\"\203\305
\203\335 M\351!\210\202\335 \332 \352\"\203\335
\203\330 M\353!\210\202\335 M\354!\210@\203\353 M\343\355@\"!\210\f\203\364 \356\357\f\"\210 \203\375 \356\360 \"\210H\203M\343\361\362\363H\364#\"!\210I\203!M\343\365\362\366I\364#\"!\210C\2038M\367!\210M\370D\2064\371\372Q!\210O\204\332 \373\"\203\314P\374 Q RQRW\203\310 \375\232\203uB\203gQTB\232\204\277F\203uQTF\235\203\277\343JSB\203\223B\374V\203\223E\204\223\343\376B\"\206\224\377QTE\203\246\343\201T B\"\202\247\377\nQG8\206\270\343\201U QT\"&NBNQT\211Q\202M*\202\367\332 \201V \"\203\343\343\201W S\n#CN\202\367\332 \201X \"\203\367\343\201Y S\n#CNMK\201Z \362\201[ \201\\ N!\201] #Q!\210L.\207" [params type with sets lines map plist-get :plot-type grid pm3d :with :set :line :map :title :file :ind :timeind :timefmt :textind plist-member :deps :labels :xlabels :ylabels "'%s' using %s%d%s with %s title '%s'" memql '2d "plot" '3d "splot" 'grid "reset" #[(line) "\302\303 #\211\207" [script line format "%s\n%s"] 4] nil format "set term %s" file-name-extension "set output '%s'" '2d '3d "set map" 'grid "set pm3d map" "set pm3d" "set title '%s'" mapc #[(el) " !\207" [ats el] 2] #[(el) "\302\303 \"!\207" [ats el format "set %s"] 4] "set xtics (%s)" mapconcat #[(pair) "\301\302A@#\207" [pair format "\"%s\" %d"] 4] ", " "set ytics (%s)" #[(pair) "\301\302A@#\207" [pair format "\"%s\" %d"] 4] "set xdata time" "set timefmt \"" "%Y-%m-%d-%H:%M:%S" "\"" '2d 0 2d "%d:" "" title file ind time-ind timefmt text-ind deps col-labels x-labels y-labels plot-str plot-cmd script ats plot-lines preface num-cols col --dotimes-limit-- data-file ":xticlabel(%d)" "%d" '3d "'%s' matrix with %s title ''" 'grid "'%s' with %s title ''" " " identity reverse ",\\\n "] 11 (#$ . 4976)])
#@165 Plot table using gnuplot. Gnuplot options can be specified with PARAMS.
If not given options will be taken from the +PLOT
line directly before or after the table.
(defalias 'org-plot/gnuplot #[(&optional params) "\306\307!\210\310 \311\216\312 \210\313\314!\203 r\314q\210db\210\315\316!\210)\317 \210\320\321 \"\210\322\323!\324 \211@\325=\203: A@\202< @G @\325\232\203L A\211\202? A@\325\232\203a \326
\327 @#\330\325 A\"\212\331y\332\232\203v \333\334!\203v \335
!\202b )\336
\337\" @\340@\341\"\203\216 \342 \n
#\210\202\272 \340@\343\"\203\237 \342 \n
#\210\202\272 \340@\344\"\203\272 \345 \n
#\211 A\203\271 \326
\346A#\210))\336
\347\"S\211 B\332Y\203 \336
\337\"\350\232\203 \330\332\351\352\351\353 \"\"\"G\332U\203\352 \326
\354\355#\210\202 \336
\356\"\357\230\204\330\332\351\360\351\361 \"\"\"G\332V\203 \326
\362\355#\210)\363\364! CrCq\210\365\216\336
\366\"\203C\367\n\f
\355$c\210\370c\210\371\336
\366\"!\210eb\210\372\373\316\355#\203J\374\n\316\211#\210\2022\367\n\f
#c\210\375 \210\376 \210+\377\313\314!!\210\201D \201E \316\201F #-\207" [#1=#:wconfig org-plot/gnuplot-default-options data-file table num-cols params require gnuplot current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] delete-other-windows get-buffer "*gnuplot*" gnuplot-delchar-or-maybe-eof nil org-plot/goto-nearest-table mapc #[(pair) "\302 @\"?\205 \303 @ A#\211\207" [params pair plist-member plist-put] 4] make-temp-file "org-plot" org-table-to-lisp hline plist-put :labels delq -1 0 looking-at "[[:space:]]*#\\+" org-plot/collect-options plist-get :plot-type memql '2d org-plot/gnuplot-to-data '3d 'grid org-plot/gnuplot-to-grid-data :ylabels :ind 2d mapcar #[(el) "\302 \"\203 \303\207\304\207" [org-ts-regexp3 el string-match 0 1] 3] #[(row) " 8\207" [ind row] 2] :timeind t :with "hist" #[(el) "\302 \"\203 \303\207\304\207" [org-table-number-regexp el string-match 0 1] 3] #[(row) " 8\207" [ind row] 2] :textind generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] :script org-plot/gnuplot-script "\n" insert-file-contents re-search-forward "$datafile" replace-match gnuplot-mode gnuplot-send-buffer-to-gnuplot bury-buffer #3=#:temp y-labels ind #2# run-with-idle-timer 0.1 #[nil "\301!\207" [data-file delete-file] 2]] 8 (#$ . 7586) nil])
(provide 'org-plot)
Kontol Shell Bypass