Unit arctan

Classes

TCalculatePi -

Functions

Types

PTByte
TByte

Constants

LessValue
MaxValue
MinPlaces

Variables


Functions


Types


PTByte = ^TByte

TByte = array[1 .. ((MaxInt div sizeof(Byte)) - 1)] of Byte;
My initial design called for a base class TArbitraryPrecision that just took parameters (data, value, size). But I decided it would be faster if everything was in the one class as there would be less parameter passing required then. Of course thinking about it later the impact of the parameter passing would have been insignificant compared to the times taken to do the calculations. So perhaps I should have gone for the cleaner design?

Constants

LessValue = 100

MaxValue = 99

If you want you can set these back to 9, 10 and 1 to see the performance with only one digit per array entry.

MinPlaces = 2


Variables