;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:07:53 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-plot.el
;;; in Emacs version 24.3.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!\210\300\303!\207" [require org org-exp 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)) (#$ . 643))
(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@\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 (#$ . 841)])
#@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 (#$ . 1668) 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 (#$ . 1968) 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 (#$ . 2386)])
#@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 (#$ . 2613)])
#@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*" ((byte-code "\301!\203\n\302!\210\301\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 (#$ . 2930)])
#@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\216rq\210G@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.rq\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*" ((byte-code "\301!\203\n\302!\210\301\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 (#$ . 3651) 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\331J\332	\333\"\203t\334\202\207\332	\335\"\203\336\202\207\332	\337\"\205\207\336K\340L\341M\342NA\203\253M\343\344\345A!\"!\210M\343\346A\"!\210\332	\347\"\204\335\332	\350\"\203\305
\203\335M\351!\210\202\335\332	\352\"\203\335
\203\330M\353!\210\202\335M\354!\210@\203\353M\343\355@\"!\210\f\203\364\356\357\f\"\210\203\375\356\360\"\210H\203
M\343\361\362\363H\364#\"!\210I\203!
M\343\365\362\366I\364#\"!\210C\2038
M\367!\210M\370D\2064
\371\372Q!\210O\204\332	\373\"\203\314
P\374QRQRW\203\310
	\375\232\203u
B\203g
QTB\232\204\277
F\203u
QTF\235\203\277
\343JSB\203\223
B\374V\203\223
E\204\223
\343\376B\"\206\224
\377QTE\203\246
\343\201TB\"\202\247
\377\nQG8\206\270
\343\201UQT\"&NBNQT\211Q\202M
*\202\367
\332	\201V\"\203\343
\343\201WS\n#CN\202\367
\332	\201X\"\203\367
\343\201YS\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 (#$ . 5171)])
#@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!\203r\314q\210db\210\315\316!\210)\317 \210\320\321	\"\210\322\323!\324 \211@\325=\203=\211A@)\202?@G@\325\232\203OA\211\202B\211A@)\325\232\203i\326@\327@#@\330\325A\"\212\331y\332\232\203\200\333\334!\203\200\335@!@\202j)\336\337@\340\"\341\"\203\226\342\n@#\210\202\313\336\337@\340\"\343\"\203\253\342\n@#\210\202\313\336\337@\340\"\344\"\203\313\345\n@#\211A\203\312\326@\346A#\210)\337@\347\"S\211B\332Y\203
\337@\340\"\350\232\203
\330\332\351\352\351\353\"\"\"G\332U\203\375\326@\354\355#\210\202
\337@\356\"\357\230\204
\330\332\351\360\351\361\"\"\"G\332V\203
\326@\362\355#\210)\363\364!CrCq\210\365\216\337@\366\"\203[
\367\n
@\355$c\210\370c\210\371\337@\366\"!\210eb\210\372\373\316\355#\203c
\374\n\316\211#\210\202J
\367\n
@#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 x num-cols require gnuplot current-window-configuration ((set-window-configuration #1#)) 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 memql plist-get :plot-type '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*" ((byte-code "\301!\203\n\302!\210\301\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 params y-labels ind #2# run-with-idle-timer 0.1 #[nil "\301!\207" [data-file delete-file] 2]] 8 (#$ . 7781) nil])
(provide 'org-plot)