|
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 - downloadIndex: ┃ B T ┃
Length: 1040 (0x410)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
with Sfam_Units;
with Sfam;
procedure Test is
type Input_Range is range 1 .. 2;
type Input_Pattern is array (Input_Range) of Sfam_Units.Pattern;
type Category is (Inside, Outside);
Base_Vigilance : Sfam_Units.Pattern := 0.4;
package Sfam_Test is new Sfam (Input_Range, Input_Pattern, Category,
Base_Vigilance, Category'Image);
begin
Sfam_Test.Treat_Labeled_Pattern
(Its_Category => Inside,
Its_Pattern => Input_Pattern'(1 => 0.3, 2 => 0.3));
Sfam_Test.Treat_Labeled_Pattern
(Its_Category => Inside,
Its_Pattern => Input_Pattern'(1 => 0.7, 2 => 0.7));
Sfam_Test.Treat_Labeled_Pattern
(Its_Category => Outside,
Its_Pattern => Input_Pattern'(1 => 0.1, 2 => 0.1));
Sfam_Test.Treat_Labeled_Pattern
(Its_Category => Outside,
Its_Pattern => Input_Pattern'(1 => 0.9, 2 => 0.9));
Sfam_Test.Treat_Labeled_Pattern
(Its_Category => Outside,
Its_Pattern => Input_Pattern'(1 => 0.1, 2 => 0.8));
end Test;