DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download
Index: T V

⟦cc0039c2c⟧ TextFile

    Length: 1588 (0x634)
    Types: TextFile
    Names: »V«

Derivation

└─⟦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⟧ 

TextFile

with Cpu_Time_Clock;

package B000004a is

    Title : String (1 .. 60) :=
       "TRACK WITH COVARIANCE MATRIX - FLOAT INTEGER                ";

    procedure Start (Number_Of_Repetitions : in Integer;
                     Time_Required : out Duration);

-- PROGRAM : TRACK WITH COVARIANCE MATRIX - FLOAT INTEGER


-- RESPONSIBLE PROGRAMMERS: R. W. Peterson
--                          D. R. Hoff

-- DATE: 4/8/87

-- SCOPE:

--          The goal of this test is to measure the Track mathematical
-- program when it's data is declared primarily as a FLOAT type; but
-- also with integer types. Floating point data is declared with
-- 6 digits. There is also an all float Track program and the standard
-- Track program which is primarily fixed point data with some float and
-- integer types.

-- PROGRAM DESCRIPTION:

--            The track benchmark program was originally designed
-- for a JOVIAL Compiler.  It is an iterative program which
-- initializes then updates a mathematical matrix,  which represents
-- a covariance matrix.  The Kalman gains are calculated and then used
-- to update the matrix.  It has complicated scaling considerations,
-- but with quite straight-forward logic.
--            CALENDAR is called at the beginning and at
-- the end of the program execution to give the program execution
-- time.

-- SPECIAL EFFECTS:

--            Separate versions of this program have PRAGMA SUPPRESS
-- of the  constraint_error range_check and numeric_error division
-- and overflow checks.

end B000004a;


-----------------------------------------------------------