/[emacs]/emacs/lisp/calc/calc-cplx.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-cplx.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by walters, Wed Nov 14 09:02:37 2001 UTC revision 1.3 by walters, Mon Nov 19 07:32:33 2001 UTC
# Line 1  Line 1 
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    
# Line 19  Line 22 
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)
# Line 61  Line 66 
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)
# Line 84  Line 89 
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.

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26