|
|
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: T V
Length: 1544 (0x608)
Types: TextFile
Names: »V«
└─⟦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 Cpu_Time_Clock;
package B000003a is
Title : String (1 .. 60) :=
"TRACK WITH COVARIANCE MATRIX - FLOAT 9 DIGITS ";
procedure Start (Number_Of_Repetitions : in Integer;
Time_Required : out Duration);
-- PROGRAM: TRACK WITH COVARIANCE MATRIX - 9 DIGITS
-- 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 its data is declared mostly as a FLOAT type with 9
-- digits. There is also a FLOAT and INTEGER types and the
-- standard Track program (mostly FIXED data) as well as a 6 digit version.
-- Also, there is a Pragma suppress version for all.
-- 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 B000003a;
-----------------------------------------------------------