gnuplot-interface/examples.lisp at master · deppp/gnuplot-interface · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
;; Mirko Vukovic
;; Time-stamp: <2011-10-04 12:47:59 examples.lisp>
;;
;; Copyright 2011 Mirko Vukovic
;; Distributed under the terms of the GNU General Public License
;;
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <http://www.gnu.org/licenses/>.

(in-package #:gnuplot-interface)


(defun plot-sin ()
  (send-line "plot sin(x)")
  (send-line (format nil "~%"))
  (finish-output *command*))

(defun plot-inline-simple ()
  "Example of a plot with inlined data.  This example also illustrates
the use of sending a line break"
  (send-line "plot '-' with lines")
  (send-line (format nil "~%"))
  (send-line "5")
  (send-line (format nil "~%"))
  (send-line "12")
  (send-line-break)
  (send-line "-8")
  (send-line-break)
  (send-line "e")
  (send-line-break)
  (send-line-break))

(defun plot-fun (numbers function)
  "Given a list of numbers `numbers' and a `function', generate a
plot

This example shows how to make a plot of x vs y using the inlined data"
  (send-line "plot '-' using 1:2 with lines")
  (send-line-break)
  (dolist (x numbers)
    (send-line (format nil "~a ~a" x (funcall function x)))
    (send-line-break))
  (send-line "e")
  (send-line-break)
  (send-line-break))

(defun plot-combo (numbers function)
  "This example builds upon `plot-fun'.  Along with the function plot, it overplots gnuplot's cos(x)"
  (send-line "plot '-' using 1:2 with lines")
  (send-line ", cos(x)")
  (send-line-break)
  (dolist (x numbers)
    (send-line (format nil "~a ~a" x (funcall function x)))
    (send-line-break))
  (send-line "e")
  (send-line-break)
  (send-line-break))