emacs: lisp/calc/calc-cplx.el annotate

author	Jan Djärv <jan.h.d@swipnet.se>
date	Sat, 14 Mar 2009 15:12:24 +0000 (2009-03-14)
parents	a9dc0e7c3f2b
children	1d1d5d9bd884

rev	line source
41271 fcd507927105 Change all toplevel `setq' forms to `defvar' forms, and move them Colin Walters <walters@gnu.org> parents: 41047 diff changeset	1 ;;; calc-cplx.el --- Complex number functions for Calc
fcd507927105 Change all toplevel `setq' forms to `defvar' forms, and move them Colin Walters <walters@gnu.org> parents: 41047 diff changeset	2
64325 1db49616ce05 Update copyright information. Jay Belanger <jay.p.belanger@gmail.com> parents: 62442 diff changeset	3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004,
100908 a9dc0e7c3f2b Add 2009 to copyright years. Glenn Morris <rgm@gnu.org> parents: 94654 diff changeset	4 ;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
41271 fcd507927105 Change all toplevel `setq' forms to `defvar' forms, and move them Colin Walters <walters@gnu.org> parents: 41047 diff changeset	5
fcd507927105 Change all toplevel `setq' forms to `defvar' forms, and move them Colin Walters <walters@gnu.org> parents: 41047 diff changeset	6 ;; Author: David Gillespie <daveg@synaptics.com>
77465 1154f082efd9 Update maintainer's address. Jay Belanger <jay.p.belanger@gmail.com> parents: 76595 diff changeset	7 ;; Maintainer: Jay Belanger <jay.p.belanger@gmail.com>
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	8
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	9 ;; This file is part of GNU Emacs.
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	10
94654 6c9af2bfcfee Switch to recommended form of GPLv3 permissions notice. Glenn Morris <rgm@gnu.org> parents: 93975 diff changeset	11 ;; GNU Emacs is free software: you can redistribute it and/or modify
76595 497d17a80bb8 Change form of license text to match rest of Emacs. Glenn Morris <rgm@gnu.org> parents: 75346 diff changeset	12 ;; it under the terms of the GNU General Public License as published by
94654 6c9af2bfcfee Switch to recommended form of GPLv3 permissions notice. Glenn Morris <rgm@gnu.org> parents: 93975 diff changeset	13 ;; the Free Software Foundation, either version 3 of the License, or
6c9af2bfcfee Switch to recommended form of GPLv3 permissions notice. Glenn Morris <rgm@gnu.org> parents: 93975 diff changeset	14 ;; (at your option) any later version.
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	15
76595 497d17a80bb8 Change form of license text to match rest of Emacs. Glenn Morris <rgm@gnu.org> parents: 75346 diff changeset	16 ;; GNU Emacs is distributed in the hope that it will be useful,
497d17a80bb8 Change form of license text to match rest of Emacs. Glenn Morris <rgm@gnu.org> parents: 75346 diff changeset	17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
497d17a80bb8 Change form of license text to match rest of Emacs. Glenn Morris <rgm@gnu.org> parents: 75346 diff changeset	18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
497d17a80bb8 Change form of license text to match rest of Emacs. Glenn Morris <rgm@gnu.org> parents: 75346 diff changeset	19 ;; GNU General Public License for more details.
497d17a80bb8 Change form of license text to match rest of Emacs. Glenn Morris <rgm@gnu.org> parents: 75346 diff changeset	20
497d17a80bb8 Change form of license text to match rest of Emacs. Glenn Morris <rgm@gnu.org> parents: 75346 diff changeset	21 ;; You should have received a copy of the GNU General Public License
94654 6c9af2bfcfee Switch to recommended form of GPLv3 permissions notice. Glenn Morris <rgm@gnu.org> parents: 93975 diff changeset	22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	23
41271 fcd507927105 Change all toplevel `setq' forms to `defvar' forms, and move them Colin Walters <walters@gnu.org> parents: 41047 diff changeset	24 ;;; Commentary:
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	25
41271 fcd507927105 Change all toplevel `setq' forms to `defvar' forms, and move them Colin Walters <walters@gnu.org> parents: 41047 diff changeset	26 ;;; Code:
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	27
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	28 ;; This file is autoloaded from calc-ext.el.
58650 d0909149f67b Add a provide statement. Jay Belanger <jay.p.belanger@gmail.com> parents: 52401 diff changeset	29
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	30 (require 'calc-ext)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	31 (require 'calc-macs)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	32
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	33 (defun calc-argument (arg)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	34 (interactive "P")
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	35 (calc-slow-wrapper
41047 73f364fd8aaa Style cleanup; don't put closing parens on their Colin Walters <walters@gnu.org> parents: 40785 diff changeset	36 (calc-unary-op "arg" 'calcFunc-arg arg)))
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	37
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	38 (defun calc-re (arg)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	39 (interactive "P")
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	40 (calc-slow-wrapper
41047 73f364fd8aaa Style cleanup; don't put closing parens on their Colin Walters <walters@gnu.org> parents: 40785 diff changeset	41 (calc-unary-op "re" 'calcFunc-re arg)))
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	42
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	43 (defun calc-im (arg)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	44 (interactive "P")
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	45 (calc-slow-wrapper
41047 73f364fd8aaa Style cleanup; don't put closing parens on their Colin Walters <walters@gnu.org> parents: 40785 diff changeset	46 (calc-unary-op "im" 'calcFunc-im arg)))
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	47
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	48
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	49 (defun calc-polar ()
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	50 (interactive)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	51 (calc-slow-wrapper
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	52 (let ((arg (calc-top-n 1)))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	53 (if (or (calc-is-inverse)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	54 (eq (car-safe arg) 'polar))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	55 (calc-enter-result 1 "p-r" (list 'calcFunc-rect arg))
41047 73f364fd8aaa Style cleanup; don't put closing parens on their Colin Walters <walters@gnu.org> parents: 40785 diff changeset	56 (calc-enter-result 1 "r-p" (list 'calcFunc-polar arg))))))
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	57
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	58
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	59
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	60
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	61 (defun calc-complex-notation ()
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	62 (interactive)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	63 (calc-wrapper
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	64 (calc-change-mode 'calc-complex-format nil t)
41271 fcd507927105 Change all toplevel `setq' forms to `defvar' forms, and move them Colin Walters <walters@gnu.org> parents: 41047 diff changeset	65 (message "Displaying complex numbers in (X,Y) format")))
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	66
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	67 (defun calc-i-notation ()
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	68 (interactive)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	69 (calc-wrapper
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	70 (calc-change-mode 'calc-complex-format 'i t)
41271 fcd507927105 Change all toplevel `setq' forms to `defvar' forms, and move them Colin Walters <walters@gnu.org> parents: 41047 diff changeset	71 (message "Displaying complex numbers in X+Yi format")))
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	72
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	73 (defun calc-j-notation ()
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	74 (interactive)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	75 (calc-wrapper
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	76 (calc-change-mode 'calc-complex-format 'j t)
41271 fcd507927105 Change all toplevel `setq' forms to `defvar' forms, and move them Colin Walters <walters@gnu.org> parents: 41047 diff changeset	77 (message "Displaying complex numbers in X+Yj format")))
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	78
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	79
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	80 (defun calc-polar-mode (n)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	81 (interactive "P")
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	82 (calc-wrapper
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	83 (if (if n
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	84 (> (prefix-numeric-value n) 0)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	85 (eq calc-complex-mode 'cplx))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	86 (progn
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	87 (calc-change-mode 'calc-complex-mode 'polar)
41271 fcd507927105 Change all toplevel `setq' forms to `defvar' forms, and move them Colin Walters <walters@gnu.org> parents: 41047 diff changeset	88 (message "Preferred complex form is polar"))
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	89 (calc-change-mode 'calc-complex-mode 'cplx)
41271 fcd507927105 Change all toplevel `setq' forms to `defvar' forms, and move them Colin Walters <walters@gnu.org> parents: 41047 diff changeset	90 (message "Preferred complex form is rectangular"))))
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	91
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	92
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	93 ;;;; Complex numbers.
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	94
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	95 (defun math-normalize-polar (a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	96 (let ((r (math-normalize (nth 1 a)))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	97 (th (math-normalize (nth 2 a))))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	98 (cond ((math-zerop r)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	99 '(polar 0 0))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	100 ((or (math-zerop th))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	101 r)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	102 ((and (not (eq calc-angle-mode 'rad))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	103 (or (equal th '(float 18 1))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	104 (equal th 180)))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	105 (math-neg r))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	106 ((math-negp r)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	107 (math-neg (list 'polar (math-neg r) th)))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	108 (t
41047 73f364fd8aaa Style cleanup; don't put closing parens on their Colin Walters <walters@gnu.org> parents: 40785 diff changeset	109 (list 'polar r th)))))
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	110
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	111
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	112 ;;; Coerce A to be complex (rectangular form). [c N]
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	113 (defun math-complex (a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	114 (cond ((eq (car-safe a) 'cplx) a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	115 ((eq (car-safe a) 'polar)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	116 (if (math-zerop (nth 1 a))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	117 (nth 1 a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	118 (let ((sc (calcFunc-sincos (nth 2 a))))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	119 (list 'cplx
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	120 (math-mul (nth 1 a) (nth 1 sc))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	121 (math-mul (nth 1 a) (nth 2 sc))))))
41047 73f364fd8aaa Style cleanup; don't put closing parens on their Colin Walters <walters@gnu.org> parents: 40785 diff changeset	122 (t (list 'cplx a 0))))
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	123
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	124 ;;; Coerce A to be complex (polar form). [c N]
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	125 (defun math-polar (a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	126 (cond ((eq (car-safe a) 'polar) a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	127 ((math-zerop a) '(polar 0 0))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	128 (t
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	129 (list 'polar
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	130 (math-abs a)
41047 73f364fd8aaa Style cleanup; don't put closing parens on their Colin Walters <walters@gnu.org> parents: 40785 diff changeset	131 (calcFunc-arg a)))))
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	132
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	133 ;;; Multiply A by the imaginary constant i. [N N] [Public]
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	134 (defun math-imaginary (a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	135 (if (and (or (Math-objvecp a) (math-infinitep a))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	136 (not calc-symbolic-mode))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	137 (math-mul a
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	138 (if (or (eq (car-safe a) 'polar)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	139 (and (not (eq (car-safe a) 'cplx))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	140 (eq calc-complex-mode 'polar)))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	141 (list 'polar 1 (math-quarter-circle nil))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	142 '(cplx 0 1)))
41047 73f364fd8aaa Style cleanup; don't put closing parens on their Colin Walters <walters@gnu.org> parents: 40785 diff changeset	143 (math-mul a '(var i var-i))))
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	144
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	145
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	146
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	147
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	148 (defun math-want-polar (a b)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	149 (cond ((eq (car-safe a) 'polar)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	150 (if (eq (car-safe b) 'cplx)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	151 (eq calc-complex-mode 'polar)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	152 t))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	153 ((eq (car-safe a) 'cplx)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	154 (if (eq (car-safe b) 'polar)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	155 (eq calc-complex-mode 'polar)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	156 nil))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	157 ((eq (car-safe b) 'polar)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	158 t)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	159 ((eq (car-safe b) 'cplx)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	160 nil)
41047 73f364fd8aaa Style cleanup; don't put closing parens on their Colin Walters <walters@gnu.org> parents: 40785 diff changeset	161 (t (eq calc-complex-mode 'polar))))
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	162
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	163 ;;; Force A to be in the (-pi,pi] or (-180,180] range.
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	164 (defun math-fix-circular (a &optional dir) ; [R R]
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	165 (cond ((eq (car-safe a) 'hms)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	166 (cond ((and (Math-lessp 180 (nth 1 a)) (not (eq dir 1)))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	167 (math-fix-circular (math-add a '(float -36 1)) -1))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	168 ((or (Math-lessp -180 (nth 1 a)) (eq dir -1))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	169 a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	170 (t
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	171 (math-fix-circular (math-add a '(float 36 1)) 1))))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	172 ((eq calc-angle-mode 'rad)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	173 (cond ((and (Math-lessp (math-pi) a) (not (eq dir 1)))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	174 (math-fix-circular (math-sub a (math-two-pi)) -1))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	175 ((or (Math-lessp (math-neg (math-pi)) a) (eq dir -1))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	176 a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	177 (t
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	178 (math-fix-circular (math-add a (math-two-pi)) 1))))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	179 (t
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	180 (cond ((and (Math-lessp '(float 18 1) a) (not (eq dir 1)))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	181 (math-fix-circular (math-add a '(float -36 1)) -1))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	182 ((or (Math-lessp '(float -18 1) a) (eq dir -1))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	183 a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	184 (t
41047 73f364fd8aaa Style cleanup; don't put closing parens on their Colin Walters <walters@gnu.org> parents: 40785 diff changeset	185 (math-fix-circular (math-add a '(float 36 1)) 1))))))
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	186
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	187
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	188 ;;;; Complex numbers.
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	189
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	190 (defun calcFunc-polar (a) ; [C N] [Public]
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	191 (cond ((Math-vectorp a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	192 (math-map-vec 'calcFunc-polar a))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	193 ((Math-realp a) a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	194 ((Math-numberp a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	195 (math-normalize (math-polar a)))
41047 73f364fd8aaa Style cleanup; don't put closing parens on their Colin Walters <walters@gnu.org> parents: 40785 diff changeset	196 (t (list 'calcFunc-polar a))))
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	197
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	198 (defun calcFunc-rect (a) ; [N N] [Public]
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	199 (cond ((Math-vectorp a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	200 (math-map-vec 'calcFunc-rect a))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	201 ((Math-realp a) a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	202 ((Math-numberp a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	203 (math-normalize (math-complex a)))
41047 73f364fd8aaa Style cleanup; don't put closing parens on their Colin Walters <walters@gnu.org> parents: 40785 diff changeset	204 (t (list 'calcFunc-rect a))))
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	205
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	206 ;;; Compute the complex conjugate of A. [O O] [Public]
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	207 (defun calcFunc-conj (a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	208 (let (aa bb)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	209 (cond ((Math-realp a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	210 a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	211 ((eq (car a) 'cplx)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	212 (list 'cplx (nth 1 a) (math-neg (nth 2 a))))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	213 ((eq (car a) 'polar)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	214 (list 'polar (nth 1 a) (math-neg (nth 2 a))))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	215 ((eq (car a) 'vec)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	216 (math-map-vec 'calcFunc-conj a))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	217 ((eq (car a) 'calcFunc-conj)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	218 (nth 1 a))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	219 ((math-known-realp a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	220 a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	221 ((and (equal a '(var i var-i))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	222 (math-imaginary-i))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	223 (math-neg a))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	224 ((and (memq (car a) '(+ - * /))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	225 (progn
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	226 (setq aa (calcFunc-conj (nth 1 a))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	227 bb (calcFunc-conj (nth 2 a)))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	228 (or (not (eq (car-safe aa) 'calcFunc-conj))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	229 (not (eq (car-safe bb) 'calcFunc-conj)))))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	230 (if (eq (car a) '+)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	231 (math-add aa bb)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	232 (if (eq (car a) '-)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	233 (math-sub aa bb)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	234 (if (eq (car a) '*)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	235 (math-mul aa bb)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	236 (math-div aa bb)))))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	237 ((eq (car a) 'neg)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	238 (math-neg (calcFunc-conj (nth 1 a))))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	239 ((let ((inf (math-infinitep a)))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	240 (and inf
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	241 (math-mul (calcFunc-conj (math-infinite-dir a inf)) inf))))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	242 (t (calc-record-why 'numberp a)
41047 73f364fd8aaa Style cleanup; don't put closing parens on their Colin Walters <walters@gnu.org> parents: 40785 diff changeset	243 (list 'calcFunc-conj a)))))
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	244
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	245
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	246 ;;; Compute the complex argument of A. [F N] [Public]
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	247 (defun calcFunc-arg (a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	248 (cond ((Math-anglep a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	249 (if (math-negp a) (math-half-circle nil) 0))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	250 ((eq (car-safe a) 'cplx)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	251 (calcFunc-arctan2 (nth 2 a) (nth 1 a)))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	252 ((eq (car-safe a) 'polar)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	253 (nth 2 a))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	254 ((eq (car a) 'vec)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	255 (math-map-vec 'calcFunc-arg a))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	256 ((and (equal a '(var i var-i))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	257 (math-imaginary-i))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	258 (math-quarter-circle t))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	259 ((and (equal a '(neg (var i var-i)))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	260 (math-imaginary-i))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	261 (math-neg (math-quarter-circle t)))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	262 ((let ((signs (math-possible-signs a)))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	263 (or (and (memq signs '(2 4 6)) 0)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	264 (and (eq signs 1) (math-half-circle nil)))))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	265 ((math-infinitep a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	266 (if (or (equal a '(var uinf var-uinf))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	267 (equal a '(var nan var-nan)))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	268 '(var nan var-nan)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	269 (calcFunc-arg (math-infinite-dir a))))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	270 (t (calc-record-why 'numvecp a)
41047 73f364fd8aaa Style cleanup; don't put closing parens on their Colin Walters <walters@gnu.org> parents: 40785 diff changeset	271 (list 'calcFunc-arg a))))
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	272
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	273 (defun math-imaginary-i ()
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	274 (let ((val (calc-var-value 'var-i)))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	275 (or (eq (car-safe val) 'special-const)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	276 (equal val '(cplx 0 1))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	277 (and (eq (car-safe val) 'polar)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	278 (eq (nth 1 val) 0)
41047 73f364fd8aaa Style cleanup; don't put closing parens on their Colin Walters <walters@gnu.org> parents: 40785 diff changeset	279 (Math-equal (nth 1 val) (math-quarter-circle nil))))))
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	280
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	281 ;;; Extract the real or complex part of a complex number. [R N] [Public]
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	282 ;;; Also extracts the real part of a modulo form.
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	283 (defun calcFunc-re (a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	284 (let (aa bb)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	285 (cond ((Math-realp a) a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	286 ((memq (car a) '(mod cplx))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	287 (nth 1 a))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	288 ((eq (car a) 'polar)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	289 (math-mul (nth 1 a) (calcFunc-cos (nth 2 a))))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	290 ((eq (car a) 'vec)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	291 (math-map-vec 'calcFunc-re a))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	292 ((math-known-realp a) a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	293 ((eq (car a) 'calcFunc-conj)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	294 (calcFunc-re (nth 1 a)))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	295 ((and (equal a '(var i var-i))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	296 (math-imaginary-i))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	297 0)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	298 ((and (memq (car a) '(+ - *))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	299 (progn
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	300 (setq aa (calcFunc-re (nth 1 a))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	301 bb (calcFunc-re (nth 2 a)))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	302 (or (not (eq (car-safe aa) 'calcFunc-re))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	303 (not (eq (car-safe bb) 'calcFunc-re)))))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	304 (if (eq (car a) '+)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	305 (math-add aa bb)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	306 (if (eq (car a) '-)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	307 (math-sub aa bb)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	308 (math-sub (math-mul aa bb)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	309 (math-mul (calcFunc-im (nth 1 a))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	310 (calcFunc-im (nth 2 a)))))))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	311 ((and (eq (car a) '/)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	312 (math-known-realp (nth 2 a)))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	313 (math-div (calcFunc-re (nth 1 a)) (nth 2 a)))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	314 ((eq (car a) 'neg)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	315 (math-neg (calcFunc-re (nth 1 a))))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	316 (t (calc-record-why 'numberp a)
41047 73f364fd8aaa Style cleanup; don't put closing parens on their Colin Walters <walters@gnu.org> parents: 40785 diff changeset	317 (list 'calcFunc-re a)))))
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	318
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	319 (defun calcFunc-im (a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	320 (let (aa bb)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	321 (cond ((Math-realp a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	322 (if (math-floatp a) '(float 0 0) 0))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	323 ((eq (car a) 'cplx)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	324 (nth 2 a))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	325 ((eq (car a) 'polar)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	326 (math-mul (nth 1 a) (calcFunc-sin (nth 2 a))))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	327 ((eq (car a) 'vec)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	328 (math-map-vec 'calcFunc-im a))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	329 ((math-known-realp a)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	330 0)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	331 ((eq (car a) 'calcFunc-conj)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	332 (math-neg (calcFunc-im (nth 1 a))))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	333 ((and (equal a '(var i var-i))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	334 (math-imaginary-i))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	335 1)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	336 ((and (memq (car a) '(+ - *))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	337 (progn
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	338 (setq aa (calcFunc-im (nth 1 a))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	339 bb (calcFunc-im (nth 2 a)))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	340 (or (not (eq (car-safe aa) 'calcFunc-im))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	341 (not (eq (car-safe bb) 'calcFunc-im)))))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	342 (if (eq (car a) '+)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	343 (math-add aa bb)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	344 (if (eq (car a) '-)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	345 (math-sub aa bb)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	346 (math-add (math-mul (calcFunc-re (nth 1 a)) bb)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	347 (math-mul aa (calcFunc-re (nth 2 a)))))))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	348 ((and (eq (car a) '/)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	349 (math-known-realp (nth 2 a)))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	350 (math-div (calcFunc-im (nth 1 a)) (nth 2 a)))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	351 ((eq (car a) 'neg)
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	352 (math-neg (calcFunc-im (nth 1 a))))
2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	353 (t (calc-record-why 'numberp a)
41047 73f364fd8aaa Style cleanup; don't put closing parens on their Colin Walters <walters@gnu.org> parents: 40785 diff changeset	354 (list 'calcFunc-im a)))))
40785 2fb9d407ae73 Initial import of Calc 2.02f. Eli Zaretskii <eliz@gnu.org> parents: diff changeset	355
58650 d0909149f67b Add a provide statement. Jay Belanger <jay.p.belanger@gmail.com> parents: 52401 diff changeset	356 (provide 'calc-cplx)
d0909149f67b Add a provide statement. Jay Belanger <jay.p.belanger@gmail.com> parents: 52401 diff changeset	357
93975 1e3a407766b9 Fix up comment convention on the arch-tag lines. Stefan Monnier <monnier@iro.umontreal.ca> parents: 79702 diff changeset	358 ;; arch-tag: de73a331-941c-4507-ae76-46c76adc70dd
41047 73f364fd8aaa Style cleanup; don't put closing parens on their Colin Walters <walters@gnu.org> parents: 40785 diff changeset	359 ;;; calc-cplx.el ends here

41271

fcd507927105 Change all toplevel `setq' forms to `defvar' forms, and move them

Colin Walters <walters@gnu.org>

parents: 41047

diff changeset

1 ;;; calc-cplx.el --- Complex number functions for Calc

fcd507927105 Change all toplevel `setq' forms to `defvar' forms, and move them

Colin Walters <walters@gnu.org>

parents: 41047

diff changeset

2

64325

1db49616ce05 Update copyright information.

Jay Belanger <jay.p.belanger@gmail.com>

parents: 62442

diff changeset

100908

a9dc0e7c3f2b Add 2009 to copyright years.

Glenn Morris <rgm@gnu.org>

parents: 94654

diff changeset

4 ;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.

41271

fcd507927105 Change all toplevel `setq' forms to `defvar' forms, and move them

Colin Walters <walters@gnu.org>

parents: 41047

diff changeset

5

fcd507927105 Change all toplevel `setq' forms to `defvar' forms, and move them

Colin Walters <walters@gnu.org>

parents: 41047

diff changeset

6 ;; Author: David Gillespie <daveg@synaptics.com>

77465

1154f082efd9 Update maintainer's address.

Jay Belanger <jay.p.belanger@gmail.com>

parents: 76595

diff changeset

7 ;; Maintainer: Jay Belanger <jay.p.belanger@gmail.com>

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

8

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

9 ;; This file is part of GNU Emacs.

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

10

94654

6c9af2bfcfee Switch to recommended form of GPLv3 permissions notice.

Glenn Morris <rgm@gnu.org>

parents: 93975

diff changeset

11 ;; GNU Emacs is free software: you can redistribute it and/or modify

76595

497d17a80bb8 Change form of license text to match rest of Emacs.

Glenn Morris <rgm@gnu.org>

parents: 75346

diff changeset

12 ;; it under the terms of the GNU General Public License as published by

94654

6c9af2bfcfee Switch to recommended form of GPLv3 permissions notice.

Glenn Morris <rgm@gnu.org>

parents: 93975

diff changeset

13 ;; the Free Software Foundation, either version 3 of the License, or

6c9af2bfcfee Switch to recommended form of GPLv3 permissions notice.

Glenn Morris <rgm@gnu.org>

parents: 93975

diff changeset

14 ;; (at your option) any later version.

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

15

76595

497d17a80bb8 Change form of license text to match rest of Emacs.

Glenn Morris <rgm@gnu.org>

parents: 75346

diff changeset

16 ;; GNU Emacs is distributed in the hope that it will be useful,

497d17a80bb8 Change form of license text to match rest of Emacs.

Glenn Morris <rgm@gnu.org>

parents: 75346

diff changeset

17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of

497d17a80bb8 Change form of license text to match rest of Emacs.

Glenn Morris <rgm@gnu.org>

parents: 75346

diff changeset

18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

497d17a80bb8 Change form of license text to match rest of Emacs.

Glenn Morris <rgm@gnu.org>

parents: 75346

diff changeset

19 ;; GNU General Public License for more details.

497d17a80bb8 Change form of license text to match rest of Emacs.

Glenn Morris <rgm@gnu.org>

parents: 75346

diff changeset

20

497d17a80bb8 Change form of license text to match rest of Emacs.

Glenn Morris <rgm@gnu.org>

parents: 75346

diff changeset

21 ;; You should have received a copy of the GNU General Public License

94654

6c9af2bfcfee Switch to recommended form of GPLv3 permissions notice.

Glenn Morris <rgm@gnu.org>

parents: 93975

diff changeset

22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

23

41271

fcd507927105 Change all toplevel `setq' forms to `defvar' forms, and move them

Colin Walters <walters@gnu.org>

parents: 41047

diff changeset

24 ;;; Commentary:

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

25

41271

fcd507927105 Change all toplevel `setq' forms to `defvar' forms, and move them

Colin Walters <walters@gnu.org>

parents: 41047

diff changeset

26 ;;; Code:

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

27

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

28 ;; This file is autoloaded from calc-ext.el.

58650

d0909149f67b Add a provide statement.

Jay Belanger <jay.p.belanger@gmail.com>

parents: 52401

diff changeset

29

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

30 (require 'calc-ext)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

31 (require 'calc-macs)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

32

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

33 (defun calc-argument (arg)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

34 (interactive "P")

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

35 (calc-slow-wrapper

41047

73f364fd8aaa Style cleanup; don't put closing parens on their

Colin Walters <walters@gnu.org>

parents: 40785

diff changeset

36 (calc-unary-op "arg" 'calcFunc-arg arg)))

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

37

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

38 (defun calc-re (arg)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

39 (interactive "P")

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

40 (calc-slow-wrapper

41047

73f364fd8aaa Style cleanup; don't put closing parens on their

Colin Walters <walters@gnu.org>

parents: 40785

diff changeset

41 (calc-unary-op "re" 'calcFunc-re arg)))

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

42

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

43 (defun calc-im (arg)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

44 (interactive "P")

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

45 (calc-slow-wrapper

41047

73f364fd8aaa Style cleanup; don't put closing parens on their

Colin Walters <walters@gnu.org>

parents: 40785

diff changeset

46 (calc-unary-op "im" 'calcFunc-im arg)))

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

47

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

48

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

49 (defun calc-polar ()

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

50 (interactive)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

51 (calc-slow-wrapper

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

52 (let ((arg (calc-top-n 1)))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

53 (if (or (calc-is-inverse)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

54 (eq (car-safe arg) 'polar))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

55 (calc-enter-result 1 "p-r" (list 'calcFunc-rect arg))

41047

73f364fd8aaa Style cleanup; don't put closing parens on their

Colin Walters <walters@gnu.org>

parents: 40785

diff changeset

56 (calc-enter-result 1 "r-p" (list 'calcFunc-polar arg))))))

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

57

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

58

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

59

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

60

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

61 (defun calc-complex-notation ()

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

62 (interactive)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

63 (calc-wrapper

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

64 (calc-change-mode 'calc-complex-format nil t)

41271

fcd507927105 Change all toplevel `setq' forms to `defvar' forms, and move them

Colin Walters <walters@gnu.org>

parents: 41047

diff changeset

65 (message "Displaying complex numbers in (X,Y) format")))

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

66

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

67 (defun calc-i-notation ()

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

68 (interactive)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

69 (calc-wrapper

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

70 (calc-change-mode 'calc-complex-format 'i t)

41271

fcd507927105 Change all toplevel `setq' forms to `defvar' forms, and move them

Colin Walters <walters@gnu.org>

parents: 41047

diff changeset

71 (message "Displaying complex numbers in X+Yi format")))

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

72

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

73 (defun calc-j-notation ()

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

74 (interactive)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

75 (calc-wrapper

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

76 (calc-change-mode 'calc-complex-format 'j t)

41271

fcd507927105 Change all toplevel `setq' forms to `defvar' forms, and move them

Colin Walters <walters@gnu.org>

parents: 41047

diff changeset

77 (message "Displaying complex numbers in X+Yj format")))

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

78

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

79

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

80 (defun calc-polar-mode (n)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

81 (interactive "P")

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

82 (calc-wrapper

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

83 (if (if n

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

84 (> (prefix-numeric-value n) 0)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

85 (eq calc-complex-mode 'cplx))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

86 (progn

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

87 (calc-change-mode 'calc-complex-mode 'polar)

41271

fcd507927105 Change all toplevel `setq' forms to `defvar' forms, and move them

Colin Walters <walters@gnu.org>

parents: 41047

diff changeset

88 (message "Preferred complex form is polar"))

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

89 (calc-change-mode 'calc-complex-mode 'cplx)

41271

fcd507927105 Change all toplevel `setq' forms to `defvar' forms, and move them

Colin Walters <walters@gnu.org>

parents: 41047

diff changeset

90 (message "Preferred complex form is rectangular"))))

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

91

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

92

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

93 ;;;; Complex numbers.

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

94

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

95 (defun math-normalize-polar (a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

96 (let ((r (math-normalize (nth 1 a)))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

97 (th (math-normalize (nth 2 a))))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

98 (cond ((math-zerop r)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

99 '(polar 0 0))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

100 ((or (math-zerop th))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

101 r)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

102 ((and (not (eq calc-angle-mode 'rad))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

103 (or (equal th '(float 18 1))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

104 (equal th 180)))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

105 (math-neg r))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

106 ((math-negp r)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

107 (math-neg (list 'polar (math-neg r) th)))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

108 (t

41047

73f364fd8aaa Style cleanup; don't put closing parens on their

Colin Walters <walters@gnu.org>

parents: 40785

diff changeset

109 (list 'polar r th)))))

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

110

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

111

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

112 ;;; Coerce A to be complex (rectangular form). [c N]

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

113 (defun math-complex (a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

114 (cond ((eq (car-safe a) 'cplx) a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

115 ((eq (car-safe a) 'polar)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

116 (if (math-zerop (nth 1 a))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

117 (nth 1 a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

118 (let ((sc (calcFunc-sincos (nth 2 a))))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

119 (list 'cplx

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

120 (math-mul (nth 1 a) (nth 1 sc))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

121 (math-mul (nth 1 a) (nth 2 sc))))))

41047

73f364fd8aaa Style cleanup; don't put closing parens on their

Colin Walters <walters@gnu.org>

parents: 40785

diff changeset

122 (t (list 'cplx a 0))))

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

123

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

124 ;;; Coerce A to be complex (polar form). [c N]

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

125 (defun math-polar (a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

126 (cond ((eq (car-safe a) 'polar) a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

127 ((math-zerop a) '(polar 0 0))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

128 (t

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

129 (list 'polar

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

130 (math-abs a)

41047

73f364fd8aaa Style cleanup; don't put closing parens on their

Colin Walters <walters@gnu.org>

parents: 40785

diff changeset

131 (calcFunc-arg a)))))

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

132

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

133 ;;; Multiply A by the imaginary constant i. [N N] [Public]

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

134 (defun math-imaginary (a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

135 (if (and (or (Math-objvecp a) (math-infinitep a))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

136 (not calc-symbolic-mode))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

137 (math-mul a

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

138 (if (or (eq (car-safe a) 'polar)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

139 (and (not (eq (car-safe a) 'cplx))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

140 (eq calc-complex-mode 'polar)))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

141 (list 'polar 1 (math-quarter-circle nil))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

142 '(cplx 0 1)))

41047

73f364fd8aaa Style cleanup; don't put closing parens on their

Colin Walters <walters@gnu.org>

parents: 40785

diff changeset

143 (math-mul a '(var i var-i))))

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

144

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

145

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

146

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

147

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

148 (defun math-want-polar (a b)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

149 (cond ((eq (car-safe a) 'polar)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

150 (if (eq (car-safe b) 'cplx)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

151 (eq calc-complex-mode 'polar)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

152 t))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

153 ((eq (car-safe a) 'cplx)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

154 (if (eq (car-safe b) 'polar)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

155 (eq calc-complex-mode 'polar)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

156 nil))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

157 ((eq (car-safe b) 'polar)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

158 t)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

159 ((eq (car-safe b) 'cplx)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

160 nil)

41047

73f364fd8aaa Style cleanup; don't put closing parens on their

Colin Walters <walters@gnu.org>

parents: 40785

diff changeset

161 (t (eq calc-complex-mode 'polar))))

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

162

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

163 ;;; Force A to be in the (-pi,pi] or (-180,180] range.

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

164 (defun math-fix-circular (a &optional dir) ; [R R]

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

165 (cond ((eq (car-safe a) 'hms)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

166 (cond ((and (Math-lessp 180 (nth 1 a)) (not (eq dir 1)))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

167 (math-fix-circular (math-add a '(float -36 1)) -1))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

168 ((or (Math-lessp -180 (nth 1 a)) (eq dir -1))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

169 a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

170 (t

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

171 (math-fix-circular (math-add a '(float 36 1)) 1))))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

172 ((eq calc-angle-mode 'rad)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

173 (cond ((and (Math-lessp (math-pi) a) (not (eq dir 1)))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

174 (math-fix-circular (math-sub a (math-two-pi)) -1))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

175 ((or (Math-lessp (math-neg (math-pi)) a) (eq dir -1))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

176 a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

177 (t

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

178 (math-fix-circular (math-add a (math-two-pi)) 1))))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

179 (t

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

180 (cond ((and (Math-lessp '(float 18 1) a) (not (eq dir 1)))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

181 (math-fix-circular (math-add a '(float -36 1)) -1))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

182 ((or (Math-lessp '(float -18 1) a) (eq dir -1))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

183 a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

184 (t

41047

73f364fd8aaa Style cleanup; don't put closing parens on their

Colin Walters <walters@gnu.org>

parents: 40785

diff changeset

185 (math-fix-circular (math-add a '(float 36 1)) 1))))))

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

186

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

187

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

188 ;;;; Complex numbers.

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

189

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

190 (defun calcFunc-polar (a) ; [C N] [Public]

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

191 (cond ((Math-vectorp a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

192 (math-map-vec 'calcFunc-polar a))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

193 ((Math-realp a) a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

194 ((Math-numberp a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

195 (math-normalize (math-polar a)))

41047

73f364fd8aaa Style cleanup; don't put closing parens on their

Colin Walters <walters@gnu.org>

parents: 40785

diff changeset

196 (t (list 'calcFunc-polar a))))

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

197

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

198 (defun calcFunc-rect (a) ; [N N] [Public]

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

199 (cond ((Math-vectorp a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

200 (math-map-vec 'calcFunc-rect a))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

201 ((Math-realp a) a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

202 ((Math-numberp a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

203 (math-normalize (math-complex a)))

41047

73f364fd8aaa Style cleanup; don't put closing parens on their

Colin Walters <walters@gnu.org>

parents: 40785

diff changeset

204 (t (list 'calcFunc-rect a))))

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

205

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

206 ;;; Compute the complex conjugate of A. [O O] [Public]

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

207 (defun calcFunc-conj (a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

208 (let (aa bb)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

209 (cond ((Math-realp a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

210 a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

211 ((eq (car a) 'cplx)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

212 (list 'cplx (nth 1 a) (math-neg (nth 2 a))))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

213 ((eq (car a) 'polar)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

214 (list 'polar (nth 1 a) (math-neg (nth 2 a))))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

215 ((eq (car a) 'vec)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

216 (math-map-vec 'calcFunc-conj a))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

217 ((eq (car a) 'calcFunc-conj)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

218 (nth 1 a))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

219 ((math-known-realp a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

220 a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

221 ((and (equal a '(var i var-i))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

222 (math-imaginary-i))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

223 (math-neg a))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

224 ((and (memq (car a) '(+ - * /))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

225 (progn

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

226 (setq aa (calcFunc-conj (nth 1 a))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

227 bb (calcFunc-conj (nth 2 a)))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

228 (or (not (eq (car-safe aa) 'calcFunc-conj))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

229 (not (eq (car-safe bb) 'calcFunc-conj)))))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

230 (if (eq (car a) '+)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

231 (math-add aa bb)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

232 (if (eq (car a) '-)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

233 (math-sub aa bb)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

234 (if (eq (car a) '*)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

235 (math-mul aa bb)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

236 (math-div aa bb)))))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

237 ((eq (car a) 'neg)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

238 (math-neg (calcFunc-conj (nth 1 a))))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

239 ((let ((inf (math-infinitep a)))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

240 (and inf

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

241 (math-mul (calcFunc-conj (math-infinite-dir a inf)) inf))))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

242 (t (calc-record-why 'numberp a)

41047

73f364fd8aaa Style cleanup; don't put closing parens on their

Colin Walters <walters@gnu.org>

parents: 40785

diff changeset

243 (list 'calcFunc-conj a)))))

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

244

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

245

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

246 ;;; Compute the complex argument of A. [F N] [Public]

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

247 (defun calcFunc-arg (a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

248 (cond ((Math-anglep a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

249 (if (math-negp a) (math-half-circle nil) 0))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

250 ((eq (car-safe a) 'cplx)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

251 (calcFunc-arctan2 (nth 2 a) (nth 1 a)))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

252 ((eq (car-safe a) 'polar)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

253 (nth 2 a))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

254 ((eq (car a) 'vec)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

255 (math-map-vec 'calcFunc-arg a))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

256 ((and (equal a '(var i var-i))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

257 (math-imaginary-i))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

258 (math-quarter-circle t))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

259 ((and (equal a '(neg (var i var-i)))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

260 (math-imaginary-i))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

261 (math-neg (math-quarter-circle t)))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

262 ((let ((signs (math-possible-signs a)))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

263 (or (and (memq signs '(2 4 6)) 0)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

264 (and (eq signs 1) (math-half-circle nil)))))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

265 ((math-infinitep a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

266 (if (or (equal a '(var uinf var-uinf))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

267 (equal a '(var nan var-nan)))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

268 '(var nan var-nan)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

269 (calcFunc-arg (math-infinite-dir a))))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

270 (t (calc-record-why 'numvecp a)

41047

73f364fd8aaa Style cleanup; don't put closing parens on their

Colin Walters <walters@gnu.org>

parents: 40785

diff changeset

271 (list 'calcFunc-arg a))))

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

272

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

273 (defun math-imaginary-i ()

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

274 (let ((val (calc-var-value 'var-i)))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

275 (or (eq (car-safe val) 'special-const)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

276 (equal val '(cplx 0 1))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

277 (and (eq (car-safe val) 'polar)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

278 (eq (nth 1 val) 0)

41047

73f364fd8aaa Style cleanup; don't put closing parens on their

Colin Walters <walters@gnu.org>

parents: 40785

diff changeset

279 (Math-equal (nth 1 val) (math-quarter-circle nil))))))

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

280

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

281 ;;; Extract the real or complex part of a complex number. [R N] [Public]

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

282 ;;; Also extracts the real part of a modulo form.

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

283 (defun calcFunc-re (a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

284 (let (aa bb)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

285 (cond ((Math-realp a) a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

286 ((memq (car a) '(mod cplx))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

287 (nth 1 a))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

288 ((eq (car a) 'polar)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

289 (math-mul (nth 1 a) (calcFunc-cos (nth 2 a))))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

290 ((eq (car a) 'vec)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

291 (math-map-vec 'calcFunc-re a))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

292 ((math-known-realp a) a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

293 ((eq (car a) 'calcFunc-conj)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

294 (calcFunc-re (nth 1 a)))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

295 ((and (equal a '(var i var-i))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

296 (math-imaginary-i))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

297 0)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

298 ((and (memq (car a) '(+ - *))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

299 (progn

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

300 (setq aa (calcFunc-re (nth 1 a))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

301 bb (calcFunc-re (nth 2 a)))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

302 (or (not (eq (car-safe aa) 'calcFunc-re))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

303 (not (eq (car-safe bb) 'calcFunc-re)))))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

304 (if (eq (car a) '+)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

305 (math-add aa bb)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

306 (if (eq (car a) '-)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

307 (math-sub aa bb)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

308 (math-sub (math-mul aa bb)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

309 (math-mul (calcFunc-im (nth 1 a))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

310 (calcFunc-im (nth 2 a)))))))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

311 ((and (eq (car a) '/)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

312 (math-known-realp (nth 2 a)))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

313 (math-div (calcFunc-re (nth 1 a)) (nth 2 a)))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

314 ((eq (car a) 'neg)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

315 (math-neg (calcFunc-re (nth 1 a))))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

316 (t (calc-record-why 'numberp a)

41047

73f364fd8aaa Style cleanup; don't put closing parens on their

Colin Walters <walters@gnu.org>

parents: 40785

diff changeset

317 (list 'calcFunc-re a)))))

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

318

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

319 (defun calcFunc-im (a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

320 (let (aa bb)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

321 (cond ((Math-realp a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

322 (if (math-floatp a) '(float 0 0) 0))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

323 ((eq (car a) 'cplx)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

324 (nth 2 a))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

325 ((eq (car a) 'polar)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

326 (math-mul (nth 1 a) (calcFunc-sin (nth 2 a))))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

327 ((eq (car a) 'vec)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

328 (math-map-vec 'calcFunc-im a))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

329 ((math-known-realp a)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

330 0)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

331 ((eq (car a) 'calcFunc-conj)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

332 (math-neg (calcFunc-im (nth 1 a))))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

333 ((and (equal a '(var i var-i))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

334 (math-imaginary-i))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

335 1)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

336 ((and (memq (car a) '(+ - *))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

337 (progn

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

338 (setq aa (calcFunc-im (nth 1 a))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

339 bb (calcFunc-im (nth 2 a)))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

340 (or (not (eq (car-safe aa) 'calcFunc-im))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

341 (not (eq (car-safe bb) 'calcFunc-im)))))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

342 (if (eq (car a) '+)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

343 (math-add aa bb)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

344 (if (eq (car a) '-)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

345 (math-sub aa bb)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

346 (math-add (math-mul (calcFunc-re (nth 1 a)) bb)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

347 (math-mul aa (calcFunc-re (nth 2 a)))))))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

348 ((and (eq (car a) '/)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

349 (math-known-realp (nth 2 a)))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

350 (math-div (calcFunc-im (nth 1 a)) (nth 2 a)))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

351 ((eq (car a) 'neg)

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

352 (math-neg (calcFunc-im (nth 1 a))))

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

353 (t (calc-record-why 'numberp a)

41047

73f364fd8aaa Style cleanup; don't put closing parens on their

Colin Walters <walters@gnu.org>

parents: 40785

diff changeset

354 (list 'calcFunc-im a)))))

40785

2fb9d407ae73 Initial import of Calc 2.02f.

Eli Zaretskii <eliz@gnu.org>

parents:

diff changeset

355

58650

d0909149f67b Add a provide statement.

Jay Belanger <jay.p.belanger@gmail.com>

parents: 52401

diff changeset

356 (provide 'calc-cplx)

d0909149f67b Add a provide statement.

Jay Belanger <jay.p.belanger@gmail.com>

parents: 52401

diff changeset

357

93975

1e3a407766b9 Fix up comment convention on the arch-tag lines.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 79702

diff changeset

358 ;; arch-tag: de73a331-941c-4507-ae76-46c76adc70dd

41047

73f364fd8aaa Style cleanup; don't put closing parens on their

Colin Walters <walters@gnu.org>

parents: 40785

diff changeset

359 ;;; calc-cplx.el ends here

Mercurial > emacs

annotate lisp/calc/calc-cplx.el @ 102549:f737bc68655e