|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 1259 (0x4eb)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─⟦d65440be7⟧ »DATA«
└─⟦this⟧
package body Complex is
procedure Create (Real, Imag : in Integer;
A_Complex : out Complex.Object) is
begin
A_Complex.Re_Part := Real;
A_Complex.Im_Part := Imag;
end Create;
procedure Copy (From : in Complex.Object; To : out Complex.Object) is
begin
To := From;
end Copy;
function "+" (Left, Right : in Complex.Object) return Complex.Object is
begin
return (Left.Re_Part + Right.Re_Part, Left.Im_Part + Right.Im_Part);
end "+";
function "-" (Left, Right : in Complex.Object) return Complex.Object is
begin
return (Left.Re_Part - Right.Re_Part, Left.Im_Part - Right.Im_Part);
end "-";
function "*" (Left, Right : in Complex.Object) return Complex.Object is
begin
return ((Left.Re_Part * Right.Re_Part) - (Left.Im_Part * Right.Im_Part),
(Left.Re_Part * Right.Im_Part) +
(Left.Im_Part * Right.Re_Part));
end "*";
function Get_Im_Part (From : in Complex.Object) return Integer is
begin
return From.Im_Part;
end Get_Im_Part;
function Get_Re_Part (From : in Complex.Object) return Integer is
begin
return From.Re_Part;
end Get_Re_Part;
end Complex;