Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1461.mcz
==================== Summary ====================
Name: Kernel-nice.1461 Author: nice Time: 26 April 2022, 11:22:41.16552 am UUID: 45d507fb-8cd8-164a-94a7-66d354f4aeaa Ancestors: Kernel-nice.1460
Provide a more robust version of Complex divideSecureBy:, at least passing the new tests.
=============== Diff against Kernel-nice.1460 ===============
Item was changed: ----- Method: Complex>>divideSecureBy: (in category 'arithmetic') ----- divideSecureBy: anObject "Answer the result of dividing receiver by aNumber" " Both operands are scaled to avoid arithmetic overflow. This algorithm works for a wide range of values, but it requires six divisions. #divideFastAndSecureBy: is also quite good, but it uses only 3 divisions. + Note: #reciprocal uses #/ for division" - Note: #reciprocal uses #/ for devision" | s ars ais brs bis newReal newImaginary | anObject isComplex ifTrue: + [s := anObject real abs max: anObject imaginary abs. - [s := anObject real abs + anObject imaginary abs. ars := self real / s. ais := self imaginary / s. brs := anObject real / s. bis := anObject imaginary / s. s := brs squared + bis squared. + brs := brs / s. + bis := bis / s. + newReal := ars*brs + (ais*bis). + newImaginary := ais*brs - (ars*bis). - newReal := ars*brs + (ais*bis) /s. - newImaginary := ais*brs - (ars*bis)/s. ^ Complex real: newReal imaginary: newImaginary]. ^ anObject adaptToComplex: self andSend: #/.!