;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require cl-lib 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)) (#$ . 171))
(defvar org-plot-timestamp-fmt nil)
#@115 Parse an OPTIONS line and set values in the property list P.
Returns the resulting property list.

(fn P OPTIONS)
(defalias 'org-plot/add-options-to-plist #[514 "\211\203h\300\301\302\211\203f\211@\211@\235\203B\303\304@!\305P#\203_\302\225\262\306A\307\310\311\"!@\312A\"B#\262\202\303\304@!\305P\"\203_\306A\307\310\311\"!@#\262
A\266\202\202\266
\207" [(("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) ("min" . :ymin) ("ymin" . :ymin) ("max" . :ymax) ("ymax" . :ymax) ("xmin" . :xmin) ("xmax" . :xmax) ("ticks" . :ticks) ("trans" . :transpose) ("transpose" . :transpose)) ("set" "line") 0 string-match regexp-quote ":\\([\"][^\"]+?[\"]\\|[(][^)]+?[)]\\|[^ 	\n
;,.]*\\)" plist-put read-from-string match-string 1 plist-get] 14 (#$ . 370)])
#@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 #[0 "\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 (#$ . 1349) nil])
#@189 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.

(fn &optional PARAMS)
(defalias 'org-plot/collect-options #[256 "\300\301!\302\303\"\203\304\305\306\"\"\207
\207" [thing-at-point line string-match "#\\+PLOT: +\\(.*\\)$" org-plot/add-options-to-plist match-string 1] 7 (#$ . 1647) nil])
#@76 Convert field S from timestamp to Unix time and export to gnuplot.

(fn S)
(defalias 'org-plot-quote-timestamp-field #[257 "\301\302!\"\207" [org-plot-timestamp-fmt format-time-string org-time-string-to-time] 5 (#$ . 2062)])
#@46 Quote field S for export to gnuplot.

(fn S)
(defalias 'org-plot-quote-tsv-field #[257 "\302\"\203\207\302	\"\203\303
!\207\304\305\306\307\304\"\310#\304Q\207" [org-table-number-regexp org-ts-regexp3 string-match org-plot-quote-timestamp-field "\"" mapconcat identity split-string "\"\""] 7 (#$ . 2295)])
#@154 Export TABLE to DATA-FILE in a format readable by gnuplot.
Pass PARAMS through to `orgtbl-to-generic' when exporting TABLE.

(fn TABLE DATA-FILE PARAMS)
(defalias 'org-plot/gnuplot-to-data #[771 "\301\302\303\"\304\305\"\216r\211q\210\306\300!\210\307\310\"\206\311\312\313\314\"\"c\210)r\211q\210\315\316\211\316\317%\210*\210\316\207" [org-plot-timestamp-fmt generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 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] 10 (#$ . 2616)])
#@244 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 dependent variables.

(fn TABLE DATA-FILE PARAMS)
(defalias 'org-plot/gnuplot-to-grid-data #[771 "\300
\301\"S\302\303\"\203\304\305\300\303\"\"\2022\306@G\307\211W\203-\211B\262\211T\262
\202\266\211\262
C\307C\306\307Y\203H\304\310\311#\"\262
\242\204S\307Y\203e\312\242\"\240\210\304\310\313\"\"\262\314\315\316\"\310\317\"\216r\211q\210G@G\320\306\211\307\211W\203\321\307\211W\203\267S\32188!#P\262\32188!#P\262\211T\262
\202\204\210
c\210\322c\210c\210\322c\210\323\262\323\262\211T\262
\202}\266)r\211q\210\324\306\211	\306\307%\210*\210\207" [plist-get :ind plist-member :deps mapcar #[257 "\211S\207" [] 2 "\n\n(fn VAL)"] nil 0 make-closure #[257 "\301\211\242T\240\210\301\242\3008B\207" [V0 V1] 4 "\n\n(fn ROW)"] delq #[257 "\211G\301\211W\203\211\300\242>\204\211\233\211\302\240\266\211T\262
\202\266\303\302\"\207" [V0 0 nil delq] 6 "\n\n(fn ROW)"] generate-new-buffer " *temp file*" t #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] #[771 "T\262
T\262\300\301\302Z\302\\&\207" [format "%f  %f  %f\n%f  %f  %f\n" 0.5] 11 "\n\n(fn COL ROW VALUE)"] string-to-number "\n" "" write-region] 23 (#$ . 3283) nil])
#@194 Rudimentary statistics about NUMS, useful for guessing axis ticks.
If HARD-MIN or HARD-MAX are set, they will be used instead of the min/max
of the NUMS.

(fn NUMS &optional HARD-MIN HARD-MAX)
(defalias 'org--plot/values-stats #[769 "
\206\300\301\"
\206\300\302\"\211Z\211\303U\203\303\202%\304\305\306\307\"Z!\310\307\"\303U\2035@\202?\311\312_!!
\245\303U\203K@\202U\311\304_!!\245\313\314\315	\316	\317\n\320\321
Z\257\207" [apply min max 0 ceiling 1 log 10 expt float floor :min :max :range :range-factor :nice-min :nice-max :nice-range] 25 (#$ . 4718)])
#@183 From a the values in a TABLE of data, guess an appropriate number of ticks.
If HARD-MIN and HARD-MAX can be used to fix the ends of the axis.

(fn TABLE &optional HARD-MIN HARD-MAX)
(defalias 'org--plot/sensible-tick-num #[769 "\300\301\302#\"\300\303\"\300\304\"\305\306\307\310\311\300\312\"$\313\"\306\314\315!\"\207" [mapcar make-closure #[257 "\302\303\304A\"\300\301#\207" [V0 V1 org--plot/values-stats mapcar string-to-number] 5 "\n\n(fn ROW)"] #[257 "\300\301\302\"\301\303\"_!\211\304\246\305U\203\211\304\245\207\207" [round plist-get :range-factor :nice-range 10 0] 6 "\n\n(fn R-DATA)"] org--plot/prime-factors sort apply org--plot/merge-alists + 0 #[257 "\300
\301\"\207" [org--plot/item-frequencies t] 4 "\n\n(fn FACTORS)"] #[514 "
A
AV\207" [] 4 "\n\n(fn A B)"] * org--plot/nice-frequency-pick] 14 (#$ . 5327)])
#@99 From a list of FREQUENCIES, try to sensibly pick a sample of the most frequent.

(fn FREQUENCIES)
(defalias 'org--plot/nice-frequency-pick #[257 "\211G\211\300\267\202*
@@C\207\301@AA@A\245X\203!\302\303@@\"\207
@@A@@D\207\304\305\306\307\"\"\306\310\311\"\"\211@@C
@AA@A\245A@A\3038A\245

_@@A@@\3038@\312V\203hB\262W\203\200\304\313\"_\314W\203\200
B\262
W\203\230\304\313\"
_\314W\203\230\211B\262\207" [#s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (1 8 2 13)) 3 make-list 2 apply + mapcar cdr make-closure #[257 "\211@\301A!\300\245B\207" [V0 float] 4 "\n\n(fn FREQ)"] 4 * 30] 14 (#$ . 6172)])
#@231 Using FUNCTION, combine the elements of ALIST1, ALIST2 and any other ALISTS.
When an element is only present in one alist, DEFAULT is used as the second
argument for the FUNCTION.

(fn FUNCTION DEFAULT ALIST1 ALIST2 &rest ALISTS)
(defalias 'org--plot/merge-alists #[1156 "\211G\300V\203\301\302%\262\303\304\305!!\306\307$\211\310\211:\203M@\262
\f
#

#\"B
B\262
A\262\202#\211\237\207" [0 apply org--plot/merge-alists #[257 "\300\301\"\207" [mapcar car] 4 "\n\n(fn ALIST)"] #[771 "\300\"A\206	\207" [assoc] 6 "\n\n(fn DEFAULT KEY ALIST)"] cl-union :test equal nil] 18 (#$ . 6860)])
#@174 Return an alist indicating the frequency of values in VALUES list.
When NORMALISE is non-nil, the count is divided by the number of values.

(fn VALUES &optional NORMALISE)
(defalias 'org--plot/item-frequencies #[513 "\211\203\300G!\202\f\301\302\303\"\304\211\211:\2036@\262\211A\262\242\262
G\245B
B\262
A\262\202\211\237\207" [float 1 seq-group-by identity nil] 10 (#$ . 7490)])
#@79 Return the prime decomposition of VALUE, e.g. for 12, \='(3 2 2).

(fn VALUE)
(defalias 'org--plot/prime-factors #[257 "\300\301\301U\204%\211T\262

\246\302=\203\211B\262
\245\262\211S\262
\202\303\302\304#\207" [(1) 1 0 cl-subseq -1] 7 (#$ . 7897)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\207" [custom-declare-variable org-plot/gnuplot-script-preamble funcall function #[0 "\300\207" [#1=""] 1 #1#] "String of function to be inserted before the gnuplot plot command is run.\n\nNote that this is in addition to, not instead of other content generated in\n`org-plot/gnuplot-script'.  If a function, it is called with the plot type as\nthe argument, and must return a string to be used." :group org-plot :type (choice string function) org-plot/preset-plot-types #[0 "\300\207" [((2d :plot-cmd "plot" :check-ind-type t :plot-func (lambda (_table data-file num-cols params plot-str) (let* ((type (plist-get params :plot-type)) (with (if (eq type 'grid) 'pm3d (plist-get params :with))) (ind (plist-get params :ind)) (deps (if (plist-member params :deps) (plist-get params :deps))) (text-ind (or (plist-get params :textind) (eq (plist-get params :with) 'histograms))) (col-labels (plist-get params :labels)) res) (dotimes (col num-cols res) (unless (and (eq type '2d) (or (and ind (equal (1+ col) ind)) (and deps (not (member (1+ col) deps))))) (setf res (cons (format plot-str data-file (or (and ind (> ind 0) (not text-ind) (format "%d:" ind)) #1#) (1+ col) (if text-ind (format ":xticlabel(%d)" ind) #1#) with (or (nth col col-labels) (format "%d" (1+ col)))) res))))))) (3d :plot-cmd "splot" :plot-pre (lambda (_table _data-file _num-cols params _plot-str) (if (plist-get params :map) "set map")) :plot-func (lambda (_table data-file _num-cols params _plot-str) (let* ((type (plist-get params :plot-type)) (with (if (eq type 'grid) 'pm3d (plist-get params :with)))) (list (format "'%s' matrix with %s title ''" data-file with))))) (grid :plot-cmd "splot" :plot-pre (lambda (_table _data-file _num-cols params _plot-str) (if (plist-get params :map) "set pm3d map" "set map")) :data-dump (lambda (table data-file params _num-cols) (let ((y-labels (org-plot/gnuplot-to-grid-data table data-file params))) (when y-labels (plist-put params :ylabels y-labels)))) :plot-func (lambda (table data-file _num-cols params _plot-str) (let* ((type (plist-get params :plot-type)) (with (if (eq type 'grid) 'pm3d (plist-get params :with)))) (list (format "'%s' with %s title ''" data-file with))))) (radar :plot-func (lambda (table _data-file _num-cols params plot-str) (list (org--plot/radar table params)))))] 1 #1#] "List of plists describing the available plot types.\nThe car is the type name, and the property :plot-func must be\nset.  The value of :plot-func is a lambda which yields plot-lines\n(a list of strings) as the cdr.\n\nAll lambda functions have the parameters of\n`org-plot/gnuplot-script' and PLOT-STR passed to them.  i.e. they\nare called with the following signature: (TABLE DATA-FILE\nNUM-COLS PARAMS PLOT-STR)\n\nPotentially useful parameters in PARAMS include:\n :set :line :map :title :file :ind :timeind :timefmt :textind\n :deps :labels :xlabels :ylabels :xmin :xmax :ymin :ymax :ticks\n\nIn addition to :plot-func, the following optional properties may\nbe set.\n\n- :plot-cmd - A gnuplot command appended to each plot-line.\n  Accepts string or nil.  Default value: nil.\n\n- :check-ind-type - Whether the types of ind values should be checked.\n  Accepts boolean.\n\n- :plot-str - the formula string passed to :plot-func as PLOT-STR\n  Accepts string.  Default value: \"'%s' using %s%d%s with %s title '%s'\"\n\n- :data-dump - Function to dump the table to a datafile for ease of\n  use.\n\n  Accepts lambda function.  Default lambda body:\n  (org-plot/gnuplot-to-data table data-file params)\n\n- :plot-pre - Gnuplot code to be inserted early into the script, just\n  after term and output have been set.\n\n   Accepts string, nil, or lambda function which returns string\n   or nil.  Defaults to nil." alist] 8)
(defvar org--plot/radar-template "### spider plot/chart with gnuplot\n# also known as: radar chart, web chart, star chart, cobweb chart,\n#                radar plot,  web plot,  star plot,  cobweb plot,  etc. ...\nset datafile separator ' '\nset size square\nunset tics\nset angles degree\nset key bmargin center horizontal\nunset border\n\n# Load data and setup\nload \"%s\"\n\n# General settings\nDataColCount = words($Data[1])-1\nAxesCount = |$Data|-HeaderLines-1\nAngleOffset = 90\nMax = 1\nd=0.1*Max\nDirection = -1   # counterclockwise=1, clockwise = -1\n\n# Tic settings\nTicCount = %s\nTicOffset = 0.1\nTicValue(axis,i) = real(i)*(word($Settings[axis],3)-word($Settings[axis],2)) \\\n	  / word($Settings[axis],4)+word($Settings[axis],2)\nTicLabelPosX(axis,i) = PosX(axis,i/TicCount) + PosY(axis, TicOffset)\nTicLabelPosY(axis,i) = PosY(axis,i/TicCount) - PosX(axis, TicOffset)\nTicLen = 0.03\nTicdX(axis,i) = 0.5*TicLen*cos(alpha(axis)-90)\nTicdY(axis,i) = 0.5*TicLen*sin(alpha(axis)-90)\n\n# Label\nLabOffset = 0.10\nLabX(axis) = PosX(axis+1,Max+2*d) + PosY(axis, LabOffset)\nLabY(axis) = PosY($0+1,Max+2*d)\n\n# Functions\nalpha(axis) = (axis-1)*Direction*360.0/AxesCount+AngleOffset\nPosX(axis,R) = R*cos(alpha(axis))\nPosY(axis,R) = R*sin(alpha(axis))\nScale(axis,value) = real(value-word($Settings[axis],2))/(word($Settings[axis],3)-word($Settings[axis],2))\n\n# Spider settings\nset style arrow 1 dt 1 lw 1.0 @fgal head filled size 0.06,25     # style for axes\nset style arrow 2 dt 2 lw 0.5 @fgal nohead   # style for weblines\nset style arrow 3 dt 1 lw 1 @fgal nohead     # style for axis tics\nset samples AxesCount\nset isosamples TicCount\nset urange[1:AxesCount]\nset vrange[1:TicCount]\nset style fill transparent solid 0.2\n\nset xrange[-Max-4*d:Max+4*d]\nset yrange[-Max-4*d:Max+4*d]\nplot \\\n    '+' u (0):(0):(PosX($0,Max+d)):(PosY($0,Max+d)) w vec as 1 not, \\\n    $Data u (LabX($0)): \\\n	(LabY($0)):1 every ::HeaderLines w labels center enhanced @fgt not, \\\n    for [i=1:DataColCount] $Data u (PosX($0+1,Scale($0+1,column(i+1)))): \\\n	(PosY($0+1,Scale($0+1,column(i+1)))) every ::HeaderLines w filledcurves lt i title word($Data[1],i+1), \\\n%s\n#    '++' u (PosX($1,$2/TicCount)-TicdX($1,$2/TicCount)): \\\n#        (PosY($1,$2/TicCount)-TicdY($1,$2/TicCount)): \\\n#        (2*TicdX($1,$2/TicCount)):(2*TicdY($1,$2/TicCount)) \\\n#        w vec as 3 not, \\\n### end of code\n")
(defvar org--plot/radar-ticks "    '++' u (PosX($1,$2/TicCount)):(PosY($1,$2/TicCount)): \\\n	(PosX($1+1,$2/TicCount)-PosX($1,$2/TicCount)):  \\\n	(PosY($1+1,$2/TicCount)-PosY($1,$2/TicCount)) w vec as 2 not, \\\n    '++' u (TicLabelPosX(%s,$2)):(TicLabelPosY(%s,$2)): \\\n	(sprintf('%%g',TicValue(%s,$2))) w labels font ',8' @fgat not")
(defvar org--plot/radar-setup-template "# Data\n$Data <<HEREHAVESOMEDATA\n%s\nHEREHAVESOMEDATA\nHeaderLines = 1\n\n# Settings for scale and offset adjustments\n# axis min max tics axisLabelXoff axisLabelYoff\n$Settings <<EOD\n%s\nEOD\n")
#@79 Create gnuplot code for a radar plot of TABLE with PARAMS.

(fn TABLE PARAMS)
(defalias 'org--plot/radar #[514 "\304\305\306\307\310\"\311#\312\305\313\314\211@C\"\315#R\307\316\"\206(\317\307\320\"\307\321\"#\305\322\323#\314\211@C\"\315#\324\325!\326\327\330	#\331\331\332%\210)\330\n\333=\203W\334\202X\333=\203c\335\202\336\330\337\340\307\320\"\203|\307\321\"\203|\341\202}\342\"#$\207" [coding-system-for-write org--plot/radar-setup-template org--plot/radar-template org--plot/radar-ticks "\"" mapconcat identity plist-get :labels "\" \"" "\"\n" #[257 "\300\301@\302\303A\304##\207" [format "\"%s\" %s" mapconcat identity " "] 8 "\n\n(fn ROW)"] append "\n" :ticks org--plot/sensible-tick-num :ymin :ymax make-closure #[257 "\302\303\304A\"!\305\306@\307\300\310\"\206\307\311\"\307\300\312\"\206!\307\313\"\301\314=\203+\315\202,\301%\207" [V0 V1 org--plot/values-stats mapcar string-to-number format "\"%s\" %s %s %s" plist-get :ymin :nice-min :ymax :nice-max 0 2] 9 "\n\n(fn ROW)"] make-temp-file "org-plot-setup" utf-8 write-region format nil :silent 0 2 "" apply make-list 3 "1" "$1"] 18 (#$ . 15002)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable org-plot/gnuplot-term-extra funcall function #[0 "\300\207" [#1=""] 1 #1#] "String or function which provides the extra term options.\nE.g. a value of \"size 1050,650\" would cause\n\"set term ... size 1050,650\" to be used.\nIf a function, it is called with the plot type as the argument." :group org-plot :type (choice string function)] 8)
#@317 Write a gnuplot script for TABLE to DATA-FILE respecting options 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.

(fn TABLE DATA-FILE NUM-COLS PARAMS &optional PREFACE)
(defalias 'org-plot/gnuplot-script #[1284 "\304\305\"\306
\"A\211\204\307\310\"\210\304\311\"\304\312\"\304\313\"\304\314\"\304\315\"\304	\316\"\304\n\317\"\304\320\"\304	\321\"\206A\322\304\n\323\"\304\324\"\325C\326\327\"\330
\331\332
\203a\333!\202b\334	;\203k	\202o	!#!\210\n\203\201
\331\335\336!\"!\210\203\224
%!\210
\n;\203\236\n\202\242\n!!\210\203\261
\331\337\"!\210\340\"\210
\211\203\315\211@\331\341\"!\210
A\266\202\202\271\210\342\242\330\343\344#)\266\203\204\343
\345!\210\203\364
\331\346\347\350\f\351#\"!\210\203

\331\352\347\353\351#\"!\210	\203

\354!\210
\355\n\206
\356\357Q!\210\204I
\304\360\"\211\2036
\211%\262\210
\211\205>
\361\347\362\363!\364#Q!\210\242\207" [org-plot/preset-plot-types org-plot/gnuplot-term-extra org-plot/gnuplot-script-preamble inhibit-changing-match-data plist-get :plot-type assoc user-error "Org-plot type `%s' is undefined" :set :line :title :file :timeind :timefmt :xlabels :ylabels :plot-str "'%s' using %s%d%s with %s title '%s'" :plot-cmd :plot-pre "reset" make-closure #[257 "\211\205\300\211\242\301Q\240\207" [V0 "\n"] 5 "\n\n(fn LINE)"] nil format "set term %s %s" file-name-extension "GNUTERM" "set output '%s'" expand-file-name "set title '%s'" mapc "set %s" "^set datafile separator" t string-match "set datafile separator \"\\t\"" "set xtics (%s)" mapconcat #[257 "\300\301A@#\207" [format "\"%s\" %d"] 5 "\n\n(fn PAIR)"] ", " "set ytics (%s)" #[257 "\300\301A@#\207" [format "\"%s\" %d"] 5 "\n\n(fn PAIR)"] "set xdata time" "set timefmt \"" "%Y-%m-%d-%H:%M:%S" "\"" :plot-func " " identity reverse ",\\\n    "] 28 (#$ . 16597)])
#@92 Find any overlays for IMG-FILE in the current Org buffer, and refresh them.

(fn IMG-FILE)
(defalias 'org-plot/redisplay-img-in-buffer #[257 "\211\205(\211@\301\302\303\"A\304\"\230\203!\305!\203!\306\302\303\"!\210
A\266\202\202
\207" [org-inline-image-overlays plist-get overlay-get display :file file-exists-p image-refresh] 8 (#$ . 18630)])
#@188 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.

(fn &optional PARAMS)
(defalias 'org-plot/gnuplot #[256 "\302\303!\210\304 \305\306\"\216\307 \210\310\311!\203r\311q\210db\210)\212\312 \210\211\203?\211@\313@\"\2048\314@A#\262
A\266\202\202!\210\315y\316=\203U\317\320!\203U\321!\262\202@)\322\323!\212\312 \210\324 )\325\326\"\211\327\267\202v\330\202w\330\202w\330\202w\331\262
\203\235\332
>\204\214\333\334\335#\262
\202\235\333\334\335\336\332\"#\262
\211\332AB\241\210\211\262
\211@\332=\203\255\211A@\202\257\211@G\337\325\340\"	\"\211\204\305\341\342\325\340\"\"\210\343\344\331\345$\210A@\332=\203\345\314\346@#\262\347\332A\"\262\212\315y\316=\203\374\317\320!\203\374\321!\262\202\346)\325
\350\"\211\203
\211\n$\266\202
\351	#\266\325\352\"\203b
\325\353\"S\354\305\355\"\"
\316W\204`
\356\357\"\203H
\314\360\330#\266\202b
\325\361\"\362\230\204Y
\363\364\"\203`
\314\365\330#\210\266\366\367\330\"r\211q\210\305\370\"\216\325\371\"\203\244
\372\n\330%c\210\373c\210\374\325\371\"!\210eb\210\375\376\331\330#\203\256
\377\331\211#\210\202\220
\202\256
\372\n$c\210\201@ \210\201A1\302
\201B 0\210\202\307
\210\202\307
\210*\210\201C\310\311!!\210\325\201D\"\205\352
\201E\201F\325\201D\"!!\266\204)\207" [org-plot/gnuplot-default-options org-plot/preset-plot-types require gnuplot current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] delete-other-windows get-buffer "*gnuplot*" org-plot/goto-nearest-table plist-member plist-put -1 0 looking-at "[[:space:]]*#\\+" org-plot/collect-options make-temp-file "org-plot" org-table-to-lisp plist-get :transpose #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (y 106 yes 110 t 114)) t nil hline apply cl-mapcar list remove assoc :plot-type user-error "Org-plot type `%s' is undefined" run-with-idle-timer 0.1 delete-file :labels delq :data-dump org-plot/gnuplot-to-data :check-ind-type :ind mapcar #[257 "\300
8\207" [V0] 3 "\n\n(fn ROW)"] cl-every #[257 "\301\"\207" [org-ts-regexp3 string-match] 4 "\n\n(fn EL)"] :timeind :with "hist" cl-notevery #[257 "\301\"\207" [org-table-number-regexp string-match] 4 "\n\n(fn EL)"] :textind generate-new-buffer " *temp*" #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] :script org-plot/gnuplot-script "\n" insert-file-contents re-search-forward "\\$datafile" replace-match gnuplot-mode (buffer-read-only) gnuplot-send-buffer-to-gnuplot bury-buffer :file org-plot/redisplay-img-in-buffer expand-file-name] 13 (#$ . 18991) nil])
(provide 'org-plot)