32 lines
496 B
Text
32 lines
496 B
Text
|
program TestKairos;
|
||
|
|
|
||
|
|
{$APPTYPE CONSOLE}
|
||
|
|
|
||
|
|
uses
|
||
|
|
SysUtils,
|
||
|
|
Kairos in 'src\Kairos.pas';
|
||
|
|
|
||
|
|
var
|
||
|
|
I: array[1..10] of Double;
|
||
|
|
Phase: Double;
|
||
|
|
J: Integer;
|
||
|
|
Sum: Double;
|
||
|
|
|
||
|
|
begin
|
||
|
|
Randomize;
|
||
|
|
for J := 1 to 10 do
|
||
|
|
I[J] := Random;
|
||
|
|
Phase := 0.1;
|
||
|
|
UpdateCoherence(I, Phase);
|
||
|
|
Sum := 0.0;
|
||
|
|
for J := 1 to 10 do
|
||
|
|
Sum := Sum + Abs(I[J]);
|
||
|
|
if Sum > 0.0 then
|
||
|
|
Writeln('Kairos test passed: Coherence updated')
|
||
|
|
else
|
||
|
|
begin
|
||
|
|
Writeln('Kairos test failed');
|
||
|
|
Halt(1);
|
||
|
|
end;
|
||
|
|
Readln;
|
||
|
|
end.
|