The math Reference Manual

4.1.1 math/math.asd

Source

math.asd.

Parent Component

math (system).

ASDF Systems

• math.
• math/core.
• math/coord.
• math/matr.
• math/stat.
• math/geom.
• math/equation.
• math/smooth.
• math/rnd.
• math/ls-gauss.
• math/ls-gsll.
• math/ls-rotation.
• math/gnuplot.
• math/appr.
• math/series.
• math/half-div.

---

4.1.2 math/src/math/math.lisp

Source

math.asd.

Parent Component

src/math (module).

Packages

math.

Public Interface

mult-matr-vect (function).

---

4.1.3 math/core/src/core/core.lisp

Source

math.asd.

Parent Component

src/core (module).

Packages

math/core.

Public Interface

• *semi-equal-relativ* (special variable).
• *semi-equal-zero* (special variable).
• +significant-digits+ (special variable).
• depth-sphere-along-cone (function).
• distance (generic function).
• distance-relative (generic function).
• exclude-nil-from-list (function).
• matr-name-* (generic function).
• norma (generic function).
• round-to-significant-digits (function).
• semi-equal (generic function).
• split-range (function).
• split-range-at-center (function).
• split-range-by-func (function).
• square (function).
• summ-distance (generic function).

Internals

e-value (function).

---

4.1.4 math/core/src/core/core-doc.lisp

Dependency

core.lisp (file).

Source

math.asd.

Parent Component

src/core (module).

---

4.1.5 math/coord/src/coord/coord.lisp

Source

math.asd.

Parent Component

src/coord (module).

Packages

math/coord.

Public Interface

• cartesian->polar (function).
• cartesian->spherical (function).
• double-float-list (function).
• dtr (function).
• point-3d->4d (function).
• point-4d->3d (function).
• polar->cartesian (function).
• rtd (function).
• single-float-list (function).
• spherical->cartesian (function).

---

4.1.6 math/coord/src/coord/coord-doc.lisp

Dependency

coord.lisp (file).

Source

math.asd.

Parent Component

src/coord (module).

---

4.1.7 math/matr/src/matr/matr.lisp

Source

math.asd.

Parent Component

src/matr (module).

Packages

math/matr.

Public Interface

• <matrix> (class).
• detach-last-col (function).
• get-last-col (function).
• initialize-instance (method).
• lm-print (function).
• lv-print (function).
• make (function).
• make-vector-n (function).
• matr-eval-* (method).
• matr-new (function).
• matrix->2d-list (method).
• matrix-data (reader method).
• (setf matrix-data) (writer method).
• max-col-not-nil-value (function).
• max-row-not-nil-value (function).
• move-v (method).
• move-xyz (method).
• normalize (function).
• print-object (method).
• transform (method).

Internals

matr-name-* (method).

---

4.1.8 math/matr/src/matr/generics.lisp

Dependency

matr.lisp (file).

Source

math.asd.

Parent Component

src/matr (module).

Public Interface

• add (generic function).
• anti-diagonal (generic function).
• (setf anti-diagonal) (generic function).
• append-col (generic function).
• append-row (generic function).
• average-col-not-nil-value (generic function).
• average-col-value (generic function).
• average-not-nil-value (generic function).
• average-row-not-nil-value (generic function).
• average-row-value (generic function).
• average-value (generic function).
• col (generic function).
• (setf col) (generic function).
• cols (generic function).
• copy (generic function).
• dimensions (generic function).
• equivalent (generic function).
• main-diagonal (generic function).
• (setf main-diagonal) (generic function).
• matr-eval-* (generic function).
• mref (generic function).
• (setf mref) (generic function).
• multiply (generic function).
• prepend-col (generic function).
• prepend-row (generic function).
• prepend-rows (generic function).
• rotate-around (generic function).
• rotate-v (generic function).
• rotate-x (generic function).
• rotate-y (generic function).
• rotate-z (generic function).
• row (generic function).
• (setf row) (generic function).
• rows (generic function).
• squarep (generic function).
• swap-cols (generic function).
• swap-cols* (generic function).
• swap-rows (generic function).
• swap-rows* (generic function).
• transform (generic function).
• transpose (generic function).
• unite-cols (generic function).
• unite-rows (generic function).

Internals

• matr-equal* (generic function).
• matr-name-* (generic function).

---

4.1.9 math/matr/src/matr/methods/add.lisp

Dependency

generics.lisp (file).

Source

math.asd.

Parent Component

src/matr (module).

Public Interface

add (method).

---

4.1.10 math/matr/src/matr/methods/anti-diagonal.lisp

Dependency

methods/add.lisp (file).

Source

math.asd.

Parent Component

src/matr (module).

Public Interface

• anti-diagonal (method).
• (setf anti-diagonal) (method).

---

4.1.11 math/matr/src/matr/methods/append.lisp

Dependency

methods/anti-diagonal.lisp (file).

Source

math.asd.

Parent Component

src/matr (module).

Public Interface

• append-col (method).
• append-row (method).

---

4.1.12 math/matr/src/matr/methods/average.lisp

Dependency

methods/append.lisp (file).

Source

math.asd.

Parent Component

src/matr (module).

Public Interface

• average-col-not-nil-value (method).
• average-col-value (method).
• average-not-nil-value (method).
• average-row-not-nil-value (method).
• average-row-value (method).
• average-value (method).

---

4.1.13 math/matr/src/matr/methods/col.lisp

Dependency

methods/average.lisp (file).

Source

math.asd.

Parent Component

src/matr (module).

Public Interface

• col (method).
• col (method).
• col (method).
• (setf col) (method).
• (setf col) (method).
• (setf col) (method).
• (setf col) (method).

---

4.1.14 math/matr/src/matr/methods/cols.lisp

Dependency

methods/col.lisp (file).

Source

math.asd.

Parent Component

src/matr (module).

Public Interface

• cols (method).
• cols (method).
• cols (method).

---

4.1.15 math/matr/src/matr/methods/copy.lisp

Dependency

methods/cols.lisp (file).

Source

math.asd.

Parent Component

src/matr (module).

Public Interface

• copy (method).
• copy (method).

---

4.1.16 math/matr/src/matr/methods/dimensions.lisp

Dependency

methods/copy.lisp (file).

Source

math.asd.

Parent Component

src/matr (module).

Public Interface

• dimensions (method).
• dimensions (method).
• dimensions (method).

---

4.1.17 math/matr/src/matr/methods/equivalent.lisp

Dependency

methods/dimensions.lisp (file).

Source

math.asd.

Parent Component

src/matr (module).

Public Interface

• equivalent (method).
• equivalent (method).
• equivalent (method).
• equivalent (method).

---

4.1.18 math/matr/src/matr/methods/main-diagonal.lisp

Dependency

methods/equivalent.lisp (file).

Source

math.asd.

Parent Component

src/matr (module).

Public Interface

• main-diagonal (method).
• (setf main-diagonal) (method).
• (setf main-diagonal) (method).

---

4.1.19 math/matr/src/matr/methods/mref.lisp

Dependency

methods/main-diagonal.lisp (file).

Source

math.asd.

Parent Component

src/matr (module).

Public Interface

• mref (method).
• mref (method).
• mref (method).
• (setf mref) (method).
• (setf mref) (method).
• (setf mref) (method).

---

4.1.20 math/matr/src/matr/methods/multiply.lisp

Dependency

methods/mref.lisp (file).

Source

math.asd.

Parent Component

src/matr (module).

Public Interface

• multiply (method).
• multiply (method).
• multiply (method).

---

4.1.21 math/matr/src/matr/methods/prepend.lisp

Dependency

methods/multiply.lisp (file).

Source

math.asd.

Parent Component

src/matr (module).

Public Interface

• prepend-col (method).
• prepend-row (method).
• prepend-rows (method).

---

4.1.22 math/matr/src/matr/methods/rotate.lisp

Dependency

methods/prepend.lisp (file).

Source

math.asd.

Parent Component

src/matr (module).

Public Interface

• rotate-around (method).
• rotate-v (method).
• rotate-x (method).
• rotate-y (method).
• rotate-z (method).

---

4.1.23 math/matr/src/matr/methods/row.lisp

Dependency

methods/rotate.lisp (file).

Source

math.asd.

Parent Component

src/matr (module).

Public Interface

• row (method).
• row (method).
• row (method).
• (setf row) (method).
• (setf row) (method).
• (setf row) (method).
• (setf row) (method).

---

4.1.24 math/matr/src/matr/methods/rows.lisp

Dependency

methods/row.lisp (file).

Source

math.asd.

Parent Component

src/matr (module).

Public Interface

• rows (method).
• rows (method).
• rows (method).

---

4.1.25 math/matr/src/matr/methods/squarep.lisp

Dependency

methods/rows.lisp (file).

Source

math.asd.

Parent Component

src/matr (module).

Public Interface

• squarep (method).
• squarep (method).
• squarep (method).

---

4.1.26 math/matr/src/matr/methods/swap-cols.lisp

Dependency

methods/squarep.lisp (file).

Source

math.asd.

Parent Component

src/matr (module).

Public Interface

• swap-cols (method).
• swap-cols* (method).

---

4.1.27 math/matr/src/matr/methods/swap-rows.lisp

Dependency

methods/swap-cols.lisp (file).

Source

math.asd.

Parent Component

src/matr (module).

Public Interface

• swap-rows (method).
• swap-rows* (method).

---

4.1.28 math/matr/src/matr/methods/transpose.lisp

Dependency

methods/swap-rows.lisp (file).

Source

math.asd.

Parent Component

src/matr (module).

Public Interface

• transpose (method).
• transpose (method).

---

4.1.29 math/matr/src/matr/methods/unite-cols.lisp

Dependency

methods/transpose.lisp (file).

Source

math.asd.

Parent Component

src/matr (module).

Public Interface

unite-cols (method).

---

4.1.30 math/matr/src/matr/methods/unite-rows.lisp

Dependency

methods/unite-cols.lisp (file).

Source

math.asd.

Parent Component

src/matr (module).

Public Interface

unite-rows (method).

---

4.1.31 math/matr/src/matr/matr-doc.lisp

Dependency

methods/unite-rows.lisp (file).

Source

math.asd.

Parent Component

src/matr (module).

---

4.1.32 math/stat/src/stat/stat.lisp

Source

math.asd.

Parent Component

src/stat (module).

Packages

math/stat.

Public Interface

• aver-dmax-dmin (function).
• aver-max-min (function).
• average (function).
• average-not-nil-value (function).
• average-value (function).
• clean-flagrant-error (function).
• clean-max-flagrant-error (function).
• clean-min-flagrant-error (function).
• combinations (function).
• delta-max-value (function).
• delta-min-value (function).
• dispersion (function).
• dispersion-not-nil (function).
• factorial (function).
• grubbs (function).
• grubbs-max (function).
• grubbs-min (function).
• make-random-value-list (function).
• max-not-nil-value (function).
• max-value (function).
• min-not-nil-value (function).
• min-value (function).
• permutations (function).
• standard-deviation (function).
• standard-deviation-not-nil (function).
• variation-coefficient (function).
• variation-coefficient-not-nil (function).

Internals

• *g-t* (special variable).
• remove-first (function).
• remove-last (function).

---

4.1.33 math/stat/src/stat/stat-doc.lisp

Dependency

stat.lisp (file).

Source

math.asd.

Parent Component

src/stat (module).

---

4.1.34 math/geom/src/geom/geom.lisp

Source

math.asd.

Parent Component

src/geom (module).

Packages

math/geom.

Public Interface

• circle-area-by-diameter (function).
• circle-area-by-radius (function).
• diameter-by-radius (function).
• equivalent-diameter (function).
• radius-by-diameter (function).
• regular-tetrahedron-side-by-volume (function).
• regular-tetrahedron-volume-by-side (function).
• regular-triangle-area-by-side (function).
• regular-triangle-side-by-area (function).
• triangle-area-by-sides (function).

---

4.1.35 math/geom/src/geom/geom-doc.lisp

Dependency

geom.lisp (file).

Source

math.asd.

Parent Component

src/geom (module).

---

4.1.36 math/equation/src/equation/equation.lisp

Source

math.asd.

Parent Component

src/equation (module).

Packages

math/equation.

Public Interface

• <cubic> (class).
• <linear> (class).
• <quadric> (class).
• <quartic> (class).
• coeff-a (reader method).
• coeff-a (reader method).
• coeff-a (reader method).
• coeff-a (reader method).
• (setf coeff-a) (writer method).
• (setf coeff-a) (writer method).
• (setf coeff-a) (writer method).
• (setf coeff-a) (writer method).
• coeff-b (reader method).
• coeff-b (reader method).
• coeff-b (reader method).
• coeff-b (reader method).
• (setf coeff-b) (writer method).
• (setf coeff-b) (writer method).
• (setf coeff-b) (writer method).
• (setf coeff-b) (writer method).
• coeff-c (reader method).
• coeff-c (reader method).
• coeff-c (reader method).
• (setf coeff-c) (writer method).
• (setf coeff-c) (writer method).
• (setf coeff-c) (writer method).
• coeff-d (reader method).
• coeff-d (reader method).
• (setf coeff-d) (writer method).
• (setf coeff-d) (writer method).
• coeff-e (reader method).
• (setf coeff-e) (writer method).
• func (generic function).
• print-object (method).
• print-object (method).
• print-object (method).
• print-object (method).
• roots (generic function).
• tab (generic function).

---

4.1.37 math/equation/src/equation/equation-doc.lisp

Dependency

equation.lisp (file).

Source

math.asd.

Parent Component

src/equation (module).

---

4.1.38 math/smooth/src/smooth/smooth.lisp

Source

math.asd.

Parent Component

src/smooth (module).

Packages

math/smooth.

Public Interface

• cauchy-smoothing (function).
• exp-smoothing (function).
• gauss-smoothing (function).
• hann-smoothing (function).
• weight-func-list (function).
• weight-func-p (function).

---

4.1.39 math/smooth/src/smooth/smooth-doc.lisp

Dependency

smooth.lisp (file).

Source

math.asd.

Parent Component

src/smooth (module).

---

4.1.40 math/rnd/src/rnd/rnd.lisp

Source

math.asd.

Parent Component

src/rnd (module).

Packages

math/rnd.

Public Interface

• make-1d-list (function).
• make-2d-list (function).
• make-ls-system (function).

---

4.1.41 math/rnd/src/rnd/rnd-doc.lisp

Dependency

rnd.lisp (file).

Source

math.asd.

Parent Component

src/rnd (module).

---

4.1.42 math/ls-gauss/src/ls-gauss/ls-gauss.lisp

Source

math.asd.

Parent Component

src/ls-gauss (module).

Packages

math/ls-gauss.

Public Interface

• backward-run (generic function).
• convert-to-triangular (generic function).
• determiant (method).
• determiant (method).
• singular-p (method).
• singular-p (method).
• solve-x (generic function).

---

4.1.43 math/ls-gauss/src/ls-gauss/ls-gauss-doc.lisp

Dependency

ls-gauss.lisp (file).

Source

math.asd.

Parent Component

src/ls-gauss (module).

---

4.1.44 math/ls-gsll/src/ls-gsll/ls-gsll.lisp

Source

math.asd.

Parent Component

src/ls-gsll (module).

Packages

math/ls-gsll.

Public Interface

• solve (function).
• solve-x (function).

---

4.1.45 math/ls-gsll/src/ls-gsll/ls-gsll-doc.lisp

Dependency

ls-gsll.lisp (file).

Source

math.asd.

Parent Component

src/ls-gsll (module).

---

4.1.46 math/ls-rotation/src/ls-rotation/ls-rotation.lisp

Source

math.asd.

Parent Component

src/ls-rotation (module).

Packages

math/ls-rotation.

Public Interface

solve-x (generic function).

---

4.1.47 math/ls-rotation/src/ls-rotation/ls-rotation-doc.lisp

Dependency

ls-rotation.lisp (file).

Source

math.asd.

Parent Component

src/ls-rotation (module).

---

4.1.48 math/gnuplot/src/gnuplot/gnuplot.lisp

Source

math.asd.

Parent Component

src/gnuplot (module).

Packages

math/gnuplot.

Public Interface

• *default-gnuplot-direcroty* (special variable).
• *palette-defined* (special variable).
• *palette-defined-01* (special variable).
• *pm3d-map* (special variable).
• *term-pdfcairo* (special variable).
• *term-pngcairo* (special variable).
• gnuplot-data-plot (function).
• gnuplot-data-splot (function).
• gnuplot-data-to-file (generic function).
• gnuplot-plot (function).
• gnuplot-splot (function).
• make-plot-data-file (function).
• make-table (function).
• print-object (method).
• print-object (method).
• print-object (method).
• rgb (function).
• table-apply (function).

Internals

• <term> (class).
• file-name (function).
• find-font-family (function).
• gnuplot-vector (class).
• gnuplot-vector-direction (reader method).
• (setf gnuplot-vector-direction) (writer method).
• gnuplot-vector-origin (reader method).
• (setf gnuplot-vector-origin) (writer method).
• make-2d-list-by-func (function).
• move (generic function).
• output (method).
• output (method).
• plot (method).
• table-apply-0 (function).
• table-apply-1 (function).
• term-pdfcairo (class).
• term-pngcairo (class).

---

4.1.49 math/gnuplot/src/gnuplot/gnuplot-doc.lisp

Dependency

gnuplot.lisp (file).

Source

math.asd.

Parent Component

src/gnuplot (module).

---

4.1.50 math/appr/src/appr/appr.lisp

Source

math.asd.

Parent Component

src/appr (module).

Packages

math/appr.

Public Interface

• *apr-args-1* (special variable).
• *apr-args-2* (special variable).
• *apr-func-1-2* (special variable).
• *apr-func-1-3* (special variable).
• *apr-func-1-4* (special variable).
• *apr-func-1-5* (special variable).
• *apr-func-2-4* (special variable).
• *apr-func-2-5* (special variable).
• *apr-func-2-6* (special variable).
• *apr-func-2-7* (special variable).
• *apr-func-2-8* (special variable).
• *apr-func-2-9* (special variable).
• <appr-bilinear> (class).
• <appr-linear> (class).
• appr-bilinear-a2d-func (reader method).
• (setf appr-bilinear-a2d-func) (writer method).
• appr-bilinear-x1 (reader method).
• (setf appr-bilinear-x1) (writer method).
• appr-bilinear-x2 (reader method).
• (setf appr-bilinear-x2) (writer method).
• appr-linear-a1d-func (reader method).
• (setf appr-linear-a1d-func) (writer method).
• appr-linear-x1 (reader method).
• (setf appr-linear-x1) (writer method).
• appr-table (function).
• approximate (method).
• approximate (method).
• averaging-function-defun (function).
• averaging-function-lambda (function).
• initialize-instance (method).
• initialize-instance (method).
• make-appr-linear (function).
• make-approximation-defun (macro).
• make-approximation-lambda (macro).
• make-least-squares-matrix (function).
• make-linear-interpolation (function).
• make-refine-smoothing (method).
• make-refine-smoothing (method).
• make-refine-smoothing (method).
• print-object (method).
• print-object (method).
• refine-smoothing-by-points (generic function).
• smooth-by-points (generic function).

Internals

• approximation-bilinear (function).
• approximation-linear (function).
• averaging-function-body (function).
• index-by-value (function).
• make-bilinear-approximation-array (function).
• make-bilinear-interpolation (function).
• make-linear-approximation-array (function).

---

4.1.51 math/appr/src/appr/appr-doc.lisp

Dependency

appr.lisp (file).

Source

math.asd.

Parent Component

src/appr (module).

---

4.1.52 math/series/src/series/series.lisp

Source

math.asd.

Parent Component

src/series (module).

Packages

math/series.

Public Interface

• <arithmetic> (class).
• <arithmetic>-a (reader method).
• (setf <arithmetic>-a) (writer method).
• <arithmetic>-d (reader method).
• (setf <arithmetic>-d) (writer method).
• <geometric> (class).
• <geometric>-b (reader method).
• (setf <geometric>-b) (writer method).
• <geometric>-q (reader method).
• (setf <geometric>-q) (writer method).
• first-by-number&summ (generic function).
• item (generic function).
• print-object (method).
• print-object (method).
• scale-by-number&summ (generic function).
• summ (generic function).

Internals

• <series> (class).
• items-by-summ (generic function).

---

4.1.53 math/series/src/series/series-doc.lisp

Dependency

series.lisp (file).

Source

math.asd.

Parent Component

src/series (module).

---

4.1.54 math/half-div/src/half-div/half-div.lisp

Source

math.asd.

Parent Component

src/half-div (module).

Packages

math/half-div.

Public Interface

• h-div (function).
• h-div-lst (function).

Internals

• boole-to-int (function).
• epsylon (function).
• same-znak (function).

---

4.1.55 math/half-div/src/half-div/half-div-doc.lisp

Dependency

half-div.lisp (file).

Source

math.asd.

Parent Component

src/half-div (module).

---

6.1.1 Special variables

Special Variable: *apr-args-1* ¶

Аргументы для функции одного параметра. @begin[lang=lisp](code) ’(x1 yy) @end(code)

Package

math/appr.

Source

appr.lisp.

Special Variable: *apr-args-2* ¶

Аргументы для функции двух параметров. @begin[lang=lisp](code) ’(x1 x2 yy) @end(code)

Package

math/appr.

Source

appr.lisp.

Special Variable: *apr-func-1-2* ¶

Шаблон для построения линейной функции одного параметра: x1 с двумя коэффициентами.

@begin[lang=lisp](code) ’((x1) (1.0) (yy)) @end(code) @begin[lang=scribe](code) yy(x@sub(1))=a·x@sub(1)+b @end(code)

Package

math/appr.

Source

appr.lisp.

Special Variable: *apr-func-1-3* ¶

Шаблон для построения квадратичной функции одного параметра: x1 c тремя коэффициентами. @begin[lang=lisp](code) ’((x1 x1) (x1) (1.0) (yy)) @end(code) @begin[lang=scribe](code) yy(x@sub(1))=a·x@sub(1)@sup(2)+b·x@sub(1)+c @end(code)

Package

math/appr.

Source

appr.lisp.

Special Variable: *apr-func-1-4* ¶

Шаблон для построения квадратичной функции одного параметра: x1 c
четырьмя коэффициентами.

@begin[lang=lisp](code) ’((x1 x1 x1) (x1 x1) (x1) (1.0) (yy)) @end(code)

@begin[lang=scribe](code) yy(x@sub(1))=a·x@sub(1)@sup(3)+b·x@sub(1)@sup(2)+c·x@sub(1)+d @end(code)

Package

math/appr.

Source

appr.lisp.

Special Variable: *apr-func-1-5* ¶

Шаблон для построения квадратичной функции одного параметра: x1 c пятью коэффициентами.
@begin[lang=lisp](code) ’((x1 x1 x1 x1) (x1 x1 x1) (x1 x1) (x1) (1.0) (yy)) @end(code)
@begin[lang=scribe](code) yy(x@sub(1))=a·x@sub(1)@sup(4)+b·x@sub(1)@sup(3)+c·x@sub(1)@sup(2)+d·x@sub(1)+e @end(code)

Package

math/appr.

Source

appr.lisp.

Special Variable: *apr-func-2-4* ¶

@b(Описание:) *apr-func-2-4* шаблон для построения функции двух параметров:
x1 и x2 c четырьмя коэффициентами.
@begin[lang=lisp](code) ’((x1 x2) (x1) (x2) (1.0) (yy)) @end(code) @begin[lang=scribe](code) yy(x@sub(1))=a@sub(1)·x@sub(1)·x@sub(2)+a@sub(2)·x@sub(1)+a@sub(3)·x@sub(2)+a@sub(4) @end(code)

Package

math/appr.

Source

appr.lisp.

Special Variable: *apr-func-2-5* ¶

@b(Описание:) *apr-func-2-5* шаблон для построения функции двух параметров:
x1 и x2 c пятью коэффициентами.
@begin[lang=lisp](code) ’((x1 x1) (x2 x2) (x1) (x2) (1.0) (yy)) @end(code)
@begin[lang=scribe](code) yy(x@sub(1))=a@sub(1)·x@sub(1)@sup(2)+a@sub(2)·x@sub(2)@sup(2)+a@sub(3)·x@sub(1)+a@sub(4)·x@sub(2)+a@sub(5) @end(code)

Package

math/appr.

Source

appr.lisp.

Special Variable: *apr-func-2-6* ¶

@b(Описание:) *apr-func-2-6* шаблон для построения функции двух
параметров: x1 и x2 c шестью коэффициентами.

@begin[lang=lisp](code) ’((x1 x1) (x2 x2) (x1 x2) (x1) (x2) (1.0) (yy)) @end(code)
@begin[lang=scribe](code) yy(x@sub(1))=a@sub(1)·x@sub(1)@sup(2)+a@sub(2)·x@sub(2)@sup(2)+a@sub(3)·x@sub(1)·x@sub(2)+a@sub(5)·x@sub(1)+a@sub(6)·x@sub(2)+a@sub(7) @end(code)

Package

math/appr.

Source

appr.lisp.

Special Variable: *apr-func-2-7* ¶

@b(Описание:) *apr-func-2-7* шаблон для построения функции двух
параметров: x1 и x2 c семью коэффициентами.

@begin[lang=lisp](code) ’((x1 x1 x2) (x1 x2 x2) (x1 x1) (x2 x2) (x1) (x2) (1.0) (yy)) @end(code)
@begin[lang=scribe](code) yy(x@sub(1))=a@sub(1)·x@sub(1)@sup(2)·x@sub(2)+a@sub(2)·x@sub(1)·x@sub(2)@sup(2)+a@sub(3)·x@sub(1)@sup(2)+a@sub(4)·x@sub(2)@sup(2)+a@sub(5)·x@sub(1)+a@sub(6)·x@sub(2)+a@sub(7)@end(code)

Package

math/appr.

Source

appr.lisp.

Special Variable: *apr-func-2-8* ¶

@b(Описание:) *apr-func-2-8* шаблон для построения функции двух параметров: x1 и x2 c восемью коэффициентами.
@begin[lang=lisp](code) ’((x1 x1 x2) (x1 x2 x2) (x1 x1) (x2 x2) (x1 x2) (x1) (x2) (1.0) (yy)) @end(code)
@begin[lang=scribe](code) yy(x@sub(1))=a@sub(1)·x@sub(1)@sup(2)·x@sub(2)+a@sub(2)·x@sub(1)·x@sub(2)@sup(2)+a@sub(3)·x@sub(1)@sup(2)+a@sub(4)·x@sub(2)@sup(2)+a@sub(5)·x@sub(1)·x@sub(2)+a@sub(6)·x@sub(1)+a@sub(7)·x@sub(2)+a@sub(8)@end(code)

Package

math/appr.

Source

appr.lisp.

Special Variable: *apr-func-2-9* ¶

Шаблон для построения функции двух параметров: x1 и x2 c девятью коэффициентами.
@begin[lang=lisp](code) ’((x1 x1 x2 x2) (x1 x1 x2) (x1 x2 x2) (x1 x1) (x2 x2) (x1 x2) (x1) (x2) (1.0) (yy)) @end(code)
@begin[lang=scribe](code)
yy(x@sub(1))=a@sub(1)·x@sub(1)@sup(2)·x@sub(2)@sup(2)+ a@sub(2)·x@sub(1)@sup(2)·x@sub(2)+ a@sub(3)·x@sub(1)·x@sub(2)@sup(2)+ a@sub(4)·x@sub(1)@sup(2)+ a@sub(5)·x@sub(2)@sup(2)+ a@sub(6)·x@sub(1)·x@sub(2)+ a@sub(7)·x@sub(1)+ a@sub(8)·x@sub(2)+ a@sub(9) @end(code)

Package

math/appr.

Source

appr.lisp.

Special Variable: *default-gnuplot-direcroty* ¶

Каталог для вывода по умолчанию.

Package

math/gnuplot.

Source

gnuplot.lisp.

Special Variable: *palette-defined* ¶

STUB

Package

math/gnuplot.

Source

gnuplot.lisp.

Special Variable: *palette-defined-01* ¶

STUB

Package

math/gnuplot.

Source

gnuplot.lisp.

Special Variable: *pm3d-map* ¶

STUB

Package

math/gnuplot.

Source

gnuplot.lisp.

Special Variable: *semi-equal-relativ* ¶

@b(Описание:) переменная @b(*semi-equal-relativ*) определяет относительную величину, на которую могут отличаться значения считающиеся равными при срвнении из с помощью функции @b(semi-equal).

Package

math/core.

Source

core.lisp.

Special Variable: *semi-equal-zero* ¶

@b(Описание:) переменная @b(*semi-equal-zero*) определяет абсолютную величину, на которую могут отличаться значения считающиеся равными при срвнении из с помощью функции @b(semi-equal).

Package

math/core.

Source

core.lisp.

Special Variable: *term-pdfcairo* ¶

Package

math/gnuplot.

Source

gnuplot.lisp.

Special Variable: *term-pngcairo* ¶

Package

math/gnuplot.

Source

gnuplot.lisp.

Special Variable: +significant-digits+ ¶

Определяет количество значащих цифр при округлении по умолчанию.

Package

math/core.

Source

core.lisp.

---

6.1.2 Macros

Macro: make-approximation-defun (args-fuc-names func-view args-results func-name) ¶

@b(Описание:) макрос @b(make-approximation-defun) определяет
аппроксимиующую функцию с именем @b(func-name), построенной на
основании списка, каждый элемент которого является списком, содержащим значения аргументов функции и значение функции, соответствующее этим аргументам.

@b(Пример использования:)
@begin[lang=lisp](code)
(make-approximation-defun (xx yy)
((xx xx) (xx) (1.0) (yy))
((0.0 0.0) (1.0 1.0) (2.0 4.0) (3.0 9.0))
square-func)
(square-func 1.0) => 1.0d0
(square-func 3.0) => 9.0d0
(square-func 5.0) => 25.0d0
@end(code)

Package

math/appr.

Source

appr.lisp.

Macro: make-approximation-lambda (args-fuc-names func-view args-results) ¶

@b(Описание:) макрос @b(make-approximation-lambda) определяет аппроксимиующую lambda-функцию, построенную на основании списка, каждый элемент которого является списком, содержащим значения аргументов функции и значение функции, соответствующее этим аргументам.

@b(Пример использования:)
@begin[lang=lisp](code)
(let ((func
(make-approximation-lambda (xx yy)
((xx xx) (xx) (1.0) (yy))
((0.0 0.0) (1.0 1.0) (2.0 4.0) (3.0 9.0)))))
(funcall func 1.0) ;=> 1.0d0
(funcall func 3.0) ;=> 9.0d0
(funcall func 5.0)) ;=> 25.0d0
@end(code)

Package

math/appr.

Source

appr.lisp.

---

6.1.3 Ordinary functions

Function: appr-table (x table) ¶

@b(Описание:) функция @b(appr-table) возвращает результат линейной интерполяции (или экстраполяции) для значения @b(x) на таблице @b(table).

@b(Пример использования:)
@begin[lang=lisp](code)
(appr-table 0.5 ’((0.0 0.0) (1.0 1.0) (2.0 4.0) (4.0 0.0))) => 0.5 (appr-table 1.5 ’((0.0 0.0) (1.0 1.0) (2.0 4.0) (4.0 0.0))) => 2.5 (appr-table 3.0 ’((0.0 0.0) (1.0 1.0) (2.0 4.0) (4.0 0.0))) => 2.0 Тест: (test-approximation-appr-table)
@end(code)

Package

math/appr.

Source

appr.lisp.

Function: aver-dmax-dmin (seq &optional significant-digits) ¶

@b(Описание:) функция @b(aver-max-min) возвращает список, состоящий из: @begin(list)
@item(из среднего значения величины;)
@item(отклонения максимального занчения в выборке от среднего;) @item(отклонения минимального занчения в выборке от среднего.)
@end(list)

Входящие в список величины округляются до количества значащих цифр равных @b(significant-digits).

@b(Пример использования:)
@begin[lang=lisp](code)
(aver-dmax-dmin ’(17.3869333 19.938901 12.41331 11.828626 10.348187 12.323172)) => (14.04 5.9 -3.69)
@end(code)

Package

math/stat.

Source

stat.lisp.

Function: aver-max-min (seq) ¶

@b(Описание:) функция @b(aver-max-min) возвращает список, состоящий из: @begin(list)
@item(среднего значения величины;)
@item(максимального значения величины;)
@item( минимального значения величины.)
@end(list)

@b(Пример использования:)
@begin[lang=lisp](code)
(aver-max-min ’(7.3869333 9.938901 8.541331 10.828626 9.348187 11.323172)) => (9.561192 11.323172 7.3869333)
@end(code)

Package

math/stat.

Source

stat.lisp.

Function: average (&rest x) ¶

@b(Описание:) функция @b(average) возврвщает среднее значение для перечня величин.

@b(Пример использования:)
@begin[lang=lisp](code)
(average 1.1 1.0 0.9 1.2 0.8) => 1.0
@end(code)

Package

math/stat.

Source

stat.lisp.

Function: average-not-nil-value (x) ¶

@b(Описание:) функция @b(average-not-nil-value) возвращает среднее значение для списка величин.

@b(Переменые:)
@begin(list)
@item(x - список, содержащий числа или nil.)
@end(list)

@b(Пример использования:)
@begin[lang=lisp](code)
(average-not-nil-value ’(1.1 1.0 nil 0.9 nil 1.2 nil 0.8)) => 1.0 @end(code)

Package

math/stat.

Source

stat.lisp.

Function: average-value (x) ¶

@b(Описание:) функция @b(average-value) возвращает среднее значение для списка величин.

@b(Пример использования:) @begin[lang=lisp](code) (average-value ’(1.1 1.0 0.9 1.2 0.8)) => 1.0
@end(code)

Package

math/stat.

Source

stat.lisp.

Function: averaging-function-defun (args-fuc-names func-view args-results func-name) ¶

@b(Описание:) функция @b(averaging-function-defun) возвращает исходный код
именований аппроксимиующей функции, построенной на основании списка,
каждый элемент которого является списком, содержащим значения
аргументов функции и значение функции, соответствующее этим аргументам.

@b(Переменые:)
@begin(list)
@item(args-fuc-names - список, содержащий имена аргументов и функции ;)
@item(func-view - вид функциональной зависимости. Функциональная
зависимость должна использовать имена из args-fuc-names ;)
@item(args-results - списка, каждый элемент которого является списком,
содержащим значения аргументов функции и значение функции
(соответствующее этим аргументам).)
@item(func-name - имя функции.)
@end(list)

@b(Пример использования:)
@begin[lang=lisp](code)
(averaging-function-defun ’(xx yy)
’((xx xx) (xx) (1.0) (yy))
’((0.0 0.0) (1.0 1.0) (2.0 4.0) (3.0 9.0))
’square-func)
=> (DEFUN SQUARE-FUNC (XX) (+ (* 1.0d0 XX XX) (* 0.0d0 XX) (* 0.0d0 1.0))) (averaging-function-defun ’(xx yy)
’((xx xx xx) (xx xx) (xx) (1.0) (yy))
’((-2.0 -8.0) (-1.0 -1.0) (0.0 0.0) (1.0 1.0) (2.0 8.0))
’cubic-func)
=> (DEFUN CUBIC-FUNC (XX) (+ (* 1.0d0 XX XX XX) (* 0.0d0 XX XX) (* 0.0d0 XX) (* 0.0d0 1.0))) @end(code)

Package

math/appr.

Source

appr.lisp.

Function: averaging-function-lambda (args-fuc-names func-view args-results) ¶

@b(Описание:) функция @b(averaging-function-lambda) возвращает исходный код аппроксимиующей lambda-функции, построенной на основании списка,
каждый элемент которого является списком, содержащим значения
аргументов функции и значение функции, соответствующее этим аргументам.

@b(Переменые:)
@begin(list)
@item(args-fuc-names - список, содержащий имена аргументов и функции ;) @item(func-view - вид функциональной зависимости. Функциональная
зависимость должна использовать имена из args-fuc-names ;) @item(args-results - списка, каждый элемент которого является списком, содержащим значения аргументов функции и значение функции (соответствующее этим аргументам).)
@end(list)

@b(Пример использования:)
@begin[lang=lisp](code)
(averaging-function-lambda ’(xx yy)
’((xx xx) (xx) (1.0) (yy))
’((0.0 0.0) (1.0 1.0) (2.0 4.0) (3.0 9.0)))
=> (LAMBDA (XX) (+ (* 1.0d0 XX XX) (* 0.0d0 XX) (* 0.0d0 1.0))) (averaging-function-lambda ’(xx yy)
’((xx xx xx) (xx xx) (xx) (1.0) (yy))
’((-2.0 -8.0) (-1.0 -1.0) (0.0 0.0) (1.0 1.0) (2.0 8.0)))
=> (LAMBDA (XX) (+ (* 1.0d0 XX XX XX) (* 0.0d0 XX XX) (* 0.0d0 XX) (* 0.0d0 1.0))) @end(code)

Package

math/appr.

Source

appr.lisp.

Function: cartesian->polar (x-y) ¶

@b(Описание:) функция @b(cartesian->polar) переводит декартовы координаты в полярные.

@b(Переменые:)
@begin(list)
@item(radius-angle - список, состоящий из двух элементов: радиус-вектора
и угла, заданного в радианах.)
@end(list)

@b(Пример использования:)
@begin[lang=lisp](code)
(cartesian->polar (list 10.0 10)) (14.142136 0.7853982)
@end(code)

Package

math/coord.

Source

coord.lisp.

Function: cartesian->spherical (x-y-z) ¶

@b(Описание:) функция @b(cartesian->spherical) выполняет преобразование координат из декартовых в сферические.

@b(Переменые:)
@begin(list)
@item(x-y-z - список, содержащий соответствующие координаты.)
@end(list)

@b(Пример использования:)
@begin[lang=lisp](code)
(cartesian->spherical ’(61.237243569579455d0 35.35533905932737d0 70.71067811865476d0)) =>(100.0d0 0.5235987755982988d0 0.7853981633974483d0)
@end(code)

Package

math/coord.

Source

coord.lisp.

Function: cauchy-smoothing (d) ¶

@b(Описание:) функция @b(cauchy-smoothing)

@b(Пример использования:) @begin[lang=lisp](code)
(loop :for d :from 0 :to 4 :by 1/10 :collect (list d (cauchy-smoothing d))) @end(code)

Package

math/smooth.

Source

smooth.lisp.

Function: circle-area-by-diameter (diameter) ¶

Package

math/geom.

Source

geom.lisp.

Function: circle-area-by-radius (radius) ¶

@b(Описание:) функция @b(circle-area-by-radius)

Package

math/geom.

Source

geom.lisp.

Function: clean-flagrant-error (x) ¶

@b(Описание:) функция @b(clean-flagrant-error) удаляет из статистики грубые промахи.

@b(Пример использования:)
@begin[lang=lisp](code)
(let ((lst ’(10.0 10.1 10.15 10.2 12.0 9.9 5.0 9.9 10.1))) (clean-flagrant-error lst)) (9.9 9.9 10.0 10.1 10.1 10.15 10.2)
@end(code)

Package

math/stat.

Source

stat.lisp.

Function: clean-max-flagrant-error (x) ¶

@b(Описание:) функция @b(clean-max-flagrant-error) удаляет из статистики грубые промахи.

Package

math/stat.

Source

stat.lisp.

Function: clean-min-flagrant-error (x) ¶

@b(Описание:) функция @b(clean-min-flagrant-error) удаляет из статистики грубые промахи.

Package

math/stat.

Source

stat.lisp.

Function: combinations (i n) ¶

Количество сочетаний из n по i.

Package

math/stat.

Source

stat.lisp.

Function: delta-max-value (x) ¶

Возвращает отклонение максимальной величины от среднего значения для списка величин.

@b(Пример использования:)
@begin[lang=lisp](code)
(delta-max-value ’(1.1 1.0 0.9 1.2 0.8)) => 0.20000005 @end(code)

Package

math/stat.

Source

stat.lisp.

Function: delta-min-value (x) ¶

@b(Описание:) функция @b(delta-min-value)
возвращает отклонение минимальной величины от среднего значения для списка величин.

@b(Пример использования:)
@begin[lang=lisp](code)
(delta-min-value ’(1.1 1.0 0.9 1.2 0.8)) -0.19999999 @end(code)

Package

math/stat.

Source

stat.lisp.

Function: depth-sphere-along-cone (r alpha) ¶

@b(Описание:) функция @b(depth-sphere-along-cone) возвращает заглубление сферы с радиусом R в конуc с углом при вершине равным alpha от линии пересечения конуса с цилиндром.

Package

math/core.

Source

core.lisp.

Function: detach-last-col (2d-list) ¶

@b(Описание:) функция @b(detach-last-col) возвращает матрицу, представленную в виде списка, образованную удалением последнего столбца (последнего элемента каждой строки).

@b(Пример использования:)
@begin[lang=lisp](code)
(detach-last-col
’((1 2 3 6)
(2 3 4 9)
(3 4 5 12))) => ((1 2 3)
(2 3 4)
(3 4 5))
@end(code)

Package

math/matr.

Source

matr.lisp.

Function: diameter-by-radius (radius) ¶

Package

math/geom.

Source

geom.lisp.

Function: dispersion (x) ¶

@b(Описание:) функция dispersion возвращает дисперсию для списка величин.

@b(Пример использования:)
@begin[lang=lisp](code)
(dispersion ’(1.1 1.0 0.9 1.2 0.8)) => 0.025000006 @end(code)

Package

math/stat.

Source

stat.lisp.

Function: dispersion-not-nil (x) ¶

Package

math/stat.

Source

stat.lisp.

Function: double-float-list (list) ¶

Package

math/coord.

Source

coord.lisp.

Function: dtr (degree) ¶

@b(Описание:) функция @b(dtr) переводит значение, заданное в градусах, в радианы.

@b(Пример использования:)

@begin[lang=lisp](code)
(dtr (rtd 1/2)) => 0.5d0
@end(code)

Package

math/coord.

Source

coord.lisp.

Function: equivalent-diameter (area perimeter) ¶

@link[uri="https://ru.wikipedia.org/wiki/Гидравлический_диаметр/"](Гидравлический_диаметр) @link[uri="https://en.wikipedia.org/wiki/Hydraulic_diameter/"](Hydraulic_diameter)

Package

math/geom.

Source

geom.lisp.

Function: exclude-nil-from-list (lst) ¶

@b(Описание:) функция @b(exclude-nil-from-list) возвращает список в котором нет nil-элементов (они исключаются).

@b(Пример использования:) @begin[lang=lisp](code) (exclude-nil-from-list ’(1.1 1.0 nil 0.9 nil 1.2 nil 0.8))
=> (1.1 1.0 0.9 1.2 0.8)
@end(code)

Package

math/core.

Source

core.lisp.

Function: exp-smoothing (d) ¶

@b(Описание:) функция @b(exp-smoothing)

@b(Пример использования:) @begin[lang=lisp](code)
(loop :for d :from 0 :to 4 :by 1/10 :collect (list d (exp-smoothing d))) @end(code)

Package

math/smooth.

Source

smooth.lisp.

Function: factorial (x) ¶

Факториал x.

Package

math/stat.

Source

stat.lisp.

Function: gauss-smoothing (d) ¶

@b(Описание:) функция @b(gauss-smoothing)

@b(Пример использования:) @begin[lang=lisp](code)
(loop :for d :from 0 :to 4 :by 1/10 :collect (list d (gauss-smoothing d))) @end(code)

Package

math/smooth.

Source

smooth.lisp.

Function: get-last-col (2d-list) ¶

@b(Описание:) функция @b(get-last-col) возвращает последний столбец матрицы, представленной в виде списка.

@b(Пример использования:)
@begin[lang=lisp](code)
(get-last-col
’((1 2 3 6)
(2 3 4 9)
(3 4 5 12))) =>(6 9 12)
@end(code)

Package

math/matr.

Source

matr.lisp.

Function: gnuplot-data-plot (f-name data &key terminal output preamble plot) ¶

@b(Описание:) функция @b(gnuplot-data-plot)

@b(Пример использования:)
@begin[lang=lisp](code)
;;;; Пример 1
(math:gnuplot-data-plot
"plot2"
(mapcar #’(lambda (x) (list x (sin x)(sqrt x)) )
(math:split-range 0.0 10 1000) )
:plot "plot ’plot2.data’ u 1:2 with lines lt 1, ’plot2.data’ u 1:3 with lines lt 2 ") @end(code)

Package

math/gnuplot.

Source

gnuplot.lisp.

Function: gnuplot-data-splot (f-name data &key terminal output preamble palette pm3d splot) ¶

STUB

Package

math/gnuplot.

Source

gnuplot.lisp.

Function: gnuplot-plot (f-name &key terminal preamble output plot) ¶

STUB

Package

math/gnuplot.

Source

gnuplot.lisp.

Function: gnuplot-splot (f-name &key terminal output preamble palette pm3d splot) ¶

Осуществляет подготовку данных, содержащихся в файле f-name с расширением data. Данные в файле должны иметь формат gp-list.

Package

math/gnuplot.

Source

gnuplot.lisp.

Function: grubbs (n &optional q) ¶

@b(Описание:) функция grubbs вычисляет значение критерия Граббса (см. п. 6.1 см. ГОСТ Р 8.736-2011).

@b(Переменые:)
@begin(list)
@item(n - количество повторяющихся измерений величины.) @item(q - уровень значимости в доях.)
@end(list)

@b(Пример использования:)
@begin[lang=lisp](code)
(let ((lst ’(10.0 10.1 10.15 10.2 10.8 9.9 9.85 9.9 10.1))) (grubbs (length lst))) => 2.215
@end(code)

Package

math/stat.

Source

stat.lisp.

Function: grubbs-max (x) ¶

@b(Описание:) функция grubbs-max возврвщает значения критерия Граббса для максимального значения списка величин.

@b(Переменые:)
@begin(list)
@item(x - список, содержащий числовые значения.)
@end(list)

@b(Пример использования:)
@begin[lang=lisp](code)
(let ((lst ’(10.0 10.1 10.15 10.2 10.8 9.9 9.85 9.9 10.1))) (grubbs-max lst)) => 2.4095862
@end(code)

Package

math/stat.

Source

stat.lisp.

Function: grubbs-min (x) ¶

@b(Описание:) функция grubbs-min возврвщает значения критерия Граббса для минимального значения списка величин.

@b(Переменые:)
@begin(list)
@item(x - список, содержащий числовые значения.)
@end(list)

@b(Пример использования:)
@begin[lang=lisp](code)
(let ((lst ’(10.0 10.1 10.15 10.2 10.8 9.9 9.7 9.9 10.1))) (grubbs-min lst)) => 1.2863455
@end(code)

Package

math/stat.

Source

stat.lisp.

Function: h-div (a b func &key eps iters) ¶

@b(Описание:) функция @b(h-div) возвращает результат решения
уравнения func(x)=0 методом половинного деления.

Поиск решения выполняется на отрезке [a,b].

@b(Переменые:)
@begin(list)
@item(a - левая граница отрезка;)
@item(b - правая граница отрезка;)
@item(func - вид функциональной зависимости;)
@item(eps - комплексная точность поиска решения;)
@item(iters - максимальное количество итераций для достижения заданной точности.) @end(list)

@b(Пример использования:)
@begin[lang=lisp](code)
(defun x2(x) (- (* x (log x)) 10000.))
(h-div 2.0 100000.0 #’x2 :iters 50)
@end(code)

Package

math/half-div.

Source

half-div.lisp.

Function: h-div-lst (a b func n p_lst &key eps iters) ¶

@b(Описание:) функция @b(h-div-lst) возвращает результат решения уравнения func(X[0],X[1],...,X[n],...,X[m])=0 методом половинного деления.

Поиск решения выполняется на отрезке [a,b] для аргумента с номером n (первый аргумет имеет номер 0).

@b(Переменые:)
@begin(list)
@item(a - левая граница отрезка;)
@item(b - правая граница отрезка;)
@item(func - вид функциональной зависимости;)
@item(n - номер аргумента в списке аргументов функции при изменении которого на отрезке [a,b] выполняется поиск решения;) @item(p_lst - список аргуметов функции;)
@item(eps - комплексная точность поиска решения;)
@item(iters - максимальное количество итераций для достижения заданной точности.)
@end(list)

@b(Пример использования:)
@begin[lang=lisp](code)
(defun xy2(x y) (- (* x (log x)) y))
(h-div-lst 2.0 100000.0 #’xy2 0 ’(t 10000.) :iters 50) @end(code)

Package

math/half-div.

Source

half-div.lisp.

Function: hann-smoothing (d) ¶

@b(Описание:) функция @b(hann-smoothing)

@b(Пример использования:) @begin[lang=lisp](code)
(loop :for d :from 0 :to 4 :by 0.1 :do (format t "~{~5F~^ ~}~%"
(list d (gauss-smoothing d) (exp-smoothing d) (cauchy-smoothing d) (hann-smoothing d)))) @end(code)

Package

math/smooth.

Source

smooth.lisp.

Function: lm-print (2d-list &key fmt stream) ¶

@b(Описание:) функция @b(lm-print) красивый вывод матрицы (списка списков).

Package

math/matr.

Source

matr.lisp.

Function: lv-print (lst &key fmt stream) ¶

@b(Описание:) функция @b(lv-print) красивый вывод вектора (списка).

Package

math/matr.

Source

matr.lisp.

Function: make (rows cols 2d-list) ¶

@b(Описание:) функция @b(make) генерирует матрицу (список списков) из вектора (списка).

@b(Пример использования:) @begin[lang=lisp](code)
(math:make 2 3 ’(0 1 2 3 4 5 6 7 8 9 10 11 12)) => ((0 1 2)
(3 4 5))
(math:make 2 3 ’nil)
=> ((NIL NIL NIL)
(NIL NIL NIL))
@end(code)

Package

math/matr.

Source

matr.lisp.

Function: make-1d-list (size &optional arg) ¶

@b(Описание:) функция @b(make-1d-list) возвращает 1d-list длиной @b(size), состоящий из случайных целых чисел в диапазоне от 0 до @b(arg).

@b(Пример использования:)
@begin[lang=lisp](code)
(make-1d-list 1) => (8)
(make-1d-list 2) => (10 7)
(make-1d-list 5) => (8 13 5 6 11)
@end(code)

Package

math/rnd.

Source

rnd.lisp.

Function: make-2d-list (size &optional arg) ¶

@b(Описание:) функция @b(make-1d-list) возвращает 2d-list размером @b(size)*@b(size), состоящий из случайных целых чисел.

@b(Пример использования:)
@begin[lang=lisp](code)
(make-2d-list 1) => ((9))
(make-2d-list 2) => ((9 4) (12 1))
(make-2d-list 5) ’((2 12 5 4 8)
(12 13 0 3 14)
(10 9 13 2 3)
( 6 6 0 6 0)
( 1 0 3 10 6))
@end(code)

Package

math/rnd.

Source

rnd.lisp.

Function: make-appr-linear (args-resuls) ¶

@b(Описание:) функция @b(make-appr-linear) возвращает функцию, являющуюся линейной интерполяцией функции одного переменного.

@b(Пример использования:)
@begin[lang=lisp](code)
(let ((f1 (math/appr:make-appr-linear
(loop :for i :from 0 :to 10
:collect (list (* 1.0d0 i) (* 0.1d0 i i))))))
(loop :for i :from 0 :to 10 :by 1/5
:collect
(list (* 1.0 i) (coerce (funcall f1 (* 1d0 i))’single-float )))) => ’((0.0 0.0) (0.2 0.02) (0.4 0.04) (0.6 0.06) (0.8 0.08) (1.0 0.1) (1.2 0.16) (1.4 0.22) (1.6 0.28) (1.8 0.34) (2.0 0.4) (2.2 0.50) (2.4 0.60) (2.6 0.70) (2.8 0.80) (3.0 0.9) (3.2 1.04) (3.4 1.18) (3.6 1.32) (3.8 1.46) (4.0 1.6) (4.2 1.78) (4.4 1.96) (4.6 2.14) (4.8 2.32) (5.0 2.5) (5.2 2.72) (5.4 2.94) (5.6 3.16) (5.8 3.38) (6.0 3.6) (6.2 3.86) (6.4 4.12) (6.6 4.38) (6.8 4.64) (7.0 4.9) (7.2 5.20) (7.4 5.50) (7.6 5.80) (7.8 6.10) (8.0 6.4) (8.2 6.74) (8.4 7.08) (8.6 7.42) (8.8 7.76) (9.0 8.1) (9.2 8.48) (9.4 8.86) (9.6 9.24) (9.8 9.62) (10.0 10.0))
@end(code)

Package

math/appr.

Source

appr.lisp.

Function: make-least-squares-matrix (vv ff ex_pts) ¶

@b(Описание:) функция @b(make-least-squares-matrix) возвращает матрицу
для расчета коэффициентов полиномиальной зависимости вида @b(ff) со
списком имен факторов влияния и имени функции отклика @b(vv),
которая приближается к экспериментальным точкам @b(ex_pts),
методом наименьших квадратов.

@b(Переменые:)
@begin(list)
@item(vv - список, состоящий из имен факторов влияния и имени функции отклика;)
@item(ff - задает вид функциональной зависимости;)
@item(ex_pts - задает значения факторов влияния и значение функции отклика;)
@end(list)

@b(Пример использования:)
@begin[lang=lisp](code)
;;;; Для аппроксимации экспериментальных точек полиномом второй степени функции одной переменной. ;;;; Здесь коэффициенты a1, a2, a3 можно найти решив САУ, получаемую в результате.
;;;; (defun yy (xx) (+ (* a1 xx xx) (* a2 xx) a3))

(make-least-squares-matrix
’(xx yy)
’((xx xx) (xx) (1.0) (yy))
’((-1.0 1.0) (0.0 0.0) (2.0 4.0) (3.0 9.0)))
=> Matr 3х4
[ 98.0d0 34.0d0 14.0d0 98.0d0 ]
[ 34.0d0 14.0d0 4.0d0 34.0d0 ]
[ 14.0d0 4.0d0 4.0d0 14.0d0 ]
;;;; Для аппроксимации экспериментальных точек полиномом второй степени функции двух переменных. ;;;; Здесь коэффициенты a1, a2, a3 можно найти решив САУ, получаемую в результате.
(defun yy (x1 x2) (+ (* 1.0 x1 x1) (* 2.0 x2 x2) (* 3.0 x1 x2) (* 4.0 x1) (* 5.0 x2) 6.0))
(make-least-squares-matrix
’(x1 x2 yy)
’((x1 x1) (x2 x2) (x1 x2) (x1) (x2) (1.0) (yy))
(let ((pts nil))
(loop :for i :from -2 :to 2 :do
(loop :for j :from -2 to 2 :do
(push (list i j (yy i j)) pts)))
pts))

; => Matr 6х7
; [ 170.0d0 100.0d0 0.0d0 0.0d0 0.0d0 50.0d0 670.0d0 ]
; [ 100.0d0 170.0d0 0.0d0 0.0d0 0.0d0 50.0d0 740.0d0 ]
; [ 0.0d0 0.0d0 100.0d0 0.0d0 0.0d0 0.0d0 300.0d0 ]
; [ 0.0d0 0.0d0 0.0d0 50.0d0 0.0d0 0.0d0 200.0d0 ]
; [ 0.0d0 0.0d0 0.0d0 0.0d0 50.0d0 0.0d0 250.0d0 ]
; [ 50.0d0 50.0d0 0.0d0 0.0d0 0.0d0 25.0d0 300.0d0 ]

(solve-x *)
; => Matr 1х6
; [ 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0 6.0d0 ]
@end(code)

См. также math/ls-gauss/solve-x; math/ls-rotation/solve.

Package

math/appr.

Source

appr.lisp.

Function: make-linear-interpolation (points &key ff) ¶

@b(Описание:) функция @b(make-linear-interpolation) возвращает функциональной зависимость, аппроксимируемую по функции одного переменного, заданной таблично.

@b(Переменые:)
@begin(list)
@item(points - список, состоящий из аргумента и значения ;)
@item(ff - вид функциональной зависимости см. *apr-func-1-2* — *apr-func-1-5*.) @end(list)

@b(Пример использования:)
@begin[lang=lisp](code)
(let* ((points-01 ’((0.0 0.0) (1.0 1.0) (2.0 2.0)))
(func-1 (make-linear-interpolation points-01)))
(loop :for x :from 0 :to 2 :by 1/10
:collect (mapcar #’(lambda (el) (coerce el ’single-float))
(list x
(funcall func-1 x)))))
=> ((0.0 0.0) (0.1 0.1) (0.2 0.2) (0.3 0.3) (0.4 0.4) (0.5 0.5) (0.6 0.6) (0.7 0.7) (0.8 0.8) (0.9 0.9) (1.0 1.0) (1.1 1.1) (1.2 1.2) (1.3 1.3) (1.4 1.4) (1.5 1.5) (1.6 1.6) (1.7 1.7) (1.8 1.8) (1.9 1.9) (2.0 2.0))

(let* ((points-02 ’((0.0 0.0) (1.0 1.0) (2.0 4.0) (3.0 9.0)))
(func-2 (make-linear-interpolation points-02 :ff *apr-func-1-3*)))
(loop :for x :from 1 :to 3 :by 1/10
:collect (mapcar #’(lambda (el) (coerce el ’single-float))
(list x
(funcall func-2 x)))))
=> ((1.0 1.0) (1.1 1.21) (1.2 1.44) (1.3 1.69) (1.4 1.96) (1.5 2.25) (1.6 2.56) (1.7 2.89) (1.8 3.24) (1.9 3.61) (2.0 4.0) (2.1 4.41) (2.2 4.84) (2.3 5.29) (2.4 5.76) (2.5 6.25) (2.6 6.76) (2.7 7.29) (2.8 7.84) (2.9 8.41) (3.0 9.0)) @end(code)

Package

math/appr.

Source

appr.lisp.

Function: make-ls-system (m vec) ¶

@b(Описание:) функция @b(make-ls-system) возвращает 2d-list, представляющий из себя расширенную матрицу (матрицу с правыми частями), являющуюся представлением системы линейных уравнений, при решении которой результатом будет @b(vec).

@b(Пример использования:)
@begin[lang=lisp](code)
(let* ((n 1)
(m (make-2d-list n))
(v (make-1d-list n)))
(values (make-ls-system m v) v))
=> ((2 14)), (7)
(let* ((n 3)
(m (make-2d-list n))
(v (make-1d-list n)))
(values (make-ls-system m v) v))
=> ((14 1 1 133)
(0 2 12 84)
(4 3 2 50)),
(9 0 7)
@end(code)

Package

math/rnd.

Source

rnd.lisp.

Function: make-plot-data-file (f-name data) ¶

@b(Описание:) функция @b(make-plot-data-file) выполняет вывод данных @b(data) в файл с именем f-name и расширением data.

@b(Пример использования:)
@begin[lang=lisp](code)
;;;; Пример 1
(make-plot-data-file
"plot2"
(mapcar
#’(lambda (x)
(list x (sin x) (sqrt x)))
(math:split-range 0.0 10 1000)))
@end(code)

Package

math/gnuplot.

Source

gnuplot.lisp.

Function: make-random-value-list (mid-value &key std-deviation n top-level) ¶

@b(Описание:) функция @b(make-random-value-list) возвращает список случайных величин:

@b(Переменые:)
@begin(list)
@item(mid-value - среднее значение; )
@item(std-deviation - стандартное отклонение;)
@item(n - количество точек; )
@item(top-level - дискретизация точек)
@end(list)

Package

math/stat.

Source

stat.lisp.

Function: make-table (lst-1 lst-2) ¶

@b(Описание:) make-table выполняет формирование списка точек, разделенного на группы.

@b(Пример использования:)
@begin[lang=lisp](code)
(make-table (split-range 1.0 0.0 2) (split-range -3 0 3))
=> (((1.0 -3.0) (1.0 -2.0) (1.0 -1.0) (1.0 0.0))
((0.5 -3.0) (0.5 -2.0) (0.5 -1.0) (0.5 0.0))
((0.0 -3.0) (0.0 -2.0) (0.0 -1.0) (0.0 0.0)))
@end(code)

Package

math/gnuplot.

Source

gnuplot.lisp.

Function: make-vector-n (element n) ¶

@b(Описание:) функция @b(make-vector-n) возвращает вектор, в котором содержится @b(n) элеметро @b(element).

@b(Пример использования:)
@begin[lang=lisp](code)
(make-vector-n 1.5 3) => #(1.5 1.5 1.5)
@end(code)

Package

math/matr.

Source

matr.lisp.

Function: matr-new (rows cols &optional lst) ¶

@b(Описание:) функция @b(matr-new) возвращает объект <matrix> с числом строк @b(rows) и числом столбцов @b(cols). Если опциональный аргумент @b(lst) отличается от nil элементы марицы инициализируются значениями, находящимися в списке @(lst) построчно.

@b(Пример использования:)
@begin[lang=lisp](code)
(matr-new 3 4 ’(1 2 3 4 5 6 7 8 9 10))
#<<MATRIX> 3х4
1 2 3 4
5 6 7 8
9 10 NIL NIL >
@end(code)

Package

math/matr.

Source

matr.lisp.

Function: max-col-not-nil-value (lst) ¶

@b(Описание:) функция @b(max-col-not-nil-value) вычисляет среднее значение по столбцам матрицы (списка списков).

Package

math/matr.

Source

matr.lisp.

Function: max-not-nil-value (x) ¶

@b(Описание:) функция max-not-nil-value возвращает максимальное значение для списка величин.

@b(Переменые:)
@begin(list)
@item(x - список, содержащий числовые значения или nil.)
@end(list)

@b(Пример использования:)
@begin[lang=lisp](code)
(max-not-nil-value ’(nil 20 nil 5 nil 10)) => 20
@end(code)

Package

math/stat.

Source

stat.lisp.

Function: max-row-not-nil-value (lst) ¶

@b(Описание:) функция @b(max-row-not-nil-value) вычисляет максимальные значения по строкам матрицы (списка списков).

@b(Пример использования:)
@begin[lang=lisp](code)
(max-row-not-nil-value ’((1.0 2.1 1.5 2.0)
(2.0 2.5 3.2 3.0))) => (2.1 3.2) @end(code)

Package

math/matr.

Source

matr.lisp.

Function: max-value (x) ¶

@b(Описание:) функция max-value возвращает максимальное значение для списка величин

@b(Пример использования:)
@begin[lang=lisp](code)
(max-value ’(1.1 1.0 0.9 1.2 0.8)) => 1.2
@end(code)

Package

math/stat.

Source

stat.lisp.

Function: min-not-nil-value (x) ¶

@b(Описание:) функция min-not-nil-value возвращает минимальное значение для списка величин.

@b(Переменые:)
@begin(list)
@item(x - список, содержащий числовые значения или nil.)
@end(list)

@b(Пример использования:)
@begin[lang=lisp](code)
(min-not-nil-value ’(nil 20 nil 5 nil 10)) => 5
@end(code)

Package

math/stat.

Source

stat.lisp.

Function: min-value (x) ¶

@b(Описание:) функция @b(min-value) возвращает максимальное значение для списка величин.

@b(Пример использования:)
@begin[lang=lisp](code)
(min-value ’(1.1 1.0 0.9 1.2 0.8)) => 0.8
@end(code)

Package

math/stat.

Source

stat.lisp.

Function: mult-matr-vect (matr vect) ¶

@b(Описание:) функция @b(mult-matr-vect) возвращает вектор, являющийся
результатом умножения матрицы @b(matr) на вектор @b(vect). Количество
элементов в результирующем векторе равно количеству элементов в
векторе @b(vect).

@b(Пример использования:)
@begin[lang=lisp](code)
(defparameter *m-test*
(make-array ’(3 4)
:initial-contents
’((10.0d0 11.0d0 12.0d0 4.0d0)
(15.0d0 17.0d0 21.0d0 2.0d0)
(70.0 8.0 10.0 3.0))))
(mult-matr-vect
*m-test* ; Проверка правильности решения (системы линейных алгебраических уравнений) СЛАУ (solve-linear-system-rotation (cl-utilities:copy-array *m-test*)))
@end(code)

Package

math.

Source

math.lisp.

Function: normalize (v) ¶

@b(Описание:) функция @b(normalize) возвращает нормализованный вектор. Длина нормализованного вектора равна 1.0.

@b(Пример использования:)
@begin[lang=lisp](code)
(normalize ’(1 2 3)) => (0.26726124 0.5345225 0.8017837) (normalize ’(2 -3)) => (0.5547002 -0.8320503)
@end(code)

Package

math/matr.

Source

matr.lisp.

Function: permutations (n) ¶

Количество перестановок

Package

math/stat.

Source

stat.lisp.

Function: point-3d->4d (point-3d &optional coord-4) ¶

@b(Описание:) функция @b(point-3d->4d) возвращает координаты точки @b(point-3d) в однородных координатах, добавляя к ним четвертую координату @b(coord-4).

@b(Пример использования:)
@begin[lang=lisp](code)
(point-3d->4d ’(1.0 2.0 3.0)) => (1.0 2.0 3.0 0.0d0) (point-3d->4d ’(1.0 2.0 3.0) 0.0) => (1.0 2.0 3.0 0.0) @end(code)

Package

math/coord.

Source

coord.lisp.

Function: point-4d->3d (point-4d) ¶

@b(Описание:) функция @b(point-4d->3d) преобразует координаты точки @b(point-4d) из однородных в 3d и возвращает последние.

@b(Пример использования:)
@begin[lang=lisp](code)
(point-4d->3d ’(1.0 2.0 3.0 0.0d0)) => (1.0 2.0 3.0) @end(code)

Package

math/coord.

Source

coord.lisp.

Function: polar->cartesian (radius-angle) ¶

@b(Описание:) функция @b(polar->cartesian) переводит полярные координаты в декартовы.

@b(Переменые:)
@begin(list)
@item(radius-angle - список, состоящий из двух элементов: радиус-вектора
и угла, заданного в радианах.)
@end(list)

@b(Пример использования:)
@begin[lang=lisp](code)
(polar->cartesian ‘(10.0 ,(dtr 45))) => (7.0710678118654755d0 7.071067811865475d0) @end(code)

Package

math/coord.

Source

coord.lisp.

Function: radius-by-diameter (diameter) ¶

Package

math/geom.

Source

geom.lisp.

Function: regular-tetrahedron-side-by-volume (v) ¶

@b(Описание:) функция @b(regular-tetrahedron-volume-by-side) возвращает объем правильного тетраэдра с ребром @b(a).

@b(Пример использования:)
@begin[lang=lisp](code) (regular-tetrahedron-side-by-volume 1.00) => 2.039649 (regular-tetrahedron-side-by-volume 10.0) => 4.3942904 @end(code)

Package

math/geom.

Source

geom.lisp.

Function: regular-tetrahedron-volume-by-side (a) ¶

@b(Описание:) функция @b(regular-tetrahedron-volume-by-side) возвращает объем правильного тетраэдра с ребром @b(a).

@b(Пример использования:)
@begin[lang=lisp](code) (regular-tetrahedron-volume-by-side 1.00) => 0.11785113 (regular-tetrahedron-volume-by-side 10.0) => 117.85112 @end(code)

Package

math/geom.

Source

geom.lisp.

Function: regular-triangle-area-by-side (a) ¶

@b(Описание:) функция @b(triangle-area-by-sides) возвращает
площадь правильного треугольника со стороной @b(a).
@b(Пример использования:)
@begin[lang=lisp](code)
(regular-triangle-area-by-side 1.0 1.0 1.0) => 0.4330127 ; (/ (sqrt 3) 4) (regular-triangle-area-by-side 2.0 2.0 2.0) => 1.7320508 ; (sqrt 3) @end(code)

Package

math/geom.

Source

geom.lisp.

Function: regular-triangle-side-by-area (s) ¶

@b(Описание:) функция @b(regular-triangle-side-by-area) длину стороны правильного треугольника с площадью @b(s).
@b(Пример использования:)
@begin[lang=lisp](code)
(regular-triangle-side-by-area 0.4330127) => 1.0 (regular-triangle-side-by-area 1.7320508) => 2.0
@end(code)

Package

math/geom.

Source

geom.lisp.

Function: rgb (aa rr gg bb) ¶

@b(Описание:) функция @b(rgb) возвращает строковое представление цвета.

@b(Переменые:)
@begin(list)
@iterm(aa = 0..255 яркость;)
@iterm(rr = 0..255 насыщенность красного;)
@iterm(gg = 0..255 насыщенность зеленого;)
@iterm(bb = 0..255 насыщенность синего.)
@end(list)

Package

math/gnuplot.

Source

gnuplot.lisp.

Function: round-to-significant-digits (val &optional significant-digits base-val) ¶

@b(Описание:) функция @b(round-to-significant-digits) округляет значение val до количества значащих цифр, задаваемых аргументом significant-digits.

@b(Пример использования:)
@begin[lang=lisp](code)
(round-to-significant-digits 456.32738915923 ) => 456.3 (round-to-significant-digits 456.32738915923 6 ) => 456.327 (round-to-significant-digits 456.32738915923 6 53562.23) => 456.3 @end(code)

Package

math/core.

Source

core.lisp.

Function: rtd (radian) ¶

@b(Описание:) функция @b(rtd) переводит значение, заданное в радианах, в градусы.

@b(Пример использования:) @begin[lang=lisp](code)
(rtd (dtr 45)) => 45.0d0
@end(code)

Package

math/coord.

Source

coord.lisp.

Function: single-float-list (list) ¶

Package

math/coord.

Source

coord.lisp.

Function: solve (matrix vector) ¶

@b(Описание:) функция| @b(solve) возвращает корни решения СЛАУ (системы линейных алгебраических уравнений),
используя LU-разложение матрицы @b(matrix).

@b(Пример использования:)
@begin[lang=lisp](code)
(let ((m (grid:make-foreign-array
’double-float :initial-contents
’((1 2 3)
(2 1 1)
(3 0 1))))
(v (grid:make-foreign-array
’double-float :initial-contents
’(14 7 6))))
(solve m v))
=> #(1.0000000000000002d0 2.0000000000000004d0 2.9999999999999996d0) @end(code)

Package

math/ls-gsll.

Source

ls-gsll.lisp.

Function: solve-x (m-v) ¶

@b(Описание:) функция| @b(solve) возвращает корни решения СЛАУ (системы линейных алгебраических уравнений), используя LU-разложение матрицы @b(m-v).

@b(Переменые:)
@begin(list)
@item(m-v - матрица, представленная в виде 2d-list, (списком состоящим из списков));
@end(list)

@b(Пример использования:)
@begin[lang=lisp](code)
(let ((m ’((1 2 3 14)
(2 1 1 7)
(3 0 1 6))))
(solve-x m))
=> #(1.0000000000000002d0 2.0000000000000004d0 2.9999999999999996d0) @end(code)

Package

math/ls-gsll.

Source

ls-gsll.lisp.

Function: spherical->cartesian (r-φ-θ) ¶

@b(Описание:) функция @b(spherical->cartesian) выполняет преобразование координат из сферических в декартовы.

@b(Переменые:)
@begin(list)
@item(r-φ-θ - список состоящий из трех величин: @begin(list)
@item(r - расстояние от начала координат до заданной точки;) @item(φ - азимутальный угол (в плоскости X0Y);)
@item(θ - зенитный угол.)
@end(list))
@end(list)

@b(Пример использования:)
@begin[lang=lisp](code)
(spherical->cartesian ‘(100 ,(dtr 30) ,(dtr 45)))
=> (61.237243569579455d0 35.35533905932737d0 70.71067811865476d0) @end(code)

Package

math/coord.

Source

coord.lisp.

Function: split-range (from to steps) ¶

@b(Описание:) split-range

@b(Пример использования:)
@begin[lang=lisp](code)
(split-range 10 20 5) => (10.0 12.0 14.0 16.0 18.0 20.0) @end(code)

Package

math/core.

Source

core.lisp.

Function: split-range-at-center (from to subdivisions) ¶

@b(Описание:) функция @b(split-range-in-center) делит интервал от @b(from) до @b(to) на @b(subdivisions) интервалов, возвращая их середины.

@b(Пример использования:)
@begin[lang=lisp](code)
(split-range-at-center 0.0 10.0 10)
=> (0.5 1.5 2.5 3.5 4.5 5.5 6.5 7.5 8.5 9.5)
@end(code)

Package

math/core.

Source

core.lisp.

Function: split-range-by-func (from to steps &key func anti-func) ¶

@b(Описание:) split-range-by-func

@b(Пример использования:)
@begin[lang=lisp](code)
(split-range-by-func 1 10 5) => (1.0 1.5848932 2.5118864 3.981072 6.3095737 10.0) (split-range-by-func 1 10 10) =>
(1.0 1.2589254 1.5848932 1.9952624 2.5118864 3.1622777 3.981072 5.0118723 6.3095737 7.943282 10.0) @end(code)

Package

math/core.

Source

core.lisp.

Function: square (x) ¶

@b(Описание:) функция @b(square) возвращает квадрат значения.

@b(Переменые:)
@begin(list)
@item(x - число.)
@end(list)

@b(Пример использования:)
@begin[lang=lisp](code)
(square 5) => 25
(square -4) => 16
@end(code)

Package

math/core.

Source

core.lisp.

Function: standard-deviation (x) ¶

@b(Описание:) функция standard-deviation возвращает среднеквадратичное (стандартное) отклонение для списка величин.

@b(Переменые:)
@begin(list)
@item(x - список, содержащий числовые значения.)
@end(list)

@b(Пример использования:)
@begin[lang=lisp](code)
(standard-deviation ’(1.1 1.0 0.9 1.2 0.8)) => 0.1581139 @end(code)

Package

math/stat.

Source

stat.lisp.

Function: standard-deviation-not-nil (x) ¶

Package

math/stat.

Source

stat.lisp.

Function: table-apply (table func &rest second-and-others) ¶

@b(Описание:) функция @b(table-apply)

@b(Пример использования:)
@begin[lang=lisp](code)
(make-table (split-range 1 4 3) (split-range 5 7 2))
=>
(((1.0 5.0) (1.0 6.0) (1.0 7.0))
((2.0 5.0) (2.0 6.0) (2.0 7.0))
((3.0 5.0) (3.0 6.0) (3.0 7.0))
((4.0 5.0) (4.0 6.0) (4.0 7.0)))

(table-apply (make-table (split-range 1 4 3) (split-range 5 7 2)) #’* 10.) =>
(((1.0 5.0 50.0) (1.0 6.0 60.0) (1.0 7.0 70.0))
((2.0 5.0 100.0) (2.0 6.0 120.0) (2.0 7.0 140.0))
((3.0 5.0 150.0) (3.0 6.0 180.0) (3.0 7.0 210.0))
((4.0 5.0 200.0) (4.0 6.0 240.0) (4.0 7.0 280.0)))

(table-apply (make-table (split-range 1 4 3) (split-range 5 7 2)) #’vector) =>
(((1.0 5.0 #(1.0 5.0)) (1.0 6.0 #(1.0 6.0)) (1.0 7.0 #(1.0 7.0)))
((2.0 5.0 #(2.0 5.0)) (2.0 6.0 #(2.0 6.0)) (2.0 7.0 #(2.0 7.0)))
((3.0 5.0 #(3.0 5.0)) (3.0 6.0 #(3.0 6.0)) (3.0 7.0 #(3.0 7.0)))
((4.0 5.0 #(4.0 5.0)) (4.0 6.0 #(4.0 6.0)) (4.0 7.0 #(4.0 7.0)))) @end(code)

Package

math/gnuplot.

Source

gnuplot.lisp.

Function: triangle-area-by-sides (a b c) ¶

@b(Описание:) функция @b(triangle-area-by-sides) возвращает площадь треугольника со сторонами @b(a), @b(b), @b(c).

@b(Пример использования:)
@begin[lang=lisp](code)
(triangle-area-by-sides 1.0 1.0 1.0) => 0.4330127 ; (/ (sqrt 3) 4) (triangle-area-by-sides 2.0 2.0 2.0) => 1.7320508 ; (sqrt 3) (triangle-area-by-sides 3.0 4.0 5.0) => 6.0 (triangle-area-by-sides 1.0 2.0 3.0) => 0.0
@end(code)

Package

math/geom.

Source

geom.lisp.

Function: variation-coefficient (x) ¶

@b(Описание:) возвращает @link[uri="https://ru.wikipedia.org/wiki/Коэффициент_вариации"](коэффициент вариации) для списка величин.

@b(Пример использования:)
@begin[lang=lisp](code)
(variation-coefficient ’(1.1 1.0 0.9 1.2 0.8))
@end(code)

Package

math/stat.

Source

stat.lisp.

Function: variation-coefficient-not-nil (x) ¶

Package

math/stat.

Source

stat.lisp.

Function: weight-func-list () ¶

Package

math/smooth.

Source

smooth.lisp.

Function: weight-func-p (func) ¶

Package

math/smooth.

Source

smooth.lisp.

---