This is a new site that's currently running on alpha code. There are going to be bugs. If you discover any, please report them on the site's issues page (GitHub account required). Thanks.
Warning: Many URLs are going to change. Refer to the README file to discover which library project's documentation has been completed.
Project: Fractions
Unit: DelphiDabbler.Lib.Fractions
Record: TFraction
Applies to: ~>0.1
function Simplify(const CommonFactor: Int64): TFraction; overload;
function Simplify: TFraction; overload;
These overloaded methods are used to simplify or reduce the fraction instance to which they relate. The result is returned as a new TFraction instance.
If CommonFactor is specified it the fraction is reduced by the value of this parameter. CommonFactor must be non zero and be a valid common factor of the fraction. Reducing by a negative common factor has the same effect as the equivalent positive value.
You can check if a value is a valid common factor using the HasCommonFactor method.
When CommonFactor is omitted then the fraction is reduced to its lowest terms. In this case the common factor is the greatest common divisor of the numerator and denominator.
The original fraction and its simplification are equivalent.
var
F, G: TFraction;
begin
F := TFraction.Create(24, 32);
G := F.Simplify(2);
Assert((G.Numerator = 12) and (G.Denominator = 16));
Assert(F = G); // fraction and simplification are equivalent
F := TFraction.Create(-24, 32);
G := F.Simplify(-2);
Assert((G.Numerator = -12) and (G.Denominator = 16));
Assert(F = G);
F := TFraction.Create(12, 15);
G := F.Simplify; // GCD = 3
Assert((G.Numerator = 4) and (G.Denominator = 5));
Assert(F = G);
F := TFraction.Create(11, 12);
G := F.Simplify; // already in lowest terms (GCD = 1)
Assert((G.Numerator = 11) and (G.Denominator = 12));
Assert(F = G);
end;