Packages May 2012

packages@lists.squeakfoundation.org

1 participants
138 discussions

The Trunk: Kernel-nice.689.mcz
by commits＠source.squeak.org 16 May '12

16 May '12

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.689.mcz ==================== Summary ==================== Name: Kernel-nice.689 Author: nice Time: 16 May 2012, 9:32:53.987 pm UUID: 06728744-bdfb-4e41-aa4c-39da40f860a4 Ancestors: Kernel-nice.688 Let #floorLog: be exact in the base used by underlying Float implementation (currently 2 is hardcoded because Float class>>base was not implemented). In other cases, warn about possible rounding errors. =============== Diff against Kernel-nice.688 =============== Item was changed: ----- Method: Float>>floorLog: (in category 'mathematical functions') ----- floorLog: radix + "Answer the floor of the log base radix of the receiver. + The result may be off by one due to rounding errors, except in base 2." - "Answer the floor of the log base radix of the receiver." + (radix = 2 and: [self > 0.0]) ifTrue: [^self exponent]. ^ (self log: radix) floor !

1 0

The Trunk: Kernel-nice.689.mcz
by commits＠source.squeak.org 16 May '12

16 May '12

1 0

The Trunk: Kernel-nice.689.mcz
by commits＠source.squeak.org 16 May '12

16 May '12

1 0

The Trunk: KernelTests-nice.219.mcz
by commits＠source.squeak.org 16 May '12

16 May '12

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.219.mcz ==================== Summary ==================== Name: KernelTests-nice.219 Author: nice Time: 16 May 2012, 9:24:45.781 pm UUID: 45b90705-6f5f-4f0c-add8-6783781f3822 Ancestors: KernelTests-nice.218 Add a test to demonstrate that despite being internally represented in base 2, a Float cannot compute floorLog: 2 exactly if it only rely on inexact log: implementation. Indeed, an error on math functions values up to 3 ulp is compliant with IEEE 754 floating point standard. =============== Diff against KernelTests-nice.218 =============== Item was changed: + ----- Method: FloatTest>>testArCosh (in category 'tests - mathematical functions') ----- - ----- Method: FloatTest>>testArCosh (in category 'test - mathematical functions') ----- testArCosh self assert: 1.0 arCosh = 0.0. self deny: Float infinity arCosh isFinite. self assert: (2.5 arCosh cosh closeTo: 2.5).! Item was changed: + ----- Method: FloatTest>>testArSinh (in category 'tests - mathematical functions') ----- - ----- Method: FloatTest>>testArSinh (in category 'test - mathematical functions') ----- testArSinh self assert: 0.0 arSinh = 0.0. self assert: Float negativeZero arSinh = 0.0. self assert: Float negativeZero arSinh sign = -1. self deny: Float infinity arSinh isFinite. self assert: (0.5 arSinh negated closeTo: 0.5 negated arSinh). self assert: (0.5 arSinh sinh closeTo: 0.5). self assert: (-2.5 arSinh sinh closeTo: -2.5).! Item was changed: + ----- Method: FloatTest>>testArTanh (in category 'tests - mathematical functions') ----- - ----- Method: FloatTest>>testArTanh (in category 'test - mathematical functions') ----- testArTanh self assert: 0.0 arTanh = 0.0. self assert: Float negativeZero arTanh = 0.0. self assert: Float negativeZero arTanh sign = -1. self deny: 1 arTanh isFinite. self assert: (0.5 arTanh negated closeTo: 0.5 negated arTanh). self assert: (0.5 arTanh tanh closeTo: 0.5). self assert: (-0.5 arTanh tanh closeTo: -0.5).! Item was changed: + ----- Method: FloatTest>>testCosh (in category 'tests - mathematical functions') ----- - ----- Method: FloatTest>>testCosh (in category 'test - mathematical functions') ----- testCosh self assert: (0.0 cosh closeTo: 1). self deny: Float infinity cosh isFinite. self assert: (2.0 cosh squared - 2.0 sinh squared closeTo: 1). self assert: (2.0 cosh closeTo: 2.0 negated cosh).! Item was changed: + ----- Method: FloatTest>>testDegreeCos (in category 'tests - mathematical functions') ----- - ----- Method: FloatTest>>testDegreeCos (in category 'test - mathematical functions') ----- testDegreeCos self shouldnt: [ 45.0 degreeCos] raise: Error. "Following tests use approximate equality, because cosine are generally evaluated using inexact Floating point arithmetic" self assert: (45.0 degreeCos squared - 0.5) abs <= Float epsilon. self assert: (60.0 degreeCos - 0.5) abs <= Float epsilon. self assert: (120.0 degreeCos + 0.5) abs <= Float epsilon. -360.0 to: 360.0 do: [:i | self assert: (i degreeCos closeTo: i degreesToRadians cos)]. "Following tests use strict equality which is a requested property of degreeCos" -10.0 to: 10.0 do: [:k | self assert: (k*360 + 90) degreeCos = 0. self assert: (k*360 - 90) degreeCos = 0. self assert: (k*360 + 180) degreeCos + 1 = 0. self assert: (k*360) degreeCos - 1 = 0.].! Item was changed: + ----- Method: FloatTest>>testDegreeCosForExceptionalValues (in category 'tests - mathematical functions') ----- - ----- Method: FloatTest>>testDegreeCosForExceptionalValues (in category 'test - mathematical functions') ----- testDegreeCosForExceptionalValues self assert: Float nan degreeCos isNaN. self assert: Float infinity degreeCos isNaN. self assert: Float infinity negated degreeCos isNaN.! Item was changed: + ----- Method: FloatTest>>testDegreeSin (in category 'tests - mathematical functions') ----- - ----- Method: FloatTest>>testDegreeSin (in category 'test - mathematical functions') ----- testDegreeSin self shouldnt: [ 45.0 degreeSin] raise: Error. "Following tests use approximate equality, because sine are generally evaluated using inexact Floating point arithmetic" self assert: (45.0 degreeSin squared - 0.5) abs <= Float epsilon. self assert: (30.0 degreeSin - 0.5) abs <= Float epsilon. self assert: (-30.0 degreeSin + 0.5) abs <= Float epsilon. -360.0 to: 360.0 do: [:i | self assert: (i degreeSin closeTo: i degreesToRadians sin)]. "Following tests use strict equality which is a requested property of degreeSin" -10.0 to: 10.0 do: [:k | self assert: (k*360 + 90) degreeSin - 1 = 0. self assert: (k*360 - 90) degreeSin + 1= 0. self assert: (k*360 + 180) degreeSin = 0. self assert: (k*360) degreeSin = 0.].! Item was changed: + ----- Method: FloatTest>>testDegreeSinForExceptionalValues (in category 'tests - mathematical functions') ----- - ----- Method: FloatTest>>testDegreeSinForExceptionalValues (in category 'test - mathematical functions') ----- testDegreeSinForExceptionalValues self assert: Float nan degreeSin isNaN. self assert: Float infinity degreeSin isNaN. self assert: Float infinity negated degreeSin isNaN.! Item was added: + ----- Method: FloatTest>>testFloorLog2 (in category 'tests - mathematical functions') ----- + testFloorLog2 + "Float internal representation of Float being in base 2, we expect (aFloat floorLog: 2) to be exact." + + | aBitLess aBitMore | + aBitMore := 1 + Float epsilon. + aBitLess := 1 - Float epsilon. + Float emin + 1 to: Float emax - 1 do: [:exp | + | exactPowerOfTwo | + exactPowerOfTwo := 1.0 timesTwoPower: exp. + self assert: (exactPowerOfTwo floorLog: 2) equals: exp. + self assert: (exactPowerOfTwo * aBitMore floorLog: 2) equals: exp. + self assert: (exactPowerOfTwo * aBitLess floorLog: 2) equals: exp - 1].! Item was changed: + ----- Method: FloatTest>>testSinh (in category 'tests - mathematical functions') ----- - ----- Method: FloatTest>>testSinh (in category 'test - mathematical functions') ----- testSinh self assert: 0.0 sinh = 0.0. self assert: Float negativeZero sinh = 0.0. self assert: Float negativeZero sinh sign = -1. self deny: Float infinity sinh isFinite. self assert: (2.0 cosh squared - 2.0 sinh squared closeTo: 1). self assert: (2.0 sinh negated closeTo: 2.0 negated sinh).! Item was changed: + ----- Method: FloatTest>>testTanh (in category 'tests - mathematical functions') ----- - ----- Method: FloatTest>>testTanh (in category 'test - mathematical functions') ----- testTanh self assert: 0.0 tanh = 0.0. self assert: Float negativeZero tanh = 0.0. self assert: Float negativeZero tanh sign = -1. self assert: (Float infinity tanh closeTo: 1). self assert: (2.0 cosh squared - 2.0 sinh squared closeTo: 1). self assert: (2.0 tanh negated closeTo: 2.0 negated tanh).!

1 0

The Trunk: KernelTests-nice.219.mcz
by commits＠source.squeak.org 16 May '12

16 May '12

1 0

The Trunk: KernelTests-nice.219.mcz
by commits＠source.squeak.org 16 May '12

16 May '12

1 0

The Trunk: Graphics-bf.193.mcz
by commits＠source.squeak.org 16 May '12

16 May '12

Bert Freudenberg uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-bf.193.mcz ==================== Summary ==================== Name: Graphics-bf.193 Author: bf Time: 16 May 2012, 6:53:27.508 pm UUID: bf545fb0-10bc-4960-b255-cdd1fdb2e27b Ancestors: Graphics-nice.192 Fix Color printing to show at most 3 decimal places =============== Diff against Graphics-nice.192 =============== Item was changed: ----- Method: Color>>shortPrintString (in category 'printing') ----- shortPrintString "Return a short (but less precise) print string for use where space is tight." + ^String streamContents: [:s | s + nextPutAll: '('; + print: self class; + nextPutAll: ' r: '; print: self red maxDecimalPlaces: 2; + nextPutAll: ' g: '; print: self green maxDecimalPlaces: 2; + nextPutAll: ' b: '; print: self blue maxDecimalPlaces: 2; + nextPutAll: ')']! - | s | - s := WriteStream on: ''. - s - nextPutAll: '(' , self class name; - nextPutAll: ' r: '; - nextPutAll: (self red roundTo: 0.01) printString; - nextPutAll: ' g: '; - nextPutAll: (self green roundTo: 0.01) printString; - nextPutAll: ' b: '; - nextPutAll: (self blue roundTo: 0.01) printString; - nextPutAll: ')'. - ^ s contents - ! Item was changed: ----- Method: Color>>storeArrayValuesOn: (in category 'printing') ----- storeArrayValuesOn: aStream + aStream + print: self red maxDecimalPlaces: 3; + space; + print: self green maxDecimalPlaces: 3; + space; + print: self blue maxDecimalPlaces: 3. - (self red roundTo: 0.001) storeOn: aStream. - aStream space. - (self green roundTo: 0.001) storeOn: aStream. - aStream space. - (self blue roundTo: 0.001) storeOn: aStream. - ! Item was changed: ----- Method: Color>>storeOn: (in category 'printing') ----- storeOn: aStream aStream nextPutAll: '(' , self species name; + nextPutAll: ' r: '; print: self red maxDecimalPlaces: 3; + nextPutAll: ' g: '; print: self green maxDecimalPlaces: 3; + nextPutAll: ' b: '; print: self blue maxDecimalPlaces: 3; - nextPutAll: ' r: '; print: (self red roundTo: 0.001); - nextPutAll: ' g: '; print: (self green roundTo: 0.001); - nextPutAll: ' b: '; print: (self blue roundTo: 0.001); nextPutAll: ')'. ! Item was changed: ----- Method: TranslucentColor>>storeOn: (in category 'printing') ----- storeOn: aStream self isTransparent ifTrue: [^ aStream nextPutAll: '(Color transparent)']. super storeOn: aStream. aStream skip: -1; "get rid of trailing )" nextPutAll: ' alpha: '; + print: self alpha maxDecimalPlaces: 3; - print: (self alpha roundTo: 0.001); nextPutAll: ')'. !

1 0

The Trunk: Graphics-bf.193.mcz
by commits＠source.squeak.org 16 May '12

16 May '12

1 0

The Trunk: Graphics-bf.193.mcz
by commits＠source.squeak.org 16 May '12

16 May '12

1 0

The Trunk: Collections-bf.475.mcz
by commits＠source.squeak.org 16 May '12

16 May '12

Bert Freudenberg uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-bf.475.mcz ==================== Summary ==================== Name: Collections-bf.475 Author: bf Time: 16 May 2012, 6:50:58.033 pm UUID: 6e9e82af-76de-45e9-8e1a-67229e47f36f Ancestors: Collections-cmm.474 Add Stream>>print:maxDecimalPlaces: =============== Diff against Collections-cmm.474 =============== Item was added: + ----- Method: Stream>>print:maxDecimalPlaces: (in category 'printing') ----- + print: anObject maxDecimalPlaces: placesDesired + "Have anObject print itself on the receiver, with at most the given number of decimal places desired." + + anObject printOn: self maxDecimalPlaces: placesDesired!

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
14
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages May 2012