|
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: 1240 (0x4d8)
Types: TextFile
Names: »B«
└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
└─⟦5cb1d1d7f⟧ »DATA«
└─⟦3b1ee7bd8⟧
└─⟦this⟧
with Base_Ten;
package body Halstead_Potential_Program_Volume is
procedure Of_Task (V_Entry_Total : in Result;
Number_Of_Entries : in Natural;
V_Star : out Result) is
begin
-- Of_Task
V_Star := V_Entry_Total / Result (Number_Of_Entries);
exception
-- to be changed after the demo
when others =>
V_Star := 0.0;
end Of_Task;
procedure Of_Other_Program_Unit (N1_Star : in Potential_Operator_Count;
N2_Star : in Potential_Operand_Count;
V_Star : out Result) is
package Log_Base_Ten is new Base_Ten (Argument => Result,
Return_Value => Result);
function Log (Of_Value : in Result) return Result
renames Log_Base_Ten.Log;
N_Star : Result := Result (N1_Star) + Result (N2_Star);
begin
-- Of_Other_Program_Unit
V_Star := N_Star * (Log (Result (N_Star)) / Log (Result (2)));
exception
-- to be changed after the demo
when others =>
V_Star := 0.0;
end Of_Other_Program_Unit;
end Halstead_Potential_Program_Volume;