1 |
;; Calculator for GNU Emacs, part II [calc-cplx.el] |
;;; calc-cplx.el --- Complex number functions for Calc |
2 |
|
|
3 |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
4 |
;; Written by Dave Gillespie, daveg@synaptics.com. |
|
5 |
|
;; Author: David Gillespie <daveg@synaptics.com> |
6 |
|
;; Maintainer: Colin Walters <walters@debian.org> |
7 |
|
|
8 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
9 |
|
|
22 |
;; file named COPYING. Among other things, the copyright notice |
;; file named COPYING. Among other things, the copyright notice |
23 |
;; and this notice must be preserved on all copies. |
;; and this notice must be preserved on all copies. |
24 |
|
|
25 |
|
;;; Commentary: |
26 |
|
|
27 |
|
;;; Code: |
28 |
|
|
29 |
;; This file is autoloaded from calc-ext.el. |
;; This file is autoloaded from calc-ext.el. |
30 |
(require 'calc-ext) |
(require 'calc-ext) |
66 |
(interactive) |
(interactive) |
67 |
(calc-wrapper |
(calc-wrapper |
68 |
(calc-change-mode 'calc-complex-format nil t) |
(calc-change-mode 'calc-complex-format nil t) |
69 |
(message "Displaying complex numbers in (X,Y) format."))) |
(message "Displaying complex numbers in (X,Y) format"))) |
70 |
|
|
71 |
(defun calc-i-notation () |
(defun calc-i-notation () |
72 |
(interactive) |
(interactive) |
73 |
(calc-wrapper |
(calc-wrapper |
74 |
(calc-change-mode 'calc-complex-format 'i t) |
(calc-change-mode 'calc-complex-format 'i t) |
75 |
(message "Displaying complex numbers in X+Yi format."))) |
(message "Displaying complex numbers in X+Yi format"))) |
76 |
|
|
77 |
(defun calc-j-notation () |
(defun calc-j-notation () |
78 |
(interactive) |
(interactive) |
79 |
(calc-wrapper |
(calc-wrapper |
80 |
(calc-change-mode 'calc-complex-format 'j t) |
(calc-change-mode 'calc-complex-format 'j t) |
81 |
(message "Displaying complex numbers in X+Yj format."))) |
(message "Displaying complex numbers in X+Yj format"))) |
82 |
|
|
83 |
|
|
84 |
(defun calc-polar-mode (n) |
(defun calc-polar-mode (n) |
89 |
(eq calc-complex-mode 'cplx)) |
(eq calc-complex-mode 'cplx)) |
90 |
(progn |
(progn |
91 |
(calc-change-mode 'calc-complex-mode 'polar) |
(calc-change-mode 'calc-complex-mode 'polar) |
92 |
(message "Preferred complex form is polar.")) |
(message "Preferred complex form is polar")) |
93 |
(calc-change-mode 'calc-complex-mode 'cplx) |
(calc-change-mode 'calc-complex-mode 'cplx) |
94 |
(message "Preferred complex form is rectangular.")))) |
(message "Preferred complex form is rectangular")))) |
95 |
|
|
96 |
|
|
97 |
;;;; Complex numbers. |
;;;; Complex numbers. |