Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
package-definitions fixed/updated
authorClaus Gittinger <cg@exept.de>
Thu, 02 Mar 2000 15:14:57 +0100
changeset 5287 b3b0d0e3ce98
parent 5286 4ab4d9d0c2b5
child 5288 34962a6e056b
package-definitions fixed/updated
Complex.st file | annotate | diff | comparison | revisions
Infinity.st file | annotate | diff | comparison | revisions 
--- a/Complex.st	Thu Mar 02 14:30:49 2000 +0100
+++ b/Complex.st	Thu Mar 02 15:14:57 2000 +0100
@@ -1,17 +1,19 @@
+"{ Package: 'stx:goodies' }"
+
 "
  This is a Manchester Goodie.  It is distributed freely on condition
  that you observe these conditions in respect of the whole Goodie, and on
  any significant part of it which is separately transmitted or stored:
-        * You must ensure that every copy includes this notice, and that
-          source and author(s) of the material are acknowledged.
-        * These conditions must be imposed on anyone who receives a copy.
-        * The material shall not be used for commercial gain without the prior
-          written consent of the author(s).
+	* You must ensure that every copy includes this notice, and that
+	  source and author(s) of the material are acknowledged.
+	* These conditions must be imposed on anyone who receives a copy.
+	* The material shall not be used for commercial gain without the prior
+	  written consent of the author(s).
 
  For more information about the Manchester Goodies Library (from which 
  this file was distributed) send e-mail:
-        To: goodies-lib@cs.man.ac.uk
-        Subject: help 
+	To: goodies-lib@cs.man.ac.uk
+	Subject: help 
 
  This is an additional goody-class, which is NOT covered by the
  ST/X license. It has been packaged with the ST/X distribution to
@@ -32,16 +34,16 @@
  This is a Manchester Goodie.  It is distributed freely on condition
  that you observe these conditions in respect of the whole Goodie, and on
  any significant part of it which is separately transmitted or stored:
-        * You must ensure that every copy includes this notice, and that
-          source and author(s) of the material are acknowledged.
-        * These conditions must be imposed on anyone who receives a copy.
-        * The material shall not be used for commercial gain without the prior
-          written consent of the author(s).
+	* You must ensure that every copy includes this notice, and that
+	  source and author(s) of the material are acknowledged.
+	* These conditions must be imposed on anyone who receives a copy.
+	* The material shall not be used for commercial gain without the prior
+	  written consent of the author(s).
 
  For more information about the Manchester Goodies Library (from which 
  this file was distributed) send e-mail:
-        To: goodies-lib@cs.man.ac.uk
-        Subject: help 
+	To: goodies-lib@cs.man.ac.uk
+	Subject: help 
 
  This is an additional goody-class, which is NOT covered by the
  ST/X license. It has been packaged with the ST/X distribution to
@@ -61,7 +63,7 @@
 Instance variables:
     real        <Number> the part of the number which can be expressed as a Real number
     imaginary   <Number> the part of the number which, in terms of how the number behaves,
-                         has been multiplied by 'i' (-1 sqrt)
+			 has been multiplied by 'i' (-1 sqrt)
 
 Author: Kurt Hebel (hebel@uinova.cerl.uiuc.edu)
 "
@@ -136,70 +138,70 @@
 !Complex methodsFor:'arithmetic'!
 
 * aNumber 
-        "Return the product of the receiver and the argument."
+	"Return the product of the receiver and the argument."
 
-        | u v r i |
+	| u v r i |
 
-        aNumber isComplex ifTrue:[
-            u := aNumber real.
-            v := aNumber imaginary.
-            r := (real * u) - (imaginary * v).
-            i  := (real * v) + (imaginary * u).
-            i = 0 ifTrue:[ ^ r ].
-            ^ Complex real:r imaginary:i
-        ].
-        ^ self retry: #* coercing: aNumber
+	aNumber isComplex ifTrue:[
+	    u := aNumber real.
+	    v := aNumber imaginary.
+	    r := (real * u) - (imaginary * v).
+	    i  := (real * v) + (imaginary * u).
+	    i = 0 ifTrue:[ ^ r ].
+	    ^ Complex real:r imaginary:i
+	].
+	^ self retry: #* coercing: aNumber
 
     "Modified: / 8.7.1998 / 12:12:37 / cg"
 !
 
 + aNumber 
-        "Return the sum of the receiver and the argument."
+	"Return the sum of the receiver and the argument."
 
-        | r i |
+	| r i |
 
-        aNumber isComplex ifTrue: [
-            r := aNumber real + real.
-            i := aNumber imaginary + imaginary.
-            i = 0 ifTrue:[ ^ r ].
-            ^ Complex real:r imaginary:i
-        ].
-        ^ self retry: #+ coercing: aNumber
+	aNumber isComplex ifTrue: [
+	    r := aNumber real + real.
+	    i := aNumber imaginary + imaginary.
+	    i = 0 ifTrue:[ ^ r ].
+	    ^ Complex real:r imaginary:i
+	].
+	^ self retry: #+ coercing: aNumber
 
     "Modified: / 8.7.1998 / 12:15:42 / cg"
 !
 
 - aNumber
-        "Return the difference of the receiver and the argument."
+	"Return the difference of the receiver and the argument."
 
-        | r i |
+	| r i |
 
-        aNumber isComplex ifTrue: [
-            r := real - aNumber real.
-            i := imaginary - aNumber imaginary.
-            i = 0 ifTrue:[ ^ r ].
-            ^ Complex real:r imaginary:i.
-        ].
-        ^ self retry: #- coercing: aNumber
+	aNumber isComplex ifTrue: [
+	    r := real - aNumber real.
+	    i := imaginary - aNumber imaginary.
+	    i = 0 ifTrue:[ ^ r ].
+	    ^ Complex real:r imaginary:i.
+	].
+	^ self retry: #- coercing: aNumber
 
     "Modified: / 8.7.1998 / 12:15:38 / cg"
 !
 
 / aNumber 
-        "Return the quotient of the receiver and the argument."
+	"Return the quotient of the receiver and the argument."
 
-        | denom u v r i |
+	| denom u v r i |
 
-        aNumber isComplex ifTrue:[ 
-            u := aNumber real.
-            v := aNumber imaginary.
-            denom := u * u + (v * v).
-            r := u * real + (v * imaginary) / denom.
-            i := u * imaginary - (v * real) / denom.
-            i = 0 ifTrue:[ ^ r ].
-            ^ Complex real:r imaginary:i
-        ].
-        ^ self retry: #/ coercing: aNumber
+	aNumber isComplex ifTrue:[ 
+	    u := aNumber real.
+	    v := aNumber imaginary.
+	    denom := u * u + (v * v).
+	    r := u * real + (v * imaginary) / denom.
+	    i := u * imaginary - (v * real) / denom.
+	    i = 0 ifTrue:[ ^ r ].
+	    ^ Complex real:r imaginary:i
+	].
+	^ self retry: #/ coercing: aNumber
 
     "Modified: / 8.7.1998 / 12:15:34 / cg"
 !
@@ -429,5 +431,5 @@
 !Complex class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Complex.st,v 1.4 1998-07-09 08:25:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Complex.st,v 1.5 2000-03-02 14:14:56 cg Exp $'
 ! !
--- a/Infinity.st	Thu Mar 02 14:30:49 2000 +0100
+++ b/Infinity.st	Thu Mar 02 15:14:57 2000 +0100
@@ -1,4 +1,4 @@
-"{ Package: 'goodies/Numeric-Infinite' }"
+"{ Package: 'stx:goodies' }"
 
 "       NAME            infinity
 	AUTHOR          manchester
hg/stx-libbasic