home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / OOP / _SMALTAL.TAR / usr / lib / smalltalk / Number.st < prev    next >
Encoding:
Text File  |  1993-11-17  |  5.0 KB  |  278 lines
  1. "======================================================================
  2. |
  3. |   Number Method Definitions
  4. |
  5.  ======================================================================"
  6.  
  7.  
  8. "======================================================================
  9. |
  10. | Copyright (C) 1990, 1991 Free Software Foundation, Inc.
  11. | Written by Steve Byrne.
  12. |
  13. | This file is part of GNU Smalltalk.
  14. |
  15. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  16. | under the terms of the GNU General Public License as published by the Free
  17. | Software Foundation; either version 1, or (at your option) any later version.
  18. | 
  19. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  20. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  21. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  22. | details.
  23. | 
  24. | You should have received a copy of the GNU General Public License along with
  25. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  26. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  27. |
  28.  ======================================================================"
  29.  
  30.  
  31. "
  32. |     Change Log
  33. | ============================================================================
  34. | Author       Date       Change 
  35. | sbyrne     19 Sep 89      Converted to use real category strings.
  36. |
  37. | sbyrne     25 Apr 89      created.
  38. |
  39. "
  40.  
  41. Magnitude subclass: #Number
  42.       instanceVariableNames: ''
  43.       classVariableNames: ''
  44.       poolDictionaries: ''
  45.       category: nil.
  46.  
  47. Number comment: 
  48. 'I am an abstract class that provides operations on numbers, both floating
  49. point and integer.  I provide some generic predicates, and supply the 
  50. implicit type coercing code for binary operations.' !
  51.  
  52. !Number methodsFor: 'converting'!
  53.  
  54. degreesToRadians
  55.     ^self / 57.295779513082320876846364344191
  56. !
  57.  
  58. radiansToDegrees
  59.     ^self * 57.295779513082320876846364344191
  60. !
  61.  
  62. coerce: aNumber
  63.     self subclassResponsibility
  64. !
  65.  
  66. generality
  67.     self subclassResponsibility
  68. !
  69.  
  70. retry: aSymbol coercing: aNumber
  71.     | selfGen aNumGen |
  72.     aSymbol == #=
  73.         ifTrue: [ (aNumber isKindOf: Number) ifFalse: [ ^false ] ].
  74.     selfGen _ self generality.
  75.     aNumGen _ aNumber generality.
  76.     selfGen > aNumGen
  77.         ifTrue: [ ^self perform: aSymbol with: (self coerce: aNumber) ].
  78.     selfGen < aNumGen
  79.         ifTrue: [ ^(aNumber coerce: self) perform: aSymbol with: aNumber ].
  80.     self error: 'retry:coercing: called with arguments of the same generality' 
  81. !!
  82.  
  83.  
  84.  
  85. !Number methodsFor: 'arithmetic'!
  86.  
  87. + aNumber
  88.     self subclassResponsibility
  89. !
  90.  
  91. - aNumber
  92.     self subclassResponsibility
  93. !
  94.  
  95. * aNumber
  96.     self subclassResponsibility
  97. !
  98.  
  99. / aNumber
  100.     self subclassResponsibility
  101. !
  102.  
  103. // aNumber
  104.     self subclassResponsibility
  105. !
  106.  
  107. \\ aNumber
  108.     self subclassResponsibility
  109. !
  110.  
  111. quo: aNumber
  112.     "Return the integer quotient of dividing the receiver by aNumber with
  113.     truncation towards zero."
  114.     ^(self / aNumber) truncated
  115. !
  116.  
  117. rem: aNumber
  118.     "Return the integer remainder of dividing the receiver by aNumber with
  119.     truncation towards zero."
  120.     ^(self - ((self / aNumber) truncated * aNumber)) truncated
  121. !!
  122.  
  123.  
  124.  
  125. !Number methodsFor: 'truncation and round off'!
  126.  
  127. truncated
  128.     ^self subclassResponsibility
  129. !
  130.  
  131. truncateTo: aNumber
  132.     ^(self / aNumber) truncated * aNumber
  133. !
  134.  
  135. rounded
  136.     "Returns the integer nearest the receiver"
  137.     ^(self + 0.5) truncated
  138. !
  139.  
  140. roundTo: aNumber
  141.     ^(self / aNumber) rounded * aNumber
  142. !!
  143.  
  144.  
  145.  
  146. !Number methodsFor: 'testing'!
  147. negative
  148.     ^self < 0
  149. !
  150.  
  151. positive
  152.     ^self >= 0
  153. !
  154.  
  155. strictlyPositive
  156.     ^self > 0
  157. !
  158.  
  159. sign
  160.     "Returns the sign of the receiver."
  161.     self < 0 ifTrue: [ ^-1 ].
  162.     self > 0 ifTrue: [ ^1 ].
  163.     ^0
  164. !
  165.  
  166. even
  167.     "Returns true if self is divisible by 2"
  168.     ^self truncated even
  169. !
  170.  
  171. odd
  172.     "Returns true if self is not divisible by 2"
  173.     ^self truncated odd
  174. !!
  175.  
  176.  
  177.  
  178. !Number methodsFor: 'misc math'!
  179.  
  180. squared
  181.     ^self * self
  182. !
  183.  
  184. abs
  185.     self > 0 ifTrue: [ ^self ] ifFalse: [ ^self negated ]
  186. !
  187.  
  188. negated
  189.     ^0 - self
  190. !
  191.  
  192. sin
  193.     ^self asFloat sin
  194. !
  195.  
  196. cos
  197.     ^self asFloat cos
  198. !
  199.  
  200. tan
  201.     ^self asFloat tan
  202. !
  203.  
  204. arcSin
  205.     ^self asFloat arcSin
  206. !
  207.  
  208. arcCos
  209.     ^self asFloat arcCos
  210. !
  211.  
  212. arcTan
  213.     ^self asFloat arcTan
  214. !
  215.  
  216. sqrt
  217.     ^self asFloat sqrt
  218. !
  219.  
  220. exp
  221.     ^self asFloat exp
  222. !
  223.  
  224. ln
  225.     ^self asFloat ln
  226. !
  227.  
  228. log: aNumber
  229.     "return log base aNumber of the receiver"
  230.     ^self ln / aNumber ln
  231. !
  232.  
  233. floorLog: radix
  234.     ^(self log: radix) floor
  235. !
  236.  
  237. raisedToInteger: anInteger
  238.     "Return self raised to anInteger power"
  239.     | result |
  240.     result _ self coerce: 1.
  241.     anInteger timesRepeat: [ result _ result * self ].
  242.     ^result
  243. !!
  244.  
  245.  
  246.  
  247. !Number methodsFor: 'Interval iterators'!
  248.  
  249. to: stop
  250.     ^Interval from: self to: stop
  251. !
  252.  
  253. to: stop by: step
  254.     ^Interval from: self to: stop by: step
  255. !
  256.  
  257. to: stop by: step do: aBlock
  258.     | i |
  259.     i _ self.
  260.     step > 0
  261.         ifTrue: [
  262.             [ i <= stop ]
  263.             whileTrue: [ aBlock value: i.
  264.                      i _ i + step ]
  265.         ]
  266.     ifFalse: [
  267.             [ i >= stop ]
  268.             whileTrue: [ aBlock value: i.
  269.                      i _ i + step ]
  270.     ]
  271.     " ??? What's the return value? "
  272. !
  273.  
  274. to: stop do: aBlock
  275.     ^self to: stop by: 1 do: aBlock
  276. !!
  277.  
  278.